Declenchement macro à la sélection d'une cellule dans une plage

[Ptitgoud]

Bonjour,

J'ai écrit le code suivant pour déclencher une userform lors de la sélection d'une cellule dans une plage donnée (colonne A) mais le problème c'est qu'elle fait "freezer" Excel quelques secondes chez moi.

Je voulais donc savoir si il n'y avait pas un moyen plus simple de réaliser cela!

Voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Colonne_active = ActiveCell.Column
For Each cellule In Range("A1", "A65536")
If Colonne_active = cellule.Column Then
UserForm1.Show 0
End If
Next
End Sub

 

[Dull]

Re : Declenchement macro à la sélection d'une cellule dans une plage

Salut Ptitgoud, le forum

Moi j'aurais fait comme cela 🙂

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 Then UserForm1.Show 0
End Sub

EDITION: Salut JM 🙂
Bonne Journée

 

[Ptitgoud]

Re : Declenchement macro à la sélection d'une cellule dans une plage

Ah merci c'est plus simple comme ça!

Je cherche trop compliqué ...

Bonne journée!