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
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