Bonjour,

Je voudrais parcourir toutes les lignes d'une feuille excel, verifier si le champs A est egal a ma variable ch et si c'est le cas, mettre la ligne dans une autre feuille excel.

Quelqu'un pourrait-il m'aider?

Merci d'avance.

Hasen

En supposant qu'on travail sur la Feuille "Feuil1" et que toutes les lignes sont remplies sont consécutives (qu'il n'y ait pas de ligne vide dans la liste parcourue parce que sinon ça arrêterait le processsus...) :

A placer dans la procédure prévue pour lancer cette opération (un click de bouton par exemple [Private Sub monBouton_Click()], ...)

Dim varTxt As String
Dim varTour As Long
varTour = 1
Do
 varTxt = ThisWorkbook.Worksheets("Feuil1").Range("A" & CStr(varTour)).Value
 'Quitte la routine à la 1ère cellule vide rencontrée!!!
 If varTxt = "" Then Exit Do
 If varTxt  = ch Then ... Else ...
 varTour = varTour + 1
Loop

Comprends-tu tout et est-ce que cela répond à ta question ???

Enjoy 

---

perso je ne comprends pas vmt, mais c'est pas très grave. Avec cette formule, comment peut-on copier toutes les lignes pour lesquels le champs est correct et les coller sur une autre feuille?

Si tu veux faire toutes les lignes même si il y en a une de vide:

dim cellule as range
For each cellule in ThisWorkbook.Worksheets("Feuil1").Range("A1").entirecolumn
    if cellule.value=  <la tu met la valeur lorsque tu dois copier la ligne (= "ch" si j'ai bien compris)> then
          cellule.entirerow.copy             'copi la ligne en question
          ThisWorkbook.Worksheets("Feuil2").Range("A1").pastespecial    'tu colle ds "feuil2"
    end if
next


si tu peu te veut tu peut aussi t'arrêter dès que tu rencontres une cellule vide en prenant le code de ScSami.
à la place de Then ... Else ...
tu fais

then
  cellule.entirerow.copy             'copi la ligne en question
          ThisWorkbook.Worksheets("Feuil2").Range("A1").pastespecial    'tu colle ds "feuil2"
END IF

eN ESPERANT AVOIR R2PONDU A TA KESTION

merci çà répond à ma question, mais qd je vais pour faire tourner le prog, la ligne
if cellule.value = ch then
est considérée comme fausse.
Sachant qu'avant d'écrire ta formule, j'ai initialisée ch de la manière suivante:
ch = combobox1 (puisque ch est la valeur sélectionnée ds ma liste modifiable de mon userform)
Quel est le pb?
merci d'avance et en espèrant que ce soit mon dernier pb.

Question con, t'es sûr qu'il faut pas mettre plutot un truc du style :

ch = combobox1.Selected  (ou un truc du genre comme "List" ou "ListIndex")

???

Enjoy 

---

ouai j'ai mis .list
mais mon pb sur if cellule.value = ch   persiste.
????

Je suppose que ch est l'élément de la combo qui est sélectionner.
Dans ce cas tu dois faire:
ch = combobox1.list (listindex)

combo.list te retourne la liste entière des élements de la combo.
Si tu fais list(i) ca te retourne l'élément qui se trouve à la position i.
listindex est un entier qui contient l'index de lélément sélectionné.
Donc list(listindex) te retourne l'élément sélectionner.
Place le curseur de la souris sur "list" et fait F1 pour avoir + d'info.

Oui, en effet, c'est ça!

Ceci dit, par mesur de sécurité je te conseillerais de mettre plutôt :

ch = ComboBox1.List(ComboBox1.ListIndex)

Bon, je t'accorde que dans l'aide c'est pas forcément très clair pour les débutants mais justement, il faut s'entrainer à lire les aides de Microsoft (parce que c'est un art nécéssaire [comme certains mals d'ailleurs ;-]).

Enjoy 

---

merci, merci.
L' initialisation de ma est à présent faite. Mais j'ai tjs ce même pb avec cette ligne de malheur. Qu'est-ce qui ne va pas?