[VBA] ComboBox inter-Actives

TheLio · 4 Novembre 2008

Bonjour à tous, ça fait un bail,
merci pour vos messages suite au post de Brigitte, notre présentatrice Météo ptéférée 🙂

Je ne joins pas de fichier, car il est lourd et je veux apprendre (ça va pas être facile)

Je souhaite alimenter un USF (multipage) avec 109 ComboBox faisant référence à 109 colonnes d'une base de donnée
Lorsque l'on renseigne le premier (Combobox1 = N° de chambre) les autres devraient correspondre directement aux données sur la même ligne
Les 10 premiers sont des données personnelles (pas de références à une liste établie)
50% des suivants font appels à des listes de choix sur différentes feuilles
Les autres 50% sont libres (écriture)

Alors, si vous avez des fichiers commentés, même plus petits que 109 ComboBoxpour que je puisse me perfectionner, c'est très volontiers.
J'ai passé quelques heures à chercher sur le forum, mais les rares exemples qui correspondaient, n'était pas commentés et de ce fait difficilement adaptables à mon cas.
En vous souhaitant une agréable journée à toutes et à tous.
Lio

Lii · 4 Novembre 2008

Re : [VBA] ComboBox inter-Actives

Bonsoir Tous,

en revenant aux "Combo", un autre exemple de programmation (basique donc simple à interpréter me semble-t-il).

Remarque : fait avant les derniers échanges !

TheLio · 4 Novembre 2008

Re : [VBA] ComboBox inter-Actives

Hasco à dit:
Pour le moment je ne fais pas tout le travail mais me contente de te donner des exemples.

Et bien je te remercie, car avec ceci, je pense avoir compris Beaucoup de choses.
Un petit bouton valider dans chaque frames et le tour sera joué 😉
Il me reste à le faire pour le reste du tableau, mais j'ai pigé (enfin je crois🙄)
Encore merci à toi, aux autres et bien sûr au forum.
A++
pour d'autres questions {et quelques fois des réponses (là je parle pour moi 😛)}
Lio
Edit, Merci Li je jette un oeil A++

Guest · 4 Novembre 2008

Re : [VBA] ComboBox inter-Actives

Re Lio,

Tu peux aussi faire un bouton Valider Général en dehors des frames et enregistrer lorsque tous les changements on été effectués, en parcourant tous les contrôles du userforms.

A+

TheLio · 5 Novembre 2008

Re : [VBA] ComboBox inter-Actives

HEllo,
Décidemment, je n'avance pas aussi bien que je le pensais.

Code:

...
Next obj
        For Each obj In frPortions.Controls
            If Left(obj.Name, 9) = "cbPortion" Then
                obj.Text = Sheets("BD").Cells(ligne, Val(obj.Tag)).Text
            End If
            [COLOR="Red"]Next
        For Each obj In frAbrev_Regime.Controls
            If Left(obj.Name, 8) = "cbRegime" Then
                obj.Text = Sheets("BD").Cells(ligne, Val(obj.Tag)).Text
            End If
        Next[/COLOR]    End If
End Sub

Je dois avoir un for ou un next mal placé, ou alors je suis tout faux, mais là, la suite des combo ne synchronise pas.
Une série de "Re"-merci d'avance
Lio

Guest · 5 Novembre 2008

Re : [VBA] ComboBox inter-Actives

Bonjour Lio,

Code:

For Each obj In frPortions.Controls
     If Left(obj.Name, 9) = "cbPortion" Then
        obj.Text = Sheets("BD").Cells(ligne, Val(obj.Tag)).Text
     End If
[COLOR=red][COLOR=black]Next[/COLOR] [/COLOR][COLOR=seagreen]' obj in frPortions.Controls[/COLOR]
 
[COLOR=black]For Each obj In frAbrev_Regime.Controls[/COLOR]
[COLOR=black]      If Left(obj.Name, 8) = "cbRegime" Then[/COLOR]
[COLOR=black]           obj.Text = Sheets("BD").Cells(ligne, Val(obj.Tag)).Text[/COLOR]
[COLOR=black]       End If[/COLOR]
[COLOR=black] Next[/COLOR] ' [COLOR=seagreen]obj in frAbrev_Regime.Controls[/COLOR]

Un End if qui trainait Non?
Sinon je ne vois pas et il me faut la macro entière pour voir.

A+

[VBA] ComboBox inter-Actives

TheLio

XLDnaute Accro

Lii

XLDnaute Impliqué

Pièces jointes

TheLio

XLDnaute Accro

Guest

Guest

TheLio

XLDnaute Accro

Guest

Guest

[VBA] ComboBox inter-Actives

TheLio

XLDnaute Accro

Lii

XLDnaute Impliqué

Pièces jointes

TheLio

XLDnaute Accro

Guest

Guest

TheLio

XLDnaute Accro

Guest

Guest

Privacy & Transparency

Privacy & Transparency