Microsoft 365 changer de valeur avec un clique

[achraf26]

bonjour, je voudrais changer de valeur de A à D, a chaque fois je clique sur le bouton (Changer)
est ce que c'est fesable ?
Merci pour votre aide

 

[Dranreb]

Bonjour.
Affectez cette macro à votre forme :

Sub ChangerH3()
   ActiveSheet.[H3].Value = Chr$((Asc(ActiveSheet.[H3].Value) - 64) Mod 4 + 65)
   End Sub

 

[mapomme]

Bonjour @achraf26 ,

Pour le fun et pour saluer @Dranreb :

Sub ChangerH3()
   [h3] = Split("A B C D")((Asc([h3]) - 64) Mod 4)
End Sub

 

[mapomme]

Re,

Une généralisation à une liste quelconque :

• liste en A1 sous forme de tableau structuré
• la liste doit être sans doublon

Le code dans Module1 :

Sub Suivant()
Dim xrg As Range, i&
   Set xrg = Range("a1").ListObject.ListColumns(1).Range
   For i = 2 To xrg.Count
      If xrg(i, 1).Value = [h3].Value Then Exit For
   Next i
   If i >= xrg.Count Then i = 2 Else i = i + 1
   [h3].NumberFormat = Cells(i, 1).NumberFormat: [h3] = Cells(i, 1)
End Sub