Valeur sur liste déroulante déterminé par un bouton

Fermé
marco - 18 févr. 2020 à 11:04
 marc - 19 févr. 2020 à 17:12
Bonjour,

Je reviens encore vers vous pour une grande aide.
Je vous explique, j'ai un bouton sur lequel quand on clique une macro se déclenche enchainant une série d'actions enregistrées. Je souhaiterais aussi qu'en cliquant sur ce bouton une valeur précise dans une liste dynamique soit systématiquement sélectionnée.
Pour faire claire ma liste contient 4 valeurs :
"sur chantier" "à l'atelier" "pris par nos soins" et " ".
Je souhaiterais donc qu'a chaque clique sur ce bouton en plus de ma macro la valeur "sur chantier" apparaisse comme choix dans ma liste déroulante.
J’espère avoir été suffisamment clair. Merci d'avance

Configuration: Windows / Firefox 73.0

5 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 févr. 2020 à 11:21
Bonjour,

Tu ne nous dis pas quelle liste déroulante tu utilises!

voir ici une manière de faire:

https://www.excel-pratique.com/fr/cours/excel_liste_deroulante

1
il s'agit d'une liste déroulante créé à l'aide de données puis --> validation des données
et ciblant un tableau dans un autre onglet
Dans mon cas la source est : =INDIRECT("Tableau3[LIEU DE LIVRAISON]")

J'espère être clair
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > marco
19 févr. 2020 à 14:44
mettre ce code dans ton bouton:

Range("A3").Value = "sur chantier" 'adapter la cellule de reception
0
personne ? est-ce que ma demande est assez claire ? merci d'avance
0
Bonjour,

je me retrouve donc avec ce code

Sub savepdf()
Dim nom As String ' nom du pdf
Dim chemin As String 'chemin du dossier d'enregistrement
nom = Range("H6").Value 'adapter cellule
chemin = ActiveWorkbook.Path & "\" ' même dossier que le classeur
'enregistrement en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & nom, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub



Private Sub CommandButton1_Click()
savepdf
End Sub

Private Sub CommandButton2_Click()
Range("B16").Value = "SUR CHANTIER" 'adapter la cellule de reception
End Sub


Le premier code servant à un autre bouton.
Ce la fonctionne ; mais du coup comment lancer en même temps sur le bouton CommandButton2 la macro qui y était à l'origine ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 févr. 2020 à 15:59
Je ne vois pas où est le problème!

Private Sub CommandButton2_Click()
Range("B16").Value = "SUR CHANTIER" 'adapter la cellule de reception
'mettre ici la macro qui y était à l'origine 
End Sub
0
marco > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
19 févr. 2020 à 17:09
Bonjour,

je viens de trouver sur internet. Il suffit de rentrer son nom dans le code.
Encore un grand merci pour votre aide
0
Bonjour,

je débute en code.
je sais mettre une macro sur un bouton de formulaire mais pas l'insérer dans du code sur un bouton activex.
Merci d'avance pour votre aide.
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 févr. 2020 à 17:09
C'est ce que tu as fait avec le commandbutton1!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le code du bouton m'avez été donné.
Désolé je débute ; je viens de comprendre
merci ! l
0