XL 2019 Affichage résultat combobox dans cellule

[farid]

Bonsoir, en PJ fichier que j'ai trouvé et modifier , cependant je n'arrive pas a faire afficher le résultat de la combobox2 dans cellule d4. Un petit coup de main sera le bien venu.
par avance, merci

 

[Jacky67]

Bonsoir, en PJ fichier que j'ai trouvé et modifier , cependant je n'arrive pas a faire afficher le résultat de la combobox2 dans cellule d4. Un petit coup de main sera le bien venu.
par avance, merci

Bonjour,
Une piste en PJ
J'ai rendu les listes dynamique et effectué quelques modifications
**Pj modifiée

 

[juvaxe]

Bonjour

Ci-joint un classeur en retour qui semble fonctionner .

1 - Dans le code du userform j'ai ajouté un "ComboBox2_Change" pour renseigner la cellule D4 lorsqu'on sélectionne une valeur dans combobox2.

2 - J'ai rencontré une difficulté en essayant de mettre davantage de valeurs dans la colonne A de la feuille Info. La combobox1 n'affichait toujours que les 3 premières valeurs. J'ai remplacé le userform_initialize par une routine que je maitrise mieux; elle reprend ce qui a été fait dans le combobox1_Change

Quelqu'un aura peut-être une explication à nous donner.


Bonne réception

 

[farid]

Bonjour,
Une piste en PJ
J'ai rendu les listes dynamique et effectué quelques modifications

Bonjour Jacky, merci de ton implication, ton système fonctionne , cependant je souhaiterais que les résulats choisis en combobox1 l'affichage se fait uniquement en d3 et de la combobox 2 en D4 par avance, merci

 

[farid]

Bonjour

Ci-joint un classeur en retour qui semble fonctionner .

1 - Dans le code du userform j'ai ajouté un "ComboBox2_Change" pour renseigner la cellule D4 lorsqu'on sélectionne une valeur dans combobox2.

2 - J'ai rencontré une difficulté en essayant de mettre davantage de valeurs dans la colonne A de la feuille Info. La combobox1 n'affichait toujours que les 3 premières valeurs. J'ai remplacé le userform_initialize par une routine que je maitrise mieux; elle reprend ce qui a été fait dans le combobox1_Change

Quelqu'un aura peut-être une explication à nous donner.


Bonne réception

Bonjour Juvaxe, merci pour ton retour , cela fonctionne et merci a Jacky , Bonne journée a vous deux

 

[Jacky67]

Bonjour Jacky, merci de ton implication, ton système fonctionne , cependant je souhaiterais que les résulats choisis en combobox1 l'affichage se fait uniquement en d3 et de la combobox 2 en D4 par avance, merci

Re..
Remplacer le code du CommandButton1 par

Private Sub CommandButton1_Click()
    If ComboBox1 = "" Or ComboBox2 = "" Then MsgBox "Saisie incomplète", , "Information": Exit Sub
    With Feuil1
        .[d3] = ComboBox1.Value
        .[d4] = ComboBox2.Value
    End With
    Unload UserForm1
End Sub

 

[Jacky67]

Bonjour


2 - J'ai rencontré une difficulté en essayant de mettre davantage de valeurs dans la colonne A de la feuille Info. La combobox1 n'affichait toujours que les 3 premières valeurs. J'ai remplacé le userform_initialize par une routine que je maitrise mieux; elle reprend ce qui a été fait dans le combobox1_Change

Quelqu'un aura peut-être une explication à nous donner.

Hello juvaxe
Dans le classeur d'origine les plages nommées sont figées en plage fixe
=Info!$A$2:$A$4
Menu Formules==>gestionnaire de noms
Si tu regardes dans mon exemple je les ai rendu dynamique (tous les rajouts sont pris en compte)
=DECALER(Info!$A$2;;;NBVAL(Info!$A:$A)-1)

Bonne nuit

 

[juvaxe]

Merci Jacky67 pour l'info.

Bonne journée ...

 

[farid]

Re..
Remplacer le code du CommandButton1 par

Private Sub CommandButton1_Click()
    If ComboBox1 = "" Or ComboBox2 = "" Then MsgBox "Saisie incomplète", , "Information": Exit Sub
    With Feuil1
        .[d3] = ComboBox1.Value
        .[d4] = ComboBox2.Value
    End With
    Unload UserForm1
End Sub

Bonjour Jacky, je souhaite enrichir sur ton fichier et je reviens vers toi sur ce sujet qui fonctionne très bien , j'ai ajouter un bouton qui permet d'effacer les contenues des combobox , pas de soucie cela efface bien , cependant lorsque je reviens sur les combobox , je n'ai plus la liste , je dois fermer l'userform et je réouvrir pour effectuer un nouvelle saisie. Jai aussi ajouter une combobox3 qui fonctionne sauf pour l'éffacement ca bug.Je te met le fichier en pj , par avance merci pour les participation.

 

[Jacky67]

Bonjour Jacky, je souhaite enrichir sur ton fichier et je reviens vers toi sur ce sujet qui fonctionne très bien , j'ai ajouter un bouton qui permet d'effacer les contenues des combobox , pas de soucie cela efface bien , cependant lorsque je reviens sur les combobox , je n'ai plus la liste , je dois fermer l'userform et je réouvrir pour effectuer un nouvelle saisie. Jai aussi ajouter une combobox3 qui fonctionne sauf pour l'éffacement ca bug.Je te met le fichier en pj , par avance merci pour les participation.

RE...

Private Sub CommandButton2_Click()
    ComboBox1.ListIndex = -1
    ComboBox2.ListIndex = -1
    ComboBox3.ListIndex = -1
End Sub

Un conseil, ne mélange pas la façon d'alimenter les combobox List/RowSource
Dans quelque temps, quand tu voudras modifier quelque chose, tu chercheras pourquoi tels ou tels codes ne fonctionnent pas ou plus.
**C'est bien ce qui arrive déjà

 

[farid]

RE...

Private Sub CommandButton2_Click()
    ComboBox1.ListIndex = -1
    ComboBox2.ListIndex = -1
    ComboBox3.ListIndex = -1
End Sub

Un conseil, ne mélange pas la façon alimenter les combobox List/RowSource
Dans quelque temps, quand tu voudras modifier quelque chose, tu chercheras pourquoi tels ou tels codes ne fonctionnent pas ou plus.
**C'est bien ce qui arrive déjà

Merci Jacky et pour ton conseil que j'ai mis en application sur mon fichier source. Bonne soirée

 

[farid]

Merci Jacky et pour ton conseil que j'ai mis en application sur mon fichier source. Bonne soirée

Bonjour Jacky , j'ai tellement honte de te resollicité mais j'y ai passé pratiquement la nuit a chercher chez oncle Google mais en vain. J'ai ajouté une 4 combobox pour affichage horaire et l'affichage si tu vois ce que je veux dire. Par avance merci

 

[Jacky67]

Bonjour Jacky , j'ai tellement honte de te resollicité mais j'y ai passé pratiquement la nuit a chercher chez oncle Google mais en vain. J'ai ajouté une 4 combobox pour affichage horaire et l'affichage si tu vois ce que je veux dire. Par avance merci

Re..
Il n'y a aucune raison d'avoir honte
Oui, pour les dates & heures c'est un peu particulier
Remplir

Private Sub UserForm_Initialize()
    Dim H As Range
    'Remplir ComboBox1 avec la "Liste1"
    ComboBox1.List = [Departement].Value
    ComboBox3.List = [année].Value
    For Each H In [Temps]
        ComboBox4.AddItem H.Text
    Next
End Sub

Restitution

.[d6] = CDate(ComboBox4.Value)

 

[farid]

Re..
Il n'y a aucune raison d'avoir honte
Oui, pour les dates & heures c'est un peu particulier
Remplir

Private Sub UserForm_Initialize()
    Dim H As Range
    'Remplir ComboBox1 avec la "Liste1"
    ComboBox1.List = [Departement].Value
    ComboBox3.List = [année].Value
    For Each H In [Temps]
        ComboBox4.AddItem H.Text
    Next
End Sub

Restitution

.[d6] = CDate(ComboBox4.Value)

Bonjour Jacky , je me permet de revenir vers toi sur le dernier fichier que tu m'avais mis a jour et qui fonctionne très bien sur mon fichier source. Est ce possible une fois les info saisies et valider , serait-il possible lorsque j'ouvre l'userform de voir les info affichées des cellules concernées. Tu verra aussi, j'ai ajouter des cellules pour affichage heure et dans la macro , cependant si je saisie les 3 combobox des heure et que je valide , pas de soucie , par contre si je saisie que E3:E4 , alors j'ai un bug , même un seul saisie , j'ai un beug , je dois obligatoirement saisir l'ensemble et cela pose problème sur mon fichier source j'espère que je me suis fait comprendre. Par avance, merci

 

[Jacky67]

Bonjour Jacky , je me permet de revenir vers toi sur le dernier fichier que tu m'avais mis a jour et qui fonctionne très bien sur mon fichier source. Est ce possible une fois les info saisies et valider , serait-il possible lorsque j'ouvre l'userform de voir les info affichées des cellules concernées. Tu verra aussi, j'ai ajouter des cellules pour affichage heure et dans la macro , cependant si je saisie les 3 combobox des heure et que je valide , pas de soucie , par contre si je saisie que E3:E4 , alors j'ai un bug , même un seul saisie , j'ai un beug , je dois obligatoirement saisir l'ensemble et cela pose problème sur mon fichier source j'espère que je me suis fait comprendre. Par avance, merci

RE..
J'ai gardé l'obligation de saisir les 3 combobox de gauche, cela est facilement modifiable avec cette ligne de code

    If ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Then MsgBox "Saisie incomplète", , "Information": Exit Sub

Pour le reste je pense avoir rempli le cahier des charges