XL 2013 je cherche à lier une combox qui est relié avec les onglets mois Janvier,févier ....

[redjack]

je n arrive pas affaire fonctionner mon formulaire de saisie
Private Sub UserForm_Initialize()
Dim Feuille As Worksheet
Dim colonne As Integer

'Nous parcourons toutes les feuilles du classeur
For Each Feuille In Worksheets

Select Case Feuille.CodeName 'Codename étant le nom de code de la feuille
'On retire dans la combobox les feuilles 1, 2 et 3
Case "Feuil1", "Feuil14", "Feuil0"

'et on prend toutes les autres
Case Else
'On charge les noms des feuilles dans la liste déroulante
Me.CboMois.AddItem Feuille.Name
End Select

Next Feuille

dernier_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
Private Sub CboMois_Change()
Cont1.Clear

Dim no_colonne As Integer, nb_lignes As Integer
no_colonne = CboMois.ListIndex + 7
nb_lignes = Cells(1, no_colonne).End(xlDown).Row
For s = 2 To nb_lignes
Cont1.AddItem Cells(s, no_colonne)
Next
il dois pourvoir fonctionné sur les 12 onglet
si vous avez une solutions ?
Merci pour votre aide .

 

[fanfan38]

Bonjour
Un fichier serai le bienvenu..
dernier_ligne et s ne sont pas déclarées
il manque un end sub avant Private Sub CboMois_Change()
c'est quoi cont1
tu ne sélectionnes pas de feuille

A+ François

 

[redjack]

Bonjour
Un fichier serai le bienvenu..
dernier_ligne et s ne sont pas déclarées
il manque un end sub avant Private Sub CboMois_Change()
c'est quoi cont1
tu ne sélectionnes pas de feuille

A+ François

merci de votre réponse j' ai joins le fichier pour avoir une idée de mon problème, quand je remplie le mois dans la combobox CboMois je désire que le calendrier ce charge dans la combobox Cont1 dans les douze onglets .

 

[redjack]

maintenant c est le filtre des rue qui cloche et je ne comprends pas, j ai pas le niveaux !!! dans 10 ans peu être
si une bonne Ame peut faire quelque chose ?

 

[fanfan38]

Bonjour
Tu te compliques trop la vie
Je t'ai fait des plages nommées dynamique (si la colonne + ou - longue, la plage se met à jour automatiquement)
ensuite dans les propriétés des combobox rowsource=plage
ensuite j'ai modifié CboMois.change du coup les colonnes avec les mois sont supprimées
17:08 corrige une erreur est revu nbcontrole ainsi que enregistrement des données
A+ François

 

[redjack]

merci beaucoup, je vais pouvoir avancer. Il me reste encore un problème à régler et je pourrais finaliser mon tableau.
merci pour votre aide est d'avoir pris du temps pour m'aider

Meilleures salutations
Cédric