XL 2019 Combobox depuis une autre feuille

[xtor]

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

 

[ChTi160]

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]

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

 

[ChTi160]

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]

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]

Re
normal tu fais référence à la feuille source

With Sheets("Groups")

mais tu as oublié le point sur cette partie de la procédure.

'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]

Renormal tu fais référence à la feuille source mais tu as oublié le point sur cette partie de la procédure.

'Tu as
ComboBoxPH2.AddItem Cells(1, i)
Il faut :
ComboBoxPH2.AddItem .Cells(1, i)

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

j'essaie de suite ... j'avoue que je n'y aurais jamais pensé !

 

[xtor]

Malheureusement cela ne fonctionne pas encore complètement la listbox ne prend qu'une partie des champs ... je cherche

 

[xtor]

Re
normal tu fais référence à la feuille source

With Sheets("Groups")

mais tu as oublié le point sur cette partie de la procédure.

'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 !

 

[ChTi160]

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

 

[xtor]

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]

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