XL 2019 Combobox depuis une autre feuille

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
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour xtor
ne pourrais tu joindre un fichier exemple (quelques lignes anonymisees)de ce que tu as et de ce que tu veux.
Exemples , explications .
Il existe aussi des balises pour la présentation des codes!
Bonne journée
Jean marie
 

xtor

XLDnaute Nouveau
Bonjour xtor
ne pourrais tu joindre un fichier exemple (quelques lignes anonymisees)de ce que tu as et de ce que tu veux.
Exemples , explications .
Il existe aussi des balises pour la présentation des codes!
Bonne journée
Jean marie
Bonjour Jean-Marie,

Merci pour le conseil ...
Mon souhait serait d'avoir la combobox avec les champs de la feuille groups dans la feuille Price list.

Merci d'avance
 

Pièces jointes

  • Pricing test - Copie.xlsm
    131.7 KB · Affichages: 3

ChTi160

XLDnaute Barbatruc
Re
Je ne suis pas sur mon ordi ,mais si j'ai bien compris il te suffit de mettre ton bouton(qui lance l'affichage du userform) sur la feuille "Price liste" le userform y apparaîtra avec les données de la feuille "groups"
Jean marie
 

xtor

XLDnaute Nouveau
Re
Je ne suis pas sur mon ordi ,mais si j'ai bien compris il te suffit de mettre ton bouton(qui lance l'affichage du userform) sur la feuille "Price liste" le userform y apparaîtra avec les données de la feuille "groups"
Jean marie
oui c'est ca ... mais lorsque je fais cela le userform reprend les données de la feuille sur laquelle il se trouve, et non les données de la feuille d'origine ...
 

ChTi160

XLDnaute Barbatruc
Re
normal tu fais référence à la feuille source
Code:
With Sheets("Groups")
mais tu as oublié le point sur cette partie de la procédure.
VB:
'Tu as
ComboBoxPH2.AddItem Cells(1, i)
Il faut :
ComboBoxPH2.AddItem .Cells(1, i)

Sinon "Cells(1, i)" sans point devant , fait reference aux cellules de la feuille active.
Jean marie
 

xtor

XLDnaute Nouveau
Re
normal tu fais référence à la feuille source
Code:
With Sheets("Groups")
mais tu as oublié le point sur cette partie de la procédure.
VB:
'Tu as
ComboBoxPH2.AddItem Cells(1, i)
Il faut :
ComboBoxPH2.AddItem .Cells(1, i)

Sinon "Cells(1, i)" sans point devant , fait reference aux cellules de la feuille active.
Jean marie
Super je ne connaissais pas du tout cela ...
Par contre il me fait un debug ... maintenant à cause d'un dépassement de capacité ...
Si tu n'as pas le temps ne t'inquiète pas ... je cherche mais déjà un super merci !
 

Pièces jointes

  • Pricing test - Copie.xlsm
    112.7 KB · Affichages: 3

ChTi160

XLDnaute Barbatruc
Re
peut être dans la déclaration de ta variable "i"
Voir le nombre de lignes que tu as a traiter.si i est une variable de type Byteax 255
Voir dans l'aide les valeurs mini et maxi des variables "Integerer" et "Long" qui est celle qui peut avoir la plus grande valeur.
Depuis mon téléphone.
Jean marie
 
Dernière édition:

xtor

XLDnaute Nouveau
Repeut être dans la déclaration de ta variable "i"
Voir le nombre de lignes que tu as a traiter.si i est une variable de type Byteax 255
Voir dans l'aide les valeurs mini et maxi des variables "Integerer" et "Long" qui est celle qui peut avoir la plus grande valeur.
Depuis mon téléphone.
Jean marie
Avec LONG celà plante l'ordi et par contre avec INTEGER cela fonctionne mais seulement sur la feuille d'origine (groups)... je vais dormir dessus ;-)
 

ChTi160

XLDnaute Barbatruc
Re
Ton fichier est brouillon et pas très révélateur de ce que tu veux faire , mais Bon..... !
Ton fichier avec ce que j'ai modifié dans le Userform affiché via le Bouton "Insert PH3 discount"
Jean marie
 

Pièces jointes

  • Pricing test - Chti160.xlsm
    128.9 KB · Affichages: 5

Discussions similaires