Rapport de message :*
 

Re: REPORT MSGBOX

Titre du sujet : Re: REPORT MSGBOX
par myDearFriend! le 11/03/2017 12:30:11

Bonjour phicelou, le Forum,

 

Ok, je te propose donc une solution comme celle en pièce jointe.

 

On va simplifier un peu... wink

 

  1. Pour le bouton image que j'ai nommé « RAZ », une procédure VBA comme suit :

    DANS UN MODULE DE CODE STANDARD (ex : Module1)
    Sub RAZcombos()
        With Feuil1
            .ComboBox1.ListIndex = 0
            .ComboBox2.ListIndex = 0
            .ComboBox3.ListIndex = 0
        End With
    End Sub
    Ensuite je lie cette macro au bouton sur la feuille.
     
  2. Pour la gestion des ComboBox et résultats en colonne K, je supprime d'abord tout le code VBA présent dans ton module de code Feuil1 et je remplace tout ça par les manipulations suivantes :
     
    • Je nomme la plage de cellules correspondant à ta liste des Villes en onglet "Params", en lui donnant le nom de "ListeVilles" par exemple (voir Tuto : Comment nommer une plage de cellules ?)
       
    • Ensuite, je joue simplement sur les propriétés des ComboBox :
       
      1. Depuis le Ruban Excel, j'entre d'abord en Mode Création.
      2. Je sélectionne la ComboBox1 et je clique ensuite sur Propriétés.
      3. je modifie les propriétés suivantes :
        • LinkedCell : K2  (adresse de la cellule résultat)
        • ListFillRange : ListeVilles (le nom de la plage nommée)
        • Pendant que j'y suis, je rectifie aussi la propriété "Style" en "fmStyleDropDownList". Ainsi, l'utilisateur n'a plus la possibilité de saisir manuellement dans la Combo, mais est obligé de choisir dans la liste !

          .
          .. et je fais la même chose avec les 2 autres ComboBox.

 

En espérant avoir répondu à ton problème.

 

Bien cordialement,