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

redjack

XLDnaute Nouveau
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 .
 

Pièces jointes

  • Classeur XLD,xlsm.xlsm
    126.3 KB · Affichages: 8
Dernière édition:

redjack

XLDnaute Nouveau
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 .
 

fanfan38

XLDnaute Barbatruc
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
 

Pièces jointes

  • Classeur XLD,xlsm.xlsm
    119.7 KB · Affichages: 9
Dernière édition:

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25