Combobox sur feuille actve

[reinruof77]

bonjour a tous

je suis en train de créer un fichier pour faciliter la saisie et je voudrais savoir si quelqu'un sait comment je peux récupérer les donnée de la feuille active plutôt que de la feuille listing.

je vous joint mon fichier pour que cela soit plus clair .

merci de votre aide

 

[Papou-net]

Re : Combobox sur feuille actve

Bonsoir reiruof77,

Peut-être comme ceci, tout simplement:

Private Sub userform_initialize()
    For Each f In Worksheets
        For i = 1 To 12
            m = Choose(i, "Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")
            If f.Name = m Then
                ComboBox3.AddItem m
            End If
        Next i
    Next f

   Set f = ActiveSheet '****************
   Set dico = CreateObject("Scripting.Dictionary")
   For Each C In f.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
      dico(C.Value) = C.Value
   Next C
   temp = dico.keys
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox1.List = temp
 End Sub

Cordialement.

 

[reinruof77]

Re : Combobox sur feuille actve

déjà merci de me répondre aussi rapidement je suis en voiture actuellement je regarde ça arrivé à la maison
merci encore ton aide et je te tiens au courant.

 

[herve62]

Re : Combobox sur feuille actve

Bonsoir
juste une idée ! , et si tu mettais la valeur de la "Combo 3" ( le mois) que t'affectes à une variable et faire
With Sheets(Ta_variable_mois) au lieu de LISTING dans la Combo 2 ?
A tester

 

[reinruof77]

Re : Combobox sur feuille actve

Super ça fonctionne merci ensuite
Tout d'abord parce que je ne suis pas très doué en vba
si tu veux regarder je t en pris fait toi plaisir.

Je me suis mi sur la validation la et c'est pas facile car je doit renvoyer les données modifier au bon endroit mais aussi si le nom et ou le prenon n existe pas créer une nouvel ligne.
Je suis preneur de toutes propositions.

 

[herve62]

Re : Combobox sur feuille actve

Bonjour
pour ta 1ere demande c'était facile et court : j'ai fait comme je t'avais dit
J'ai amélioré l'alimentation de ta Box "MOIS" on fait sheets.count et .name cela évite beaucoup d'erreurs !
voir dans Initialize
ch_mois est la variable qui va servir pour aller récupérer les valeurs dans la feuille choisie (mois)
J'en suis resté là car je ne vois plus bien ou tu veux en venir
Il faudrait un ex. concret style : J'ai ça ....... et je veux ça ..........
Conseil : donne un nom qui parle à tes BOX c'est plus facile et rapide pour s'y retrouver dans le code ;j'en ai fait une > Mois
ajouter les SET.FOCUS pour aller direct ( curseur) dans l'ordre des box que tu veux , on fait TAB et ça se déplace tout seul ; on peut faire aussi via l'USF : clic droit dedans (dans le VBE) > ordre de tabulation et là on met l'ordre que l'on veut et on s'aperçoit vite fait qu'un nom de Box est utile !!!!!
Bon courage , revient si ça coince

 

[herve62]

Re : Combobox sur feuille actve

Re
Bon je pense que c'est fini à ce niveau
A toi de tester et de critiquer
J'ai supputé que tu voulais récupérer les données d'un mois pour X et mettre dans LISTING
Si ce X est dans le mois mais pas dans LISTING il faut ajouter une ligne
J'ai ajouté pas mal de commentaires dans le VBA pour faciliter la compréhension
Bonne soirée