XL 2010 Boucle sur chaque Cellule d'une rangée VBA

[sams96]

Bonjour à tous ,
je viens vers vous car je bloque pour faire une boucle ,
je cherche à faire une boucle qui va d'abord parcourir toute la colonne A ( Catégorie) , puis à chaque fois ou cette boucle trouve un texte en gras , elle devra parcourir toute ses sous catégories et afficher dans la colonne H et l la sous catégorie ayant la valeur la plus élevée , j ai mis un exemple du résultat que je recherche sur le fichier excel ,
prière de bien vouloir m'aider .

 

[sams96]

Bonjour Job75
J arrive pas à adapter ton code à ce fichier Excel , est ce qu il serait possible de m aider.
Je te remercie par avance

XL 2010 - Boucle imbriquée VBA

Bonjour à tous , je viens vers vous car je bloque pour faire une boucle , je cherche à faire une boucle qui va d'abord parcourir toute la colonne A ( Catégorie) , puis à chaque fois ou cette boucle trouve un texte en gras , elle devra parcourir toute ses sous catégories et afficher dans la...

www.excel-downloads.com

Tu trouveras le fichier dans le lien ci-dessus

 

[job75]

Il était tout à fait inutile d'ouvrir un autre fil, il n'est pas très difficile d'adapter la macro que j'ai donnée !

 

[sams96]

Je voudrais effectuer une boucle qui va remplacer ce code là :
wb.Sheets(1).Range("B16:B" & DLU).Copy wb.Sheets("ATTRIBUTION").Range("A1:A" & DLU)
wb.Sheets(1).Range("C16:C" & DLU).Copy wb.Sheets("ATTRIBUTION").Range("B1:B" & DLU)
wb.Sheets(1).Range("H16:H" & DLU).Copy wb.Sheets("ATTRIBUTION").Range("C1:C" & DLU)
wb.Sheets(1).Range("K16:K" & DLU).Copy wb.Sheets("ATTRIBUTION").Range("D1😀" & DLU)
wb.Sheets(1).Range("N16:N" & DLU).Copy wb.Sheets("ATTRIBUTION").Range("E1:E" & DLU)

Est ce qu'il serait possible de m'aider à réaliser cette boucle ?
Je vous remercie par avance .

 

[job75]

On attend une appréciation de votre part pour les dernières solutions données sur l'autre fil.

 

[sams96]

Je vous remercie énormément Job 75 pour votre aide si précieuse , grâce à vous , j ai pu passer à l'étape suivante de mon code

 

[job75]

Pour le problème du post #18 il est inutile de faire une boucle :

With wb.Sheets(1)
    Intersect(.[B:C,H:H,K:K,N:N], .Rows("16:" & DLU)).Copy wb.Sheets("ATTRIBUTION").[A1]
End With
wb.Sheets("ATTRIBUTION").Activate

 

[sams96]

Merci Job 75 , ton code marche à merveille 😀