Bonjour j'essaie d'executer une commande Activecell.offset en forcant la commande droite ou gauche en fonction d'une variable tapée dans une boite de dialogue mais j'ai une erreur de type incompatibilité 13.
Merci de votre aide.
Sub test()
Dim decal2 As Interger
decal2 = InputBox("indiquez le déclalage ( -2 pour 2 cases à gauche et 2 pour 2 cases à droite")
If decal2 = 0 Then decal2 = 0
ActiveCell.Offset(0 & "," & decal2).Select
End Sub
Merci de votre aide.
Sub test()
Dim decal2 As Interger
decal2 = InputBox("indiquez le déclalage ( -2 pour 2 cases à gauche et 2 pour 2 cases à droite")
If decal2 = 0 Then decal2 = 0
ActiveCell.Offset(0 & "," & decal2).Select
End Sub