Microsoft 365 Userform avec liste déroulante et réslutat

Pounet95 à dit:

Bonsoir,
Pour mettre les listes dans les combobox, remplacer le code actuel par celui-ci dessous
Les noms des listes dans la feuille Paramètres ont été créés manuellement.Pour les créer automatiquement, ajouter la sub et la fonction ci-dessous dans le module

Dans le Thisworkbook, évènement Open

Code:

Private Sub Workbook_Open()
    MAJ_Listes_Combo
End Sub[

'----------------------------------------------------------------
' Remplacer dans l'évènement Initialize de l'USF
'----------------------------------------------------------------
Private Sub UserForm_Initialize()
    'Mettre les noms des Listes utilisées dans les combobox
    With combo_Pays
        .RowSource = "PaysLoc"
        .ListIndex = -1
    End With
    With combo_Moteur
        .RowSource = "Carburant"
        .ListIndex = -1
    End With
    With combo_Type
        .RowSource = "TypeAuto"
        .ListIndex = -1
    End With
    txt_nb_Jours.Text = ""
    lbl_Loueur.Caption = ""
End Sub


'----------------------------------------------------------
' A mettre dans le module
'----------------------------------------------------------
Sub MAJ_Listes_Combo()
    Dim derLig      As Long
    Dim rng         As Range
    Dim nomRng      As String
   
    With Sheets("Paramètres Listes")
        'Liste Pays en colonne A
        derLig = .Range("A10000").End(xlUp).Row
        Set rng = .Range("A2:A" & derLig)
        nomRng = "PaysLoc"
        MAJ_Plage nomRng, rng
       
        'Liste Carburant en colonne C
        derLig = .Range("C10000").End(xlUp).Row
        Set rng = .Range("C2:C" & derLig)
        nomRng = "Carburant"
        MAJ_Plage nomRng, rng
       
        'Liste Type Auto en colonne E
        derLig =. Range("E10000").End(xlUp).Row
        Set rng =.Range("E2:E" & derLig)
        nomRng = "TypeAuto"
        MAJ_Plage nomRng, rng
    End With
End Sub

Function MAJ_Plage(strNom As String, plgRng As Range)
    On Error Resume Next
    ThisWorkbook.Names.Delete strNom
    ThisWorkbook.Names.Add Name:=strNom, RefersTo:=plgRng
End Function

Cliquez pour agrandir...

Pounet95 à dit:

Bonsoir,
Il ne faut pas hésiter à faire des sauvegardes et ne détruire les fichiers trop anciens qu'à coup sûr.
Ca permet de récupérer des erreurs !
Bon courage pour la suite.

Cliquez pour agrandir...

bbb38 à dit:

Bonjour ExcLnoob, Pounet95, le forum,
Une autre solution à tester.
Dans le formulaire, j’ai ajouté le Coût moyen du carburant pour une journée. Actuellement, celui-ci est fixe.
Lorsque le coût véhicule choisi est égal à 0, j’ai remplacé celui-ci par 5 000, afin que le Coût moyen total soit très élevé. A revoir pour la présentation.
Cordialement,
Bernard

Cliquez pour agrandir...