Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

faire une boucle avec .find

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
 

Roland_M

XLDnaute Barbatruc
Re : faire une boucle avec .find

bonsoir,

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

Pièces jointes

  • Classeur1.xls
    33.5 KB · Affichages: 52
  • Classeur1.xls
    33.5 KB · Affichages: 51

mapomme

XLDnaute Barbatruc
Supporter XLD
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

  • Filtrage-plage-une valeur v1.xls
    78.5 KB · Affichages: 45
Dernière édition:

nicroq

XLDnaute Occasionnel
Re : faire une boucle avec .find

voici mon fichier pour que votre aide soit plus facile

merci car je suis vraiment bloqué*

cdlt
 

Pièces jointes

  • test copie.xls
    39.5 KB · Affichages: 40
  • test copie.xls
    39.5 KB · Affichages: 38

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…