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

5 réponses

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    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
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > marco
         
        mettre ce code dans ton bouton: 

        Range("A3").Value = "sur chantier" 'adapter la cellule de reception
        0
  2. marco
     
    personne ? est-ce que ma demande est assez claire ? merci d'avance
    0
  3. 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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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
      1. marco > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        Bonjour,

        je viens de trouver sur internet. Il suffit de rentrer son nom dans le code.
        Encore un grand merci pour votre aide
        0
  4. 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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      C'est ce que tu as fait avec le commandbutton1!
      0

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

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

Discussions similaires

Bouton ON/OFF : O ou I, quel côté est allumé
Stargirlfr -
kaparzo23 -

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

18 réponses
Arrêt/démarrage via Bouton ON/OFF de l'alim
kekliard -
baaabu -

15 réponses
Quel est la touche shift sur le clavier
paoade -
PRIPRI -

8 réponses
Tri les lettres d'un mot par ordre alphabétique
labejau37 -
DjiDji59430 -

9 réponses