(RESOLU)Msgbox a chaque fois que je change la valeur

[chaelie2015]

Bonjour Forum,
Dans plusieurs cellules (exemple A4 ,B12, C25) j’ai une liste déroulante (0,2,4,6,8,10 et 12)
Je souhaite afficher un Msgbox a chaque fois que je change la valeur dans la cellule
MSGBOX : « Attention, veuillez effacer les données non utiles
Cliquez sur le bouton »
Merci

 

[eriiic]

Re : Msgbox a chaque fois que je change la valeur

Bonjour,

Utilise le message de saisie de ta liste de validation.
eric

 

[chaelie2015]

Re : Msgbox a chaque fois que je change la valeur

Bonjour ERIC
Merci pour la réponse, mais je souhaite un code en VBA
salutations

 

[Lone-wolf]

Re : Msgbox a chaque fois que je change la valeur

Bonjour Eric

@chaelie: comment veux-tu que l'on test sans fichier ?!

Sinon, peut-être comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("a2:c25")) Is Nothing Then
If Target.Offset(0, 0).Value = "" Then Exit Sub
 MsgBox "Attention, veuillez effacer les données non utiles", , "MIMI"
End If
Application.EnableEvents = True
End Sub

 

[chaelie2015]

Re : Msgbox a chaque fois que je change la valeur

Bonjour lone wolf
super, c'est exactement ce que je cherchais, MAIS pour des cellules séparées ( A4 ,B12 et C25) et non pour une plage
If Not Intersect(Target, Range("a2:c25")) Is Nothing....
MERCI

 

[Efgé]

Re : Msgbox a chaque fois que je change la valeur

Bonjour à tous
Une prosposition:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plg$
Plg = ",$A$4,$B$12,$C$25,)"
If InStr(Plg, "," & Target.Address & ",") = 0 Or Target = "" Then Exit Sub
MsgBox "Attention, veuillez effacer les données non utiles", 64, "Message"
End Sub

@Lone-wolf : .Offset(0,0) décale de 0 ligne sur 0 colonne. Est-ce utile?
Cordialement

 

[chaelie2015]

Re : Msgbox a chaque fois que je change la valeur

Bonjour Efgé
formidable, mon souci est résolut
Merci à tous
SALUTATIONS

 

[Lone-wolf]

Re : (RESOLU)Msgbox a chaque fois que je change la valeur

Bonjour Efgé, chaelie


@Efgé: tu as raison, Pas utile.