rounil09
XLDnaute Occasionnel
Bonjour à la liste,
Le code VBA suivant me renvoie une erreur du type #NOM?
Sub GBTest1()
Dim formule As Variant
Sheets("Feuil1").Select
Application.Goto reference:=ActiveSheet.Range("A1"), scroll:=True
Range("A1:A3").ClearContents
Range("A1").Select
formule = "=GAUCHE(R1C2,2)"
ActiveCell.formula = formule
Range("A2").Select
End Sub
Que faut-il modifier pour qu'il fonctionne ?
Merci de vos lumières.
Le code VBA suivant me renvoie une erreur du type #NOM?
Sub GBTest1()
Dim formule As Variant
Sheets("Feuil1").Select
Application.Goto reference:=ActiveSheet.Range("A1"), scroll:=True
Range("A1:A3").ClearContents
Range("A1").Select
formule = "=GAUCHE(R1C2,2)"
ActiveCell.formula = formule
Range("A2").Select
End Sub
Que faut-il modifier pour qu'il fonctionne ?
Merci de vos lumières.