renseigner une cellule par rapport à la cellule active

Bonjour,

Sub test()
col = -3
lig = 0
ActiveCell.Offset(lig, col).Value = "toto"
End Sub

Cordialement.
Daniel

Bonjour

Comment renseigner une cellule positionnée à 3 colonnes à gauche de la
cellule active.
La formule doit pouvoir utiliser les variables pour pouvoir modifier la
colonne ou la ligne.

Je vous remercie par avance

Merci beaucoup

"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
j4ppug$pa9$1@speranza.aioe.org...

Bonjour,

Sub test()
col = -3
lig = 0
ActiveCell.Offset(lig, col).Value = "toto"
End Sub

Cordialement.
Daniel

Bonjour

Comment renseigner une cellule positionnée à 3 colonnes à gauche de la
cellule active.
La formule doit pouvoir utiliser les variables pour pouvoir modifier la
colonne ou la ligne.

Je vous remercie par avance

Bonjour
Perso, je verrais bien l'utilisation de DECALER ( OFFSET en grand breton)
-----
Sub décalllller()
'ActiveCell.Offset(rowOffset:=0, columnOffset:=-3) = 15
[c5].Offset(0,-3) = 15
End Sub
------------
on peut aussi attribuer des valeurs à des variables:

Sub décalllller()
tu DIM --> y = 0 et z = -3
'ActiveCell.Offset(rowOffset:=y, columnOffset:=z) = 15
[c5].Offset(y,z) = 15
End Sub
-------------------
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
a écrit dans le message de groupe de discussion :
4e705b65$0$28388$426a74cc@news.free.fr...

Bonjour

Comment renseigner une cellule positionnée à 3 colonnes à gauche de la
cellule active.
La formule doit pouvoir utiliser les variables pour pouvoir modifier la
colonne ou la ligne.

Je vous remercie par avance