Discussion :

[bogeymen]

Salut Groupe,

Je me casse la tête dans des recherches sur le web depuis quelques heures....
j'ai en O18 un menu déroulant Et j'Aimerais que lorsque dans ce menu on sélectionne " Groupe AA" qu'il y ait un msgbox qui apparaisse et mentionne disons " Attention --- Attention blablabbla" mais tout mes essaie qui "fonctionne" à date me donne un msgbox quand je sélectionne n'importe quel cellule APRÈS avoir choisi le "Groupe AA"...
je joint le code, Quel serait mon erreur ? je désire que le message apparaisse seulement lorsque le groupe AA est sélectionner et seulement à ce moment.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Worksheets("Facturation").Range("O18").Value = "Groupe AA" Then
         MsgBox ("Attention vérifier les spécifications du groupe")
   End If
End Sub

[Invité]

Bonjour,

Essayez cet événement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("O18")) Is Nothing Then
        Select Case Target
               Case "Groupe AA"
                    MsgBox "Attention, vérifier les spécifications du groupe !", vbCritical
               'Case "Groupe XX"
                    'Msgbox ....
               'Case Else
                    '......
        End Select
    End If
 
End Sub

[bogeymen]

Merci Sa fonctionne, je vais l'étudier et comparer pour voir mon erreur.

Si j'aimerais l'appliquer à la cellule O19 en plus de O18 comment je pourrais l'ajouter?

Merci

[Invité]

Si les règles sont les mêmes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   If Not Intersect(Target, Range("O18:O19")) Is Nothing Then

Sinon il faut ajouter un autre If Not.... End if en dessous de l'autre.

[bogeymen]

Bien évidement.. je n'avais pas la bonne ponctuation...

Merci ! Cela résout ce problème.
J'espère avoir une aussi bonne et rapide réponse sur mon autre discussion maintenant !!