Macro autorisée dans une seule colonne

Bonjour,

Voici mon code :

Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
    ActiveCell = Range("I2 : I1000")
    ActiveCell = ListBox1.Column(0, i)
    Else
    MsgBox "Merci de sélectionner une case de la colonne i", vbCritical
End If
Next i
End Sub

Ce code permet d'exporter une valeur d'un userform pour la placer dans une case sélectionner sur la feuille.

J'aimerai autoriser cette action que quand la case se trouve dans la colonne i mais avec cette syntaxe je me retrouve avec des messages d'erreurs en boucle.

Des idées?

Merci d'avance.

Bonjour,

peut-être tester la colonne de l'Activecell ?

If ActiveCell.Column = 9 Then 'si colonne de l'activecell = I
   .../...

A+

Merci Algo,

Bonne journée