inserer une valeur dans msgbox

Salut tout le monde,
J'aurais une question une peut délicate a vous donner j,ai passer des jours a chercher mais je n'est pas trouver des solutions.

j'ai 3 cellules A1,B1,C1 qui contiennent des valeurs (de 1 -4) et 3 autres sont vides A2,B2,C2.
je veux juste quand je sélectionne une cellule exp : A2 j'aurais un msgbox qui me sort le format suivant:
-titre
- la valeur saisi dans A1 est:
-Valeur A1
-voulez vous confirmer
-bouton oui ou non
si oui, la vleur de A1 sera copier dans A2 si non
une autre msg : Saisissez une autre cote.
.
.
.
.
même chose pour B1 et C1

j’espère que ma demande est clair, merci de me répondre d'avance.

Bonsoir.

Voici un code, à placer dans le module assicié à la feuille concernée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If (Target.Row = 2) And (Target.Column <= 3) Then 'si cellule = A2, B2 ou c2 If MsgBox("La valeur saisie en " & Target.Offset(-1, 0).Address(False, False) & " est : " & Target.Offset(-1, 0).Value & _ ". Voulez-vous confirmer?", vbYesNo, "Titre") = vbYes Then Target.Value = Target.Offset(-1, 0).Value Else Target.Value = InputBox("Saisissez une autre cote.", "Titre") End If End If End Sub

---

Cordialement,

PGZ

Bonsoir,
Pour intercepter la sélection d'une cellule, il faut utiliser la procédure événementielle Worksheet_SelectionChange
Par exemple ci-dessous, déclenchement du code si on sélectionne A1, A2 ou A3

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$A$1", "$A$2", "$A$3" ' Ici le code" End Select End Sub

---

Pour l'utilisation du msgbox, je te conseille la lecture de ce didacticiel

Merci, tout le monde c'est fait et ça marche bien pour les 2 méthodes.