P
petchy
Guest
bonjour le forum
eh oui,c'est encore moi toujours un probleme avec mes combos:
dans un USF j'ai 2 combo,un qui est alimenté dans la base "comboarti" celui là c'est bon et l'autre "comboref" qui doit s'alimenté quand je suis sur une autre feuille,mais comme j'ai une dizaine de feuilles et que l'USF sert pour toutes les feuilles
donc j'ai essayé se code,mais j'ai une erreur
Private Sub Comboref_Change()
Dim feuille As String
Dim maposition
maposition = Comboref.ListIndex + 2
feuille = ActiveSheet.Name
REF.Label17.Caption = Worksheets("Feuille").Range("e" & maposition & "")
REF.Label20.Caption = Worksheets("Feuille").Range("C" & maposition & "") & "€"
REF.Label22.Caption = Worksheets("Feuille").Range("B" & maposition & "")
End Sub
Private Sub UserForm_Activate()
Dim dernierARTICLES As String
Dim T
Dim feuille
feuille = ActiveSheet.Name
dernierARTICLES = Worksheets("base").Range("a1").End(xlDown).Address
REF.Comboarti.RowSource = "base!a2: " & dernierARTICLES & ""
REF.Comboref.RowSource = "feuille" '& dernierARTICLES & ""
CommandButton2.Visible = False
Init
End Sub
mercide me donné un coup de main
@ plus
petchy
eh oui,c'est encore moi toujours un probleme avec mes combos:
dans un USF j'ai 2 combo,un qui est alimenté dans la base "comboarti" celui là c'est bon et l'autre "comboref" qui doit s'alimenté quand je suis sur une autre feuille,mais comme j'ai une dizaine de feuilles et que l'USF sert pour toutes les feuilles
donc j'ai essayé se code,mais j'ai une erreur
Private Sub Comboref_Change()
Dim feuille As String
Dim maposition
maposition = Comboref.ListIndex + 2
feuille = ActiveSheet.Name
REF.Label17.Caption = Worksheets("Feuille").Range("e" & maposition & "")
REF.Label20.Caption = Worksheets("Feuille").Range("C" & maposition & "") & "€"
REF.Label22.Caption = Worksheets("Feuille").Range("B" & maposition & "")
End Sub
Private Sub UserForm_Activate()
Dim dernierARTICLES As String
Dim T
Dim feuille
feuille = ActiveSheet.Name
dernierARTICLES = Worksheets("base").Range("a1").End(xlDown).Address
REF.Comboarti.RowSource = "base!a2: " & dernierARTICLES & ""
REF.Comboref.RowSource = "feuille" '& dernierARTICLES & ""
CommandButton2.Visible = False
Init
End Sub
mercide me donné un coup de main
@ plus
petchy