Trois Condition et affichage message box

Bonsoir,

J'aimerais avoir une msgbox qui s'affiche si le contenu de trois cellules est modifié par un utilisateur :

Code:

---

1 2 3 4

Sub Changement() Range As String If Range ("A1").Value.Change And/Or Range("A2").Value.Change And/Or Range("A3").Value.Change then MsgBox "une modification est faite"

---

problème vu que ca ne marche pas. C'est la fonction qui n'est pas correcte ?
JMerci pour d'avance pour votre aide.

Bonjour

tu peux utiliser l'événement change de ta feuille

a mettre dans le code de la feuille

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A3")) Is Nothing Then MsgBox "une modification est faite" End If End Sub

---

Bonsoir,

merci, juste une précision car j'ai mis A1, A2, A3 alors que j'aurais voulu :

A1 and/or C1 and/or E1 c'est-à-dire avec un intervalle d'une colonne (ou plus)
J'ai essayé d'adapter la formule mais le pas-à-pas indique une erreur.

Code:

---

1 2	Range("A1";"C1";"E1") ou Cells("A1";"C1";"E1")

---

merci.

Bonsoir

Utilise la virgule comme séparateur

Code:

---

Range("A1,C1,E1")

---

Bonsoir tout le monde,

J'avais compris ceci...

Code:

---

If Range("A1").Value <> Range("A2").Value Or Range("A1").Value <> Range("A3").Value Then MsgBox "une modification est faite"

---

Bonne soirée !

Bonsoir,
Va pour le code avec la virgule.
Rq : ceci dit, la dernière formule ne marche pas.

Merci!:ccool: