Probl. Lancement sub sur clic cellule

[donpopo]

Bonjour le forum,

J'ai créé une procédure qui se déclenche lorsque je clique sur une cellule donnée dans une colonne.

Cela fonctionne très bien; cependant, je remarque que lorsque l'on sélectionne la ligne entière par clic sur le n° de ligne (ex.: pour insérer une nouvelle ligne), la procédure se met en route aussi.

Y a t'il un moyen pour que ma procédure ne se déclenche que lorsque je clique sur la cellule désirée et non sur la sélection de la ligne?

Mon code sur la feuille est:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.Intersect(Range("Donnéescommandes"), Target) Is Nothing Then Exit Sub
lignecde = ActiveCell.Row
Call ConsulterNote(lignecde)
End Sub

En vous remerciant d'avance,

Donpopo

 

[Paritec]

Re : Probl. Lancement sub sur clic cellule

Bonsoir donpopo le forum
oui comment elle s'appelle ta cellule?
a+
Papou 🙂

 

[jp14]

Re : Probl. Lancement sub sur clic cellule

Bonsoir


En rajoutant If Target.Count > 1 Then Exit Sub on sort de la procédure si on a plus d'une cellule.

Bon week end

JP

 

[kjin]

Re : Probl. Lancement sub sur clic cellule

Bonsoir,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.count >1 Then Exit Sub
If Not Application.Intersect(Range("Donnéescommandes"), Target) Is Nothing Then
lignecde = ActiveCell.Row
Call ConsulterNote(lignecde)
End If
End Sub

 

[donpopo]

Re : Probl. Lancement sub sur clic cellule

Merci à tous,

Grâce à vos réponses, mon problème est résolu.

Donpopo