Discussion :

[abrmed]

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.

[pgz]

Bonsoir.

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

Code :

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

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

[Philippe Tulliez]

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 :

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

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

[abrmed]

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