faire une boucle avec .find

[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 :

    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

 

[Roland_M]

Re : faire une boucle avec .find

bonsoir,

voir ce code en exemple simple pour toi comprendre le principe de FindNext

 

[mapomme]

Re : faire une boucle avec .find

Bonsoir nicroq, Roland_M,

Pour le fun, un filtrage sans boucle.

 

[nicroq]

Re : faire une boucle avec .find

je n'arrive toujours a faire meme avec les exemples que vous m'avez donné....

pourriez vous m'aider un peu plus?

merci

 

[mapomme]

Re : faire une boucle avec .find

Bonjour Nicroq,

Comme vous n'avez fourni aucun fichier, il est difficile de vous répondre.

Un essai d'une fonction générique qui renvoie la plage filtrée d'une plage source filtrée selon une valeur de colonne: set rgRES=PlageFiltrée(range("B2:F100"), range("K2"),"toto")


Vous utilisez Excel-2003. Je ne dispose plus de cette version donc je n'ai pas pu tester la fonction avec cette version.

Le fichier joint permet de tester la fonction.
Le code et les explications concernant la fonction sont dans le module mod_FiltrerPlageValeur.

 

[nicroq]

Re : faire une boucle avec .find

voici mon fichier pour que votre aide soit plus facile

merci car je suis vraiment bloqué*

cdlt

 

[st007]

Re : faire une boucle avec .find

Pour le fun aussi