ALIMENTER PLUSIEURS ComboBox EN CASCADE

[mordious]

Bonjour
le souhaite à l'aide d'un UserForm:

enregistrer dans la feuil1 les résultats choisis dans 4 ComboBox
ComboBox en cascades =alimentées dans l'onglet "base" "colonnes:"F,G,H,I"

Ci-joint fichier exemple

Cordialement

 

[cathodique]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Bonsoir,

Voici un fichier de Maître Boisgontier à adapter à tes 4 comboboxs. C'est pratiquement identique à ton fichier, il y a juste le nom de la feuille et les références des colonnes à modifier.

à toute fin utile voici le lien du site, une mine à exploiter.

 

[laetitia90]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

bonjour mordious , cathodique

une facon de l'ecrire.... acceptable sur tablo pas trop grand!!!

 

[mordious]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Bonsoir Cathodique,Laetitia90

Cathodique:
concernant le fichier de Maître Boisgontier
si la colonne Niveau2 "B" contient des dates , les ComboBox3 , ComboBox4 ne sont plus alimentées
je pense problème de format , mais comment y remédier sans modifier le format des cellules

Laetitia90
: mon tableau est de 4 colonnes et +/- 500 lignes

cela est il acceptable ?

cordialement

 

[laetitia90]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

re tous

jusqu'a 10000 lignes pas de souci

c'est seulement un pb... de lenteur vu que 4 combos donc 4 conditions a traiter

 

[mordious]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

re Laetitia90
merci
mais:
serait il possible de m'expliquer comment tu alimente les ComboBox
ex: "nom de la Feuil , colonnes ou ce trouves les données pour alimenter les ComboBOX "C"

Car je dois l'adapter à un fichier contenant plusieurs Feuil

Cordialement

 

[mordious]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Oups
désolé , pas vu le module de Classe1('jamais utilisé)

encore merci

 

[cathodique]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Bonsoir,

@Laetitia plus je fréquente ce forum, plus tu m'épates. En fait, avec un module de class, tu es plus "classe". Un très grand bravo.

@mordious: Je n'ai fait qu'adapter le code de Boisgontier (celui que je t'avais envoyé). Mais je te conseille de prendre celui de Laetitia.

Bonne soirée à tous.

 

[mordious]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Bonjour

merci cathodique


Laetitia90

j'ai adapté ton code à mon fichier final
le seul souci est que je souhaite que le contenu de la ComboBox2 soit copié dans la "Feuil1" en format date

cordialement

 

[cathodique]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Bonsoir,

Private Sub CommandButton1_Click()
Feuil1.Cells(4, 7) = Me.C1
Feuil1.Cells(4, 8) = CDate(Me.C2)
Feuil1.Cells(4, 9) = Me.C3
Feuil1.Cells(4, 10) = Me.C4

End Sub

Modifie le code du bouton de l'userform.

J'espère que c'est bien ce que tu veux.

Pour passer à la ligne suivante

Private Sub CommandButton1_Click()
Dim DLig As Long
DLig = Range("G" & Rows.Count).End(xlUp).Row + 1

Feuil1.Cells(DLig, 7) = Me.C1
Feuil1.Cells(DLig, 8) = CDate(Me.C2)
Feuil1.Cells(DLig, 9) = Me.C3
Feuil1.Cells(DLig, 10) = Me.C4

End Sub

 

[mordious]

Re : ALIMENTER PLUSIEURS ComboBox EN CASCADE

Bonsoir Cathodique
merci impeccable

modifié le code du CommandButton1_Click() , du classeur "CLASS"

bonne soiré et encore merci à vous deux