Discussion :

[logiclogic]

Bonsoir,

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

Code :

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

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.

[zyhack]

Bonjour

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

a mettre dans le code de la feuille

Code :

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

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

[logiclogic]

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 :

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

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

merci.

[Pierre Fauconnier]

Bonsoir

Utilise la virgule comme séparateur

Code :

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

Range("A1,C1,E1")

[Antoniom]

Bonsoir tout le monde,

J'avais compris ceci...

Code :

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

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

Bonne soirée !

[logiclogic]

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

Merci!