Discussion :

[nicroq]

Bonsoir a tous et merci pour votre aide

je n'arrive pas a faire une boucle en VBA et j'aurais besoin de votre aide.

voici mon code qui marche pour une ligne mais je souhaiterai faire la boucle sur l ensemble des lignes et non pas sur une seule ligne comme dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim cell_nom_CMR As Range, lg_CMR As Integer
Set cell_nom_CMR = Columns("K").Find("CMR", , , , , xlPrevious)
lg_CMR = Columns("K").Find(cell_nom_CMR).Row
 
MsgBox "le cmr est en cellule" & lg_CMR
 
Worksheets("recap").Range(Cells(lg_CMR, 10), Cells(lg_CMR, 23)).Copy
 Worksheets("Feuil1").Cells(12, 1).PasteSpecial Paste:=xlPasteValues

en fait avec mon code je trouve le mot CMR et je copie la ligne de la colone 10 à 23 mais ce que je souhaiterai faire c'est faire l'analyse du mot CMR sur toute la colonne K et a chaque fois que CMR est trouvé alors la ligne est copiée.

Merci pour votre aide vraiment

[Menhir]

Tu commences par faire un Find normal et ensuite tu places un Find

Fait une boucle Do While avec dedans un FindNext dans une boucle While pour trouver les suivants avec comme condition du While quelque chose comme Not (cell_nom_CMR Is Nothing) .

[nicroq]

merci menhir!
Mais etant completement debutant je ne saisie pas tout... pourriez vous m'aider un peu pour le debut?

merci

bonne journée

[Menhir]

Dans l'aide VBA intégrée à Excel, tu tapes "Range" dans le champ de recherche et tu consulte la liste des membres de Range. Tu y trouvera Find et FindNext qui te permettra de connaitre leur descriptions et leur syntaxes.

Pour les structure tu peux aussi rechercher While dans l'aide ou consulter ce tutorial.
http://bidou.developpez.com/article/VBA/