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

marco -  
 marc -
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
A voir également:

5 réponses

Réponse 1 / 5
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
marco
 
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   Statut Contributeur Dernière intervention   729 > marco
 
mettre ce code dans ton bouton: 

Range("A3").Value = "sur chantier" 'adapter la cellule de reception
0
Réponse 2 / 5
marco
 
personne ? est-ce que ma demande est assez claire ? merci d'avance
0
Réponse 3 / 5
marco
 
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   Statut Contributeur Dernière intervention   729
 
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   Statut Contributeur Dernière intervention  
 
Bonjour,

je viens de trouver sur internet. Il suffit de rentrer son nom dans le code.
Encore un grand merci pour votre aide
0
Réponse 4 / 5
marco
 
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   Statut Contributeur Dernière intervention   729
 
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
Réponse 5 / 5
marc
 
Le code du bouton m'avez été donné.
Désolé je débute ; je viens de comprendre
merci ! l
0

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses
Suppression listes déroulantes
Archa -
Sam -

5 réponses
Supprimer liste déroulante Excel
SamAlex -
b@bd -

8 réponses
Effacer le contenue d'une cellule avec liste déroulante
lebutters -
lebutters -

7 réponses
Supprimer Liste déroulante
Good -
Good -

2 réponses