XL 2010 Afficher une MsgBox lorsque l'on sélectionne une plage de cellule

[thunder23]

Bonsoir à tous,

Je souhaite que quand plusieurs plage de cellule sont modifiées ça affiche une MsgBox. J'ai ce code mais ne fonctionne plus et je ne vois pas pourquoi?

Private Sub Worksheet_Change(ByVal Target As Range) 'Affiche d'un message si nombre de poste inférieur ou supérieur
   
   If Intersect(Target, Range("B10:B40"), Range("G10:G38"), Range("L10:L40"), Range("Q10:Q39"), Range("V10:V40"), Range("AA10:AA39"), Range("AF10:AF40"), Range("AK10:AK40"), Range("AP10:AP39"), Range("AU10:AU40"), Range("AZ10:AZ39"), Range("BE10:BE40")) Is Nothing Then Exit Sub
   
    Select Case [Récapitulatif!L3]
   
        Case Is < 0
           
            MsgBox "Vous n'avez pas cumulé assez de poste cette année !" & Chr(10) & "Votre déficitaire est de " & Sheets("Récapitulatif").Range("L3") & " " & "poste(s)!", 0 + 16, "ATTENTION"
   
        Case Is > 0
           
            MsgBox "Vous avez cumulé trop de poste cette année !" & Chr(10) & "Votre excédent est de " & Sheets("Récapitulatif").Range("L3") & " " & "poste(s)!" & Chr(10) & "Vous devrez poser des RECUP.", 0 + 48, "AVERTISSEMENT"
   
    Case Else
    '
    End Select
       
End Sub

Merci d'avance pour votre aide 🙂

 

[job75]

Bonsoir thunder23,

Vous n'avez pas bien compris le fonctionnement de la fonction Intersect, le test If ne peut que renvoyer False, il faut bien sûr écrire :

If Intersect(Target, Union(Range("B10:B40"), Range("G10:G38"), Range("L10:L40"), Range("Q10:Q39"), Range("V10:V40"), Range("AA10:AA39"), Range("AF10:AF40"), Range("AK10:AK40"), Range("AP10:AP39"), Range("AU10:AU40"), Range("AZ10:AZ39"), Range("BE10:BE40"))) Is Nothing Then Exit Sub

A+

 

[thunder23]

Bonsoir job75,

Ah d'accord ok j'avoue que je ne connais pas trop le fonctionnement de cette fonction, je suis encore un peu novice dans le codage VBA. 😉

Encore merci
Bonne soirée