faire une boucle avec .find

  • Initiateur de la discussion Initiateur de la discussion nicroq
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nicroq

XLDnaute Occasionnel
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:
    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
 
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.
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
223
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
1
Affichages
180
Réponses
10
Affichages
443
Retour