Je voudrais par macro sélectionner toutes les lignes répondant à

mylord6666 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je n'arrive pas réaliser par macro cette selection voici ma macro elle plante mon excel
sub JeSelectionne()
i = 1
NombreLignes = 20
While i If Cells(i, 1) = MonCritere Then
MesLignes = MesLignes & i & ":" & i & ","
End If
i = i + 1
Wend
MesLignes = Left(MesLignes, Len(MesLignes) - 1)
Sheets("Feuil1").Range(MesLignes).Select
end sub

A voir également:

2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

While i If Cells(i, 1) = MonCritere Then ne veut rien dire.
On a besoin de connaitre Cells(i, 1) et MonCritere.
Explique ce que tu veux comme boucle, joindre un fichier est mieux, pour toi comme pour nous.
cjoint.com et coller ici le lien fourni.
eric
1
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Tu n'as pas un message d'erreur ou quelque chose qui dit que ça ne fonctionne pas ?

0