XL 2021 Rétablir la valeur initiale d'une combobox

[hyule]

Bonjour,

ayant passé 2 heures sur google sans trouver une solution à mon problème VBA, je me décide de solliciter la communauté.

J'ai un onglet Excel dans laquelle j'ai une combobox ActiveX (avec une liste de valeur définie).
Lorsque je modifie la valeur de ma combobox (ex. j'avais initialement "2024" et je choisis "2025"), une fenêtre apparaît avec le message suivant: "voulez vous modifier la valeur? "
-> Si je clique sur "Ok", la fenêtre se ferme, la valeur dans ma combobox devient "2025" et la Macro1 se lance.
-> Si je clique sur "Annuler", la valeur dans ma combobox devient "2025"

Je souhaiterais que, lorsque je clique sur "Annuler" ou que je ferme la fenêtre, la valeur de la combobox redevienne la valeur initiale c'est à dire "2024" dans mon exemple.

Voici mon code actuelle:
Private Sub Combobox_Année_Change()
Dim rep As Integer
rep = MsgBox("voulez vous modifier la valeur?", vbOKCancel + vbExclamation, "Avertissement")
If rep = vbOK Then
Call Macro1
End If
End Sub

Merci d'avance pour votre aide 👍

 

[vgendron]

Bonjour
Comment remplis tu ton combo?
la première valeur est 2024 ?
dans ce ca, il suffit de mettre
Combobox.value="2024"
ou plus "pro" combobox.listindex=0

 

[hyule]

salut Vgendron,
merci pour ton retour 👍.

ce n'est pas exactement ce que je souhaite. J'ai pris "2024" comme exemple.

J'aimerais que, dans le cas où je clique sur "annuler", ce ne soit pas la valeur que j'ai modifiée qui apparaisse dans la combobox mais celle qui se trouvait avant la modification.


Exemple de ce que je souhaiterais:

merci

 

[hyule]

pour répondre à ta question, je remplis ma combobox en allant récupérer des valeurs dans une cellule:
Combobox_Année.List = Range("A2:A5").Value

 

[vgendron]

une image ne sert à rien sur ce forum,
il vaut mieux ton fichier excel (sans donnée perso)

 

[sylvanu]

Bonjour Hyule, Vgendron,
Un essai en PJ qui utilise une variable publique pour mémoriser l'année et un flag GO pour autoriser l'action ou non pour éviter toute ré entrance.
( il aurait été plus simple de fournir un fichier test, cela aurait éviter de refaire un fichier qui de toute façon est éloigné du votre )

 

[hyule]

Super 👍👍👍 Merci. Je vais regarder ça pour l'adapter à mon fichier
Désolé, c'est la 1ère fois que je poste qqchose. Je ne connais pas encore les bonnes pratiques.
Je vous tiens au courant

 

[hyule]

J'ai réussi à adapter le code à mon fichier Excel. Ca fonctionne parfaitement
Génial 😍 . merci bcp pour votre aide 👍

1) Bon, j'avoue ne pas avoir compris comment fonctionne le "GO" dans la macro . Lorsque je change la valeur dans la combobox, je ne vois pas comment ca fait le lien avec la procédure "essai" 🤷‍♀️.

2) J'ai modifié le code pour que l'opération se lance automatiquement à l'ouverture du fichier excel.
J'ai mis, en pièce jointe, 2 fichiers :
- le 1er qui fonctionne parfaitement. J'ai utilisé un "call essai" pour cela
- le 2ème où j'ai voulu intégrer directement la procédure "essai" dans "Private Sub Workbook_Open()". Malheureusement, ca ne marche pas. Pourquoi donc ? Mauvaise Déclaration de la variable ?

Bonne journée à vous 2