probleme de variable

[sri75]

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

 

[Pierrot93]

Re : probleme de variable

Bonjour Sri

essaye peut être comme ci dessous :

ActiveCell.Offset(0, decal2).Select

@+

Edition : change ceci également :
Dim decal2 As Integer

 

[sri75]

Re : probleme de variable

merci ca marche.

Dans le meme esprit de saisie de données je veux utiliser ma variable pour rechercher aussi du texte mais mon dim as integer est incompatible avec le texte et si je l'enleve mon numérique n'est plus trouvé.

Merci de ton aide.