Ce forum est maintenant fermé, seule cette archive statique reste consultable.
  FORUM Rue-Montgallet.com
  Programmation
  VB - VBA

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

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  
 

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  
 

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

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  
 

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  
 

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

  FORUM Rue-Montgallet.com
  Programmation
  VB - VBA

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

© 2000-2024 Forum.rue-montgallet.com - Tous droits réservés