améliorer macro vba boucle

[pasquetp]

Bonjour,

Je remercie encore une fois ceux qui m'ont aidé precedemment. je voudrai ajouter une amélioration a cette macro:

Sub Macro1()
fin = Sheets(1).Range("A65536").End(xlUp).row
Sheets(1).Range("a1").Select

For a = 1 To fin
Do Until ActiveCell = Sheets(2).Cells(a, 1)

ActiveCell.Offset(1, 0).Select
Loop

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets(1).Range("a1").Select
Next

End Sub


l'idée est la suivante: g mis en rouge ce quil faudrait améliorer. il s'agit de colonne. g mis offset(1,0). je voudrai que le 0 soit variable en fonction d'un texte genre "product type" situé dans la ligne 2. comme on ne peut prevoir dans quelle colonne fodrait une boucle pr quil la repere et ensuite que le 0 devienne le numero de colonne concernant ce product type.

Merci de vos réponses

 

[Paritec]

Re : améliorer macro vba boucle

Bonjour Paquettp le forum
Tu devrais lire la charte cela te ferais le plus grand bien et à nous aussi !!!
Pour tes demandes, tu joins un petit fichier avec les explications dedans et on te fera
Pour ton langage SMS garde le pour tes amis et ta famille, ici on aime les mots entiers
a+
papou😱