Microsoft 365 changer de valeur avec un clique

Dranreb

XLDnaute Barbatruc

• 13 Septembre 2024

• #2

Bonjour.
Affectez cette macro à votre forme :

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Septembre 2024

• #3

Bonjour @achraf26 🙂,

Pour le fun et pour saluer @Dranreb 😉 :

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Septembre 2024

• #4

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 :

VB:

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

 

Pièces jointes

• achraf26- toupie- v1.xlsm

  18.2 KB · Affichages: 5

Dernière édition: 13 Septembre 2024

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 22 Octobre 2024

• #5

mapomme à dit:

Bonjour @achraf26 🙂,

Pour le fun et pour saluer @Dranreb 😉 :

VB:

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

Cliquez pour agrandir...

Bonjour Pomme,
Je viens de voir votre solution, je l'ai teste fonctionne super bien par contre pour un ordre d'alphabet :

VB:

[B5] = Split("A B C M T")((Asc([B5]) - 64) Mod 5)

que veux dire le "Mod" ?
Merci

 

Dernière édition: 22 Octobre 2024

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Octobre 2024

• #6

Bonsoir.
Mod est un opérateur VBA qui renvoie le reste de la division entière du terme à sa gauche par celui à sa droite.

 

Vote positif 0 Vote négatif