Microsoft 365 changer de valeur avec un clique

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
82
Réponses
9
Affichages
256
Retour