Combo et Multipage

[Pias]

Bonsoir le Forum

A partir d’une demo de Thierry je souhaite ajouter un deuxième Combobox dans une Multipage.
J’ai pensé que ça ne serait pas compliquer à faire…, mais erreur j’ai déjà tous essayer mais pas trouver la solution.
Je vous envoie un petit fichier joint, si quelqu’un veut bien donner un coup d’œil merci d’avance.

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[Eric C]

Bonjour le forum
Bonjour Pias

Je ne saisi pas trop ta question et ne trouve aucun code relatif au Cbo2 dans ton projet ? Pour l'ajout du cbo2 tu places ceci dans l'ini de ton usf

Private Sub Ini()
Dim L As Integer
Dim Plage As String

L = Sheets("Feuil1").Range("AA65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("AA2:AA" & L).Address
ComboBox1.RowSource = "Feuil1!" & Plage

L = Sheets("Feuil1").Range("Ab65536").End(xlUp).Row '<==
Plage = Sheets("Feuil1").Range("Ab2:Ab" & L).Address '<==
ComboBox2.RowSource = "Feuil1!" & Plage '<==

Et il faut refaire le code adhoc pour sup & ajout avec les valeurs de ton Cbo2.

Bon courage & bon dimanche à toutes & à tous.
@ + Eric C



End Sub

 

[Pias]

Bonjour le Forum et Eric_C

Eric avec ton aide j’ai fait des progrès, c’est presque bon.
Merci beaucoup.

Je comprends toujours pas pourquoi la colonne A de doit pas être vide ?
Car la nous sommes dans les colonnes AA et AB.

Et ici ça provoque une erreur à la suppression d'une Serre.

Private Sub Combo()
With ComboBox1
With ComboBox2
.Value = ""
.SetFocus
End With
End With
End Sub

Merci d’avance

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[pias]

Bonjour le Forum

Avec les conseils de Eric_C dans le post précèdent,
J’ai pu modifier mon fichier et essayer de me simplifier le maximum.

Mais il y a toujours un petit bug au niveau du .SetFocus, je n’y arrive pas à le placer.
Si quelqu’un veut me donner un coup de main et corriger le fichier joint ça serait très sympa
Merci d’avance
Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[pias]

Bonjour le Forum

Je me excuse d’insister sur ce post mais comme j’ai pas de réponse, Eric_C n’as certainement pas coucher l’option recevoir la réponse par mail, et je ne vois vraiment pas comment résoudre mon problème.

C’est certainement quelque chose de simple le petit bug au niveau du .SetFocus, mais je ne vois pas quoi!...

Bon si vous n’avez pas envie d’ouvrir le fichier joint du post précèdent voici le but de code où je pense que ça bug.

------------------------------
Private Sub Combo()
With ComboBox1
With ComboBox2
.Value = ""
.SetFocus
End With
End With
End Sub
------------------------------
Merci d’avance

 

[@+Thierry]

Bonsoir Pias et Eric, le Forum

Suite à ta demande Pias le marchand de sable est passé avant le père Noël, tu trouveras une Version Démo MultiPage Multi-ComboBox dans le fil d'origine de cette démo :

DEMO UserForm ComboBox Gestion de Database (MAJ Doublon/Supression etc)

Faites de beaux rêves ...
@+Thierry