Décaller cellules vers la gauche

Bonjour

Je suis à la recherche d'une solution pour décaler la cellule active de ce code vers la gauche.

J'ai bien essayé de remplacer Activecell avec .offset, mais je n'y arrive pas. Qu'est ce que je n'ai pas compris?

Private Sub CommandButton1_Click()
For i = 1 To 5
lig = ActiveCell.Row
Cells(lig, i) = Me("combobox" & i)
Next i
Unload Me
End Sub

Merci pour votre aide.

Cordialement à tous

Bonsoir,

si je comprends, essayez ceci : Cells(lig, i-1) = Me("combobox" & i)

@ bientôt

LouReeD

Bonjour

Merci pour la réponse rapide, mais j'ai un message d'erreur :

'Erreur d'exécution 1004'

"Erreur définie par l'application ou par l'objet."

Suis-je bête, la boucle commence en colonne 1, et avec i-1 on arrive en colonne 0 donc impossible !

J'ai du mal à saisir la structure de votre fichier par rapport à la demande. Avez-vous un fichier représentatif ? Merci.

@ bientôt

LouReeD

Bonjour

Avec l'élément de réponse que vous m'avez donné, j'ai réussi à trouver la réponse à ma demande..... qui en fait était mal formulée. Je souhaitais décaller les cellules sur la droite (et non sur la gauche = "Cells(lig, i-1) = Me("combobox" & i)" : logique). Et en remettant le puzzle à l'endroit, tout fonctionne comme je l'espérais. J'ai donc fait ceci : "Cells(lig, i+2) = Me("combobox" & i)".

Merci pour l'explication..... Je vous souhaite une bonne journée!!

Bonsoir,

si mes "explications" ont pu vous servir à résoudre votre problème alors vous me voyez ravis !
Merci pour votre retour et vos remerciement.

@ bientôt

LouReeD