Code sur plage de donnée définie

  • Initiateur de la discussion Initiateur de la discussion Photosol
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

Photosol

Guest
Bonjour,

Je vous contacte car j'ai un petit soucis au niveau d'une plage de donnée:

J'ai affecté un code à une feuille,
Cependant je souhaiterais que le code ne s'applique que sur un tableau qui est dans cette page.

Problème: je n'arrive pas a définir cette plage de donnée.

voici mon code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Text = "" Then
MsgBox ("Cette cellule est vide, choisissez une case avec un politique")
Else
UserForm2.Show
End If
Cancel = True
End Sub

Comment faire pour lui dire que ceci ne s'applique que lorsque je clique dans un cellule du tableau 5?

Merci!!
 
Re : Code sur plage de donnée définie

Bonjour,

peut être ceci, sur la première ligne de ta procédure :
Code:
If Target.Address <> "$A$1" Then Exit Sub

bon après midi
@+

Edition : bonjour Hasco🙂
 
Dernière édition:
Re : Code sur plage de donnée définie

Bonjour

En supposant que la plage de cellule est un Tableau nommé, ou une plage de cellule nommée: "Tableau 5" teste ceci:
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'si une seule cellule est sélectionnée et qu'elle est dans Tableau 5
    If Target.Count = 1 And Not Intersect(Target, Range("Tableau 5")) Is Nothing Then
        If Target.Text = "" Then
            MsgBox ("Cette cellule est vide, choisissez une case avec un politique")
        Else
            UserForm2.Show
        End If
        Cancel = True
    End If
End Sub

A+
[Edit] Hello Pierrot😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
521
Retour