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

sams96

XLDnaute Nouveau
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 .
 

Pièces jointes

  • Copie de ess.xlsx
    10 KB · Affichages: 14

sams96

XLDnaute Nouveau
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
Tu trouveras le fichier dans le lien ci-dessus
 

sams96

XLDnaute Nouveau
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:D" & 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 .
 

Discussions similaires