K
KGreg
Guest
Bonjour à tous
Je suis nouveau, et oui encore un et j'aurais besoin d'un petit coup de main. Merci d'avance.
Je vous expose donc mon probleme.
Voila j'ai 2 combobox qui represente un fournisseur et l'adresse de ce fournisseur.
Les liste sont dans une feuille excel.
Les colonnes sont E pour le fournisseur et F pour l'adresse de ce fournisseur.
J'arrive à afficher le nom et l'adresse séparement mais ce qui serait bien ca serait d'afficher automatiquement l'adresse du fournisseur dès que l'on choisit un nom de fournisseur.
voici ce que j'ai:
Private Sub Fabriquant_DropButtonClick()
Dim fin_liste_fabriquant As String
colonne = 'E'
Sheets('Liste').Activate
fin_liste_fabriquant = Range(colonne & '1').End(xlDown).Address
Fabriquant.RowSource = colonne & '1:' & fin_liste_fabriquant
End Sub
Private Sub AdresseFab_DropButtonClick()
Dim fin_liste_AdresseFab As String
colonne = 'F'
Sheets('Liste').Activate
fin_liste_AdresseFab = Range(colonne & '1').End(xlDown).Address
AdresseFab.RowSource = colonne & '1:' & fin_liste_AdresseFab
End Sub
Est-ce que je dois garder les 2 procédures ou je les mixe en une.
Merci pour votre aide.
KGreg
Je suis nouveau, et oui encore un et j'aurais besoin d'un petit coup de main. Merci d'avance.
Je vous expose donc mon probleme.
Voila j'ai 2 combobox qui represente un fournisseur et l'adresse de ce fournisseur.
Les liste sont dans une feuille excel.
Les colonnes sont E pour le fournisseur et F pour l'adresse de ce fournisseur.
J'arrive à afficher le nom et l'adresse séparement mais ce qui serait bien ca serait d'afficher automatiquement l'adresse du fournisseur dès que l'on choisit un nom de fournisseur.
voici ce que j'ai:
Private Sub Fabriquant_DropButtonClick()
Dim fin_liste_fabriquant As String
colonne = 'E'
Sheets('Liste').Activate
fin_liste_fabriquant = Range(colonne & '1').End(xlDown).Address
Fabriquant.RowSource = colonne & '1:' & fin_liste_fabriquant
End Sub
Private Sub AdresseFab_DropButtonClick()
Dim fin_liste_AdresseFab As String
colonne = 'F'
Sheets('Liste').Activate
fin_liste_AdresseFab = Range(colonne & '1').End(xlDown).Address
AdresseFab.RowSource = colonne & '1:' & fin_liste_AdresseFab
End Sub
Est-ce que je dois garder les 2 procédures ou je les mixe en une.
Merci pour votre aide.
KGreg