Voilà j'ai essayé d'êcrire un bout de code mais cela ne fonctionne pas.
Je suis un tout petit petit débutant en vba...
Quelqu'un veut bien m'expliquer pourquoi cela ne fonctionne pas et ce que j'ai fais de mal ?
Merci
Je suis un tout petit petit débutant en vba...
Sub Bureau()
Dim nextL As Integer
Worksheets("SMExport").Activate
For i = 3 To nextL
With Worksheets("SMExport")
nextL = .Range("B65536").End(xlUp).Row
End With
With Range("D(i):GC(i)").Select
Selection.Replace What:="X", Replacement:=Range("B(i)"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next i
End Sub
Quelqu'un veut bien m'expliquer pourquoi cela ne fonctionne pas et ce que j'ai fais de mal ?
Merci
Dernière édition: