FORUM Rue-Montgallet.com
  Programmation
  VB - VBA

  sélection d'une à plusieurs lignes selon un critère

 

54 utilisateurs inconnus

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

sélection d'une à plusieurs lignes selon un critère

n°13038
jiper
Profil : Jeune recrue
Posté le 13-05-2005 à 15:00:12  profilanswer
 

voici le PB. Dans ma feuille1 j'ai des données en deux colonnes (noms (A:A) et prénoms (B:B)soient environ 1000 lignes renseignées)ma troisième colonne ("C" ) sert à désigner certains noms soit par un croix "x" soit par le chiffre "1".
Ensuite je voudrais sélectionner les lignes correspondant aux différentes cases de la colonne "C" où un "1" a été mis, puis copier et coller la sélection dans la feuille 2.
Le pb ne s'arrete pas là, car je peux faire une seconde sélection dans ma feuille 1, qui viendra s'ajouter à la suite dans ma feuille2
ici la sélection par ligne est importante car je pourrai envisager d'ajouter des colonnes de données
ATTENTION, les lignes ne se suivent pas obligatoirement, il peut y avoir un espace de 20,30,80 lignes entre deux cases de la colonne C
 
merci d'avance pour votre solution et bonne programmation à tous.

mood
Pub
Posté le 13-05-2005 à 15:00:12  profilanswer
 

n°13089
porcinet82
Profil : Membre
Posté le 17-05-2005 à 17:23:07  profilanswer
 

Salut jiper,
 
je te propose une petite macro qui devrait te faire avancer dans ton problème.
 
Sub classement()
j = 2
l = 2
Sheets("feuil1" ).Select
Range("C2" ).Select
For i = 1 To Range("C65536" ).End(xlUp).Row
    Range("C" & j).Select
    If ActiveCell.Value = "1" Then
        Range("A" & j & ":" & "B" & j).Select
        Selection.Copy
        Sheets("feuil2" ).Select
        Range("A2" ).Select
line1:
        If ActiveCell.Value = "" Then
            ActiveSheet.Paste
            Selection.Offset(1, 0).Select
        Else
            Selection.Offset(1, 0).Select
            GoTo line1
        End If
    Else
        Selection.Offset(1, 0).Select
    End If
    j = j + 1
    Sheets("feuil1" ).Select
Next i
End Sub

 
 
Cette macro suppose que tes données de départ sont sur la feuille 1, et le résultat se trouvera en feuille 2.
Je suppose également que dans tes 2 feuilles, et dans chacunes de tes colonnes A, B et C, tu as un entête
 
@+

n°13091
jiper
Profil : Jeune recrue
Posté le 17-05-2005 à 20:48:05  profilanswer
 

salut Porcinet82
je viens de tester ta macro et là je dis magnifique, génial. grace a ta macro je viens d'avancer d'un grand pas. je vais tenter (car débutant de débutant en vba) de faire évoluer ton programme.
merci encore A+


---------------
merci d'avance de votre réponse
n°13094
porcinet82
Profil : Membre
Posté le 18-05-2005 à 09:14:11  profilanswer
 

salut Jiper,
 
content que cela te convienne. si tu as un soucis refait signe.
Bon courage pour la suite
 
@+


Aller à :
Ajouter une réponse
  FORUM Rue-Montgallet.com
  Programmation
  VB - VBA

  sélection d'une à plusieurs lignes selon un critère

 

Comparhaut
Conditions d'utilisation
© 2000-2014 SARL ComparHaut - Tous droits réservés