optionbutton et lancement sub

Bonjour à tous,

actuellement sur un projet, je souhaite écrire une condition avec un USF.

cela est parfaitement claire dans ma tête et par écrit, mais j'ai un souci pour le code.

Pour commencer voici le déroulement:

j'ai une sub générale
puis 3 sub : sub1, sub2 et sub3

Dans le sub générale je récupère 3 adresses internet
donc sub 1 = adresse 1
sub 2 = adresse 2
sub 3 = adresse 3
Et de ces 3 adresses je récupère des données sur ces pages internet


Voilà ce que j'aimerai:

A l'ouverture du fichier excel: exécuter sub générale automatiquement

Après clic sur bouton dans feuille "accueil" pour lancement usf (ça c bon)

Dans un premier temps, je dois cliquer dans un calendrier pour sélectionner une date
- si aujourd'hui clic sur "bouton importer à la date du jour"
- si date antérieure clic sur date choisie dans calendrier et clic sur bouton "importer à la date antérieure" de là:

Si optionbutton1 sélectionné (correspond au sub1) alors exécuter sub1
si optionbutton2 sélectionné (Sub2) alors exécuter sub2,
Idem pour Sub3

Merci d'avance pour vos lumières

Seb

Ps: vous pourrez peut-être me répondre: Mais pourquoi cela me paraît clair sur le papier et que j'ai du mal à coder tous types de VBA???? :cfou:

Bonjour,

Code:

---

1 2 3 4 5 6 7

if optionbutton1.value = true then sub1 elseif optionbutton2.value = true then sub2 elseif optionbutton3.value = true then sub3 end if

---

Bonsoir Gnain,

Tout simplement

Par contre pour lancer, non pas un module mais juste un Sub à l'ouverture du fichier dois-je utiliser ceci dans Thisworkbook:

Code:

---

1 2 3

Private Sub Workbook_Open() Subgénérale End Sub

---

Merci encore

Seb

Salut, à consulter : Les évènements du module objet ThisWorkbook, dans Excel

Citation:

---

Envoyé par Sebphyto

Par contre pour lancer, non pas un module mais juste un Sub à l'ouverture du fichier dois-je utiliser ceci dans Thisworkbook:

---

exactement!