Excel [vba] clique sur cellule affiche msgbox
Résolu
Gorion87
Messages postés
56
Statut
Membre
-
Gorion87 Messages postés 56 Statut Membre -
Gorion87 Messages postés 56 Statut Membre -
Bonjour à tous,
Après plusieurs recherches sur notre ami google, je n'ai pas trouvé de réponses à ma question, c'est ainsi que je me tourne vers vous !!
Voila, en fait j'ai les cellules D7:F7, H7:J7 etc qui sont fusionnées avec des titres de colonnes incorporées. Je souhaiterais que lorsque quelqu'un clique sur ces cellules fusionnées, un message apparaissent.
Le but est d'informer l'utilisateur sur le contenu de la colonne afin qu'il sache ce q'il doit remplir...j'ai bien tenté de passer par "Données", "Validation" puis "Message de saisie" mais le texte ne rentre pas...la seule solution est vba je pense !!
Par ailleurs, cette fonction vba ne doit être possible que sur une seule feuille et non sur les autres qui contiennent d'autres infos.
Je vous remercie pour votre aide.
Romain HG
Après plusieurs recherches sur notre ami google, je n'ai pas trouvé de réponses à ma question, c'est ainsi que je me tourne vers vous !!
Voila, en fait j'ai les cellules D7:F7, H7:J7 etc qui sont fusionnées avec des titres de colonnes incorporées. Je souhaiterais que lorsque quelqu'un clique sur ces cellules fusionnées, un message apparaissent.
Le but est d'informer l'utilisateur sur le contenu de la colonne afin qu'il sache ce q'il doit remplir...j'ai bien tenté de passer par "Données", "Validation" puis "Message de saisie" mais le texte ne rentre pas...la seule solution est vba je pense !!
Par ailleurs, cette fonction vba ne doit être possible que sur une seule feuille et non sur les autres qui contiennent d'autres infos.
Je vous remercie pour votre aide.
Romain HG
A voir également:
- Excel [vba] clique sur cellule affiche msgbox
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Word et excel gratuit - Guide
2 réponses
Bon en cherchant à nouveau j'ai trouvé la solution pour ceux que ca intéresse :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D7:F7")) Is Nothing Then
MsgBox "Bla bla bla" & Chr(10) & _
" " & Chr(10) & _
"Bli bli bli", vbOKOnly + vbInformation, "X corpo"
End If
End sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D7:F7")) Is Nothing Then
MsgBox "Bla bla bla" & Chr(10) & _
" " & Chr(10) & _
"Bli bli bli", vbOKOnly + vbInformation, "X corpo"
End If
End sub
