Discussion :

[Sebphyto]

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

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sebphyto]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open() 
 Subgénérale 
 End Sub

Merci encore

Seb

[kiki29]

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

[gnain]

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

exactement!