_l_ours
XLDnaute Nouveau
Bonjour à tous,
j'ai besoin d'aide sur une macro, ce ne doit pas être très compliqué, mais j'ai fait plusieurs recherches, et je ne trouve pas vraiment.
L'idée de la macro est la suivante : pour chaque ligne où la cellule de la colonne A est remplie, il faut chercher dans la colonne G (colonne 7) si le mot "modifications", "parcours" ou "branchement" apparait, et si oui, il faut écrire en colonne H (colonne 8) de la même ligne le mot "travaux".
Je pense que le problème vient de mon instruction "If" où la conséquence "Then" n'est pas bien formulée.
Dim c As Range, i As Long
With Sheets("export")
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set c = Columns(7).Find(Range("A" & i).Value)
If c = "modifications" Then [c+1] = "travaux"
Next i
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set c = Columns(7).Find(Range("A" & i).Value)
If c = "parcours" Then [c+1] = "travaux"
Next i
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set c = Columns(7).Find(Range("A" & i).Value)
If c = "branchement" Then [c+1] = "travaux"
Next i
End With
merci d'avance pour votre aide
j'ai besoin d'aide sur une macro, ce ne doit pas être très compliqué, mais j'ai fait plusieurs recherches, et je ne trouve pas vraiment.
L'idée de la macro est la suivante : pour chaque ligne où la cellule de la colonne A est remplie, il faut chercher dans la colonne G (colonne 7) si le mot "modifications", "parcours" ou "branchement" apparait, et si oui, il faut écrire en colonne H (colonne 8) de la même ligne le mot "travaux".
Je pense que le problème vient de mon instruction "If" où la conséquence "Then" n'est pas bien formulée.
Dim c As Range, i As Long
With Sheets("export")
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set c = Columns(7).Find(Range("A" & i).Value)
If c = "modifications" Then [c+1] = "travaux"
Next i
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set c = Columns(7).Find(Range("A" & i).Value)
If c = "parcours" Then [c+1] = "travaux"
Next i
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Set c = Columns(7).Find(Range("A" & i).Value)
If c = "branchement" Then [c+1] = "travaux"
Next i
End With
merci d'avance pour votre aide