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

S

sams96

XLDnaute Nouveau

• 3 Juillet 2019

• #16

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2019

• #17

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 !

 

Vote positif 0 Vote négatif

S

sams96

XLDnaute Nouveau

• 3 Juillet 2019

• #18

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 .

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2019

• #19

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

 

Vote positif 0 Vote négatif

S

sams96

XLDnaute Nouveau

• 3 Juillet 2019

• #20

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2019

• #21

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

VB:

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

 

Vote positif 0 Vote négatif

S

sams96

XLDnaute Nouveau

• 3 Juillet 2019

• #22

Merci Job 75 , ton code marche à merveille

 

Vote positif 0 Vote négatif