Changer contenu dans une cellule

[BRUNO62]

Bonjour,

Je besoin d'aide,
A partir de la cellule A1, à chaque clic je souhaite voir apparaître soit "COUVERTURE" ou "REAPPRO" ou "RUPTURE"
Est-ce possible ?
Merci, @+

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If R.Address <> "$a$1" Then Exit Sub
R = IIf(R = "COUVERTURE", "REAPPRO", "RUPTURE")

R(2, 1).Select
End Sub

 

[Chris401]

Re : Changer contenu dans une cellule

Bonjour

Essaye avec ce code (il n'est pas de moi)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mots = Array("COUVERTURE", "REAPPRO", "RUPTURE")
If Target.Address = "$A$1" Then
With Target
  p = Application.Match(Target, mots, 0)
  If Not IsError(p) Then
    If p = UBound(mots) + 1 Then p = 0
  Else
    p = 0
  End If
  Target = mots(p)
  Target.Offset(0, 1).Select
  End With
  End If
End Sub

Cordialement
Chris

 

[BRUNO62]

Re : Changer contenu dans une cellule

Bonjour Chris401,

Merci, à toi et à celui qui a fait ce code.
C'est Ok.
Bon Week
@+