xtor
XLDnaute Nouveau
Bonjour,
Je m'en remets à vous car cela fait quelques heures que je cherche la solution parmi tous les tutos ou autres exemples mais rien ne fonctionne.
Sur une feuille "groups" j'ai les éléments de ma combobox.
Le bouton pour lancer la combobox fonctionne correctement sur cette feuille.
Je voudrais déplacer ce bouton sur ma feuille "liste de prix", mais alors je ne vois plus les champs définis au départ.
J'ai bien essayé de faire un appel vers la feuille de base ... mais cela ne fonctionne pas.
Auriez-vous une idée ?
Un grand merci d'avance
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("Groups")
For i = 30 To 34
ComboBoxPH2.AddItem Cells(1, i)
Next
End With
End Sub
Private Sub ComboBoxPH2_Change()
Dim colonne As Integer, nbLignes As Integer
Dim Vdisc As String
ListBox_PH4.Clear
With Sheets("Groups")
colonne = ComboBoxPH2.ListIndex + 30
If colonne = 0 Then Exit Sub
nbLignes = Cells(1, colonne).End(xlDown).Row
For i = 2 To nbLignes
ListBox_PH4.AddItem Cells(i, colonne)
Next
End With
End Sub
Private Sub CommandButton_valider_Click()
Dim i As Integer
Dim j As Integer
With Sheets("Groups")
i = Cells(1, 4).End(xlDown).Row
j = i + 1
Cells(j, 4) = ComboBoxPH2
Cells(j, 5) = ListBox_PH4
Cells(j, 6) = Vdisc
End With
End Sub
Je m'en remets à vous car cela fait quelques heures que je cherche la solution parmi tous les tutos ou autres exemples mais rien ne fonctionne.
Sur une feuille "groups" j'ai les éléments de ma combobox.
Le bouton pour lancer la combobox fonctionne correctement sur cette feuille.
Je voudrais déplacer ce bouton sur ma feuille "liste de prix", mais alors je ne vois plus les champs définis au départ.
J'ai bien essayé de faire un appel vers la feuille de base ... mais cela ne fonctionne pas.
Auriez-vous une idée ?
Un grand merci d'avance
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("Groups")
For i = 30 To 34
ComboBoxPH2.AddItem Cells(1, i)
Next
End With
End Sub
Private Sub ComboBoxPH2_Change()
Dim colonne As Integer, nbLignes As Integer
Dim Vdisc As String
ListBox_PH4.Clear
With Sheets("Groups")
colonne = ComboBoxPH2.ListIndex + 30
If colonne = 0 Then Exit Sub
nbLignes = Cells(1, colonne).End(xlDown).Row
For i = 2 To nbLignes
ListBox_PH4.AddItem Cells(i, colonne)
Next
End With
End Sub
Private Sub CommandButton_valider_Click()
Dim i As Integer
Dim j As Integer
With Sheets("Groups")
i = Cells(1, 4).End(xlDown).Row
j = i + 1
Cells(j, 4) = ComboBoxPH2
Cells(j, 5) = ListBox_PH4
Cells(j, 6) = Vdisc
End With
End Sub
Dernière édition: