Macro qui change le texte d'une cellule plusieurs fois

Bonjour à tous,

J'aimerais réaliser une macro qui change le texte d'une cellule à chaque fois que je clique sur un bouton.

J'ai codé une macro qui ne me permet que de changer une fois le contenu d'une cellule.

J'aimerais que à chaque fois que je clique sur mon bouton, le texte des cellules E43 et E44 change à raison de 10 fois, puis retour à la première combinaison de texte à savoir IM9 pour la cellule E43 et IR470LY pour E44.

Exemple 1er clique:

E43=IM9 et E44=IR470LY

2ème clique, E43=I55 et E44=EN55LN

etc

Voici mon code actuel:

Sub TEST1()

Range("D43").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "IM9"

Range("E43").Select

ActiveCell.FormulaR1C1 = "IR470LY"

Range("E44").Select

End Sub

Merci d'avance!

Salut Egidio,

voici une façon de faire... que tu feras un plaisir de compléter si elle te convient puisque tu n'as pas eu la bonne idée de ne pas livrer tous les mots interchangeables!

'
sE43 = [E43]
sE44 = [E44]
[E43] = Switch(sE43 = "", "IM9", sE43 = "IM9", "I55", sE43 = "I55", "")
[E44] = Switch(sE44 = "", "IR470LY", sE44 = "IR470LY", "EN55LN", sE44 = "EN55LN", "")
'

A+

Merci curulis57!

Effectivement j'ai trouvé ça plus simple de ne mettre que les 2 premières valeurs (autant pour moi que pour vous)

En tout cas, tout marche comme sur des roulettes!

Bonne journée.