Discussion :

[Maxim0]

Bonjour,

j'explique mon problème, j'ai fait des macros qui importe des données de plusieurs bases(excel,access..) à mon classeur, pour l'instant tous fonctionne bien, je voulais ajouter une interface en vu d'une automatisation de l'extraction.

Pour l'instant j'ai fait des boutons d'importation pour toutes les données et les date à choisir pour l'importation .
je voulais savoir est-ce que c'est je peux modifier les macro de l'interface pour faire ceci :

Quand je clicke sur les nom des données à importer ça active le bouton import et la date de l'importation (le bute c'est avoir un seul bouton qui fait l'importation).

vous trouvez ci joint un fichier démo .

Merci pour vos aide.
Max,

[SfJ5Rpw8]

pas vraiment clair voir ici

[Maxim0]

Bonjour,

J'ai une liste des noms de données à importer sur la feuil 1 de mon classeur, je veux juste faire une macro qui active un bouton "import" lorsque je choisie un nom des données à importer, après si je click sur le bouton "import" j’importe les données choisis.

le but c'est faire un seul bouton qui fait l’imploration( le code de l'importation est déjà fait )

Merci d'avance

[n0vocaine]

Bonjour

J'ai téléchargé ton fichier, j'ai bien regardé mais je ne vois pas trop ou tu veux en venir.

Si je résume, tu veux un "Userform" qui, qu'en tu sélectionnes des données à importer, dans une "listebox" par exemple réalise automatiquement l'importation?

[Maxim0]

bonjour,

Quand je sélectionne les données à importer, le bouton "import" s'active et la date s'active, ceci me permet de clicker sur le bouton import et choisir la date, si je ne choisie pas des données à importer le bouton "import" et la date seront inactives.
Je vous informe que j'ai déjà fait le code de l'automatisation de l'importation, ce qui me reste c'est faire une macro qui permet d'activer du bouton "import" et la date une fois la sélection des données à importer est faite.

Merci d'avance

[SfJ5Rpw8]

si ton problème et de rendre actif ou inactif un bouton utilise la propriété enable:


CommandButton1.Enabled

[n0vocaine]

La date tu l'active part rapport à quels critères?

Voici un petit fichier avec un Userform qui remplace tes boutons.
Bien que je ne comprend toujours pas pourquoi physiquement le bouton doit être activé je te l'ai mis dans le code de l'userform.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub listbox1_Change()
Dim i As Integer
For i = 0 To Me.ListBox1.ListCount
    If Me.ListBox1.Selected(i) Then
        MsgBox "Affectation des valeurs à la combobox"
        Me.ComboBox1.ListIndex = i
        MsgBox "Lancement du bouton importation"
        Me.CommandButton1.Enabled = True
        Stop ' un stop pour que tu vois si cela te convient
        UserForm1.Hide
        Exit For
    End If
Next i
End Sub
Private Sub userform_initialize()
Dim i As Integer
For i = 1 To 9
    Me.ListBox1.AddItem "Données 0" & i
    Me.ComboBox1.AddItem "20" & (9 + i)
Next i
End Sub

[Maxim0]

Bonjour,
Ce que je cherche c'est simple ,comme je maîtrise pas les interfaces sur vba je n'arrive pas à le faire. le critère de chois de la date c'est juste le sélection des données .(la date c'est juste l'année de 2010 à 2015)

voila un petit résumé de l'interface:
1-choisir les données à importer sur la liste(données 01, données02,données03..)
2- Click sur les données sélectionnée
3- le bouton "import" et le choix de le date d’importation s'activent automatiquement
4- choisir la date et Click sur le bouton "import" pour faire l'importation des données sélectionnés.

les macro à faire:
Sur les données à sélectionnés :quand je click sur les données de la liste le bouton "import" s'active et la date aussi
sur la bouton "import": le code je l'ai déjà faite ,il faut juste ajouter une condition "if" sur les données sélectionnées( données01 ou données 02 ou...) pour les importer


Merci d'avance.
Cdt,
Max

Bonjourn 0vocaine,

Merci pour votre aide, en faite je veux faire l'interface sur la feuil 1, pour userform je ne le maîtrise pas

vous trouvez en pièce jointe un fichier qui explique interface que j'ai faite avant et ce je veux faire maintenant.
Merci d'avance.

[n0vocaine]

3- le bouton "import" et le choix de le date d’importation s'activent automatiquement
4- choisir la date et Click sur le bouton "import" pour faire l'importation des données sélectionnés.

les macro à faire:
Sur les données à sélectionnés :quand je clic sur les données de la liste le bouton "import" s'active et la date aussi
sur la bouton "import": le code je l'ai déjà faite ,il faut juste ajouter une condition "if" sur les données sélectionnées( données01 ou données 02 ou...) pour les importer

Désolé mais se n'est vraiment pas claire pour moi, peux etre pour quelqu'un autre? Alors je veux bien que tu ne connaisses pas le langage VBA mais la je ne comprend pas se que tu veux. C'est toujours plus dur de faire une application pour quelqu’un autre (Je ne me cherche d'excuse ).

Donc je vais à nouveau reformuler ta demande pour voir si j’ai bien compris.

Tu as déjà un code d'extraction de données (Donc tu touches un minimum en VBA ou en langage de programmation autre)
Tu souhaites que quand tu clic sur un type de donnée, un bouton avec le choix de la date apparaisse et seulement qu'après l'extraction se lance.

Si c'est bien cela, qu'elle influence à le choix de la date sur l'opération d'extraction?

sur la bouton "import": le code je l'ai déjà faite ,il faut juste ajouter une condition "if" sur les données sélectionnées( données01 ou données 02 ou...) pour les importer

Tu as déjà fait le code ?!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
private sub workbooks_open()
ListBox1.AddItem ("Données 01")
ListBox1.AddItem ("Données 02")
ListBox1.AddItem ("Données 03")
end sub
 
Private Sub ListBox1_Click()
Call import
End Sub
 
Sub import()
Dim i As Integer
    For i = 0 To ListBox1.ListCount
    If Listbox1 = "Données 01" Then
        MsgBox "Lancement extraction données 01, a toi de mettre ton code d'extraction"
         Exit For
    ElseIf Listbox1 = "Données 02" Then
        MsgBox "Lancement extraction données 02, a toi de mettre ton code d'extraction"
        Exit For
    End If
Next i
End Sub

Voila un code qui prend en charge le choix des données dans une liste, et qui après sélection reconnait quel type de données et choisi et lance l’extraction.

[Maxim0]

Bonjour,

Merci n0vocaine pour ton aide, j'ai expliqué mal mon problème. j'ai une question, est -ce que je peux faire une macro sur un bouton qui fait appel à un code ou une fonction et l'exécute .
cette fonction ou ce code fait l'importation des données.

Et je voulais savoir ou se trouve "ListBox_Click()" sur le dévellpeur.

Code :

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

1
2
3
4
Sub Bouto1_Clic()
if feuil1.range("F100")=1 then  'appel une fonction ( sub fonction1()) ' 
if feuil1.range("F100")=2 then  'appel une fonction ( sub fonction2()) ' 
..

end sub

[n0vocaine]

j'ai une question, est -ce que je peux faire une macro sur un bouton qui fait appel à un code ou une fonction et l'exécute .
cette fonction ou ce code fait l'importation des données.

Pour créer un bouton sur un feuille de calcul qui exécute une macro

Code :

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

1
2
étape 1: Créer un bouton sur ta feuille de calcul. Cela peut ce faire avec l'onglet développeur ou juste en créant une forme (type rectangle avec insertion forme)
étape 2: Clic droit sur le bouton ou la forme que tu viens de créer. affecter une macro et la tu cherches la macro que tu veux lancer à chaque fois que tu clics sur le bouton.

Et je voulais savoir ou se trouve "ListBox_Click()" sur le dévellpeur.

Il existe que si tu l'as créé. Pour le créer tu vas dans l'onglet développeur tu clics sur les outils et tu cherches "listbox".

PS: Pour ta première question c'est vraiment du réchauffé, une vulgaire recherche sur google [ame="http://www.google.fr/search?q=creer+un+bouton+excel+execution+macro&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:fr:official&client=firefox-a#pq=creer%20un%20bouton%20excel%20execution%20macro&hl=fr&cp=11&gs_id=1a&xhr=t&q=affectation+macro+bouton&pf=p&sclient=psy&client=firefox-a&hs=9ki&rls=org.mozilla:fr%3Aofficial&source=hp&pbx=1&oq=affectation+macro&aq=0v&aqi=g-v5&aql=&gs_sm=&gs_upl=&bav=on.2,or.r_gc.r_pw.&fp=1c698e9e3a22cb93&biw=1166&bih=524"](ici)[/ame] aurait suffit à répondre s'en parlé des réponses qui existe sur le forum.