Bonjour,
Je remercie encore une fois ceux qui m'ont aidé précédemment. 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
ActiveCell.Offset(0, 1).Select
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: j'ai mis en rouge ce qu'il faudrait améliorer. il s'agit de colonne. J'ai mis offset(1,0). je voudrai que le 0 soit variable en fonction d'un texte genre "xxxxxx" situé dans la ligne 2. comme on ne peut prévoir dans quelle colonne faudrait une boucle pour qu'il la repère et ensuite que le 0 devienne le numéro de colonne concernant ce xxxx
j'ai mis un fichier exemple pour visualiser
Merci de vos réponses
Je remercie encore une fois ceux qui m'ont aidé précédemment. 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
ActiveCell.Offset(0, 1).Select
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: j'ai mis en rouge ce qu'il faudrait améliorer. il s'agit de colonne. J'ai mis offset(1,0). je voudrai que le 0 soit variable en fonction d'un texte genre "xxxxxx" situé dans la ligne 2. comme on ne peut prévoir dans quelle colonne faudrait une boucle pour qu'il la repère et ensuite que le 0 devienne le numéro de colonne concernant ce xxxx
j'ai mis un fichier exemple pour visualiser
Merci de vos réponses
