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

Question

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

Configuration: Windows Vista / Firefox 29.0

Polux31 · Answer

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

eriiic · Answer

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

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

2 réponses

Votre réponse

Discussions similaires

Newsletters