XL 2019 ComboBox dans Userform sélectionne une feuille

Yann71 · 24 Octobre 2022

Bonjour la com. Je cherche à réaliser un projet, mais je ne trouve pas la solution à mon problème.
J'ai un Userform avec 1 ComboBox et 3 TextBox. Les TextBox affiche leur contenu dans des cellules différente
sur la Feuil1. Mon classeur possède 3 Feuilles et j'aimerai éviter de créer plusieurs UserForm pour chaque
feuille. Donc est-il possible de pouvoir utiliser la ComboBox pour sélectionner la feuille désirée et d'y rentrer
les informations.

vgendron · 24 Octobre 2022

Hello

voir PJ pour les modifs apportées

Yann71 · 24 Octobre 2022

vgendron à dit:
Hello

voir PJ pour les modifs apportées

Merci pour ton fichier, c'est ce que je recherchais. Mais je m'aperçois d'un problème. Si en feuille1 je rentre des donnée et que je ferme l'userform les données s'affiche, mais lorsque j'ouvre à nouveau l'userform et que je n'inscrit aucune donnée, le contenu des cellules disparaissent, ce que je ne souhaite pas. J'aimerai que le contenu des cellules soit visible dans les textbox et que je puisse modifier les informations.

vgendron · 24 Octobre 2022

C'est pas un problème, c'est juste que le code n'est pas adapté

ici pour charger les données déjà présentes sur la feuille

VB:

Private Sub ComboBox1_Change()
With Sheets(CStr(Me.ComboBox1))
    TextBox1.Value = .Range("A1")
    TextBox2.Value = .Range("B1")
    TextBox3.Value = .Range("C1")
End With
End Sub

ici pour enregistrer des données sur la feuille UNIQUEMENT si le textbox contient quelque chose

Code:

Private Sub cmdFermer_Click()
With Sheets(CStr(Me.ComboBox1))
    .Range("A1") = IIf(TextBox1.Value <> "", TextBox1.Value, .Range("A1"))
    .Range("B1") = IIf(TextBox2.Value <> "", TextBox2.Value, .Range("B1"))
    .Range("C1") = IIf(TextBox3.Value <> "", TextBox3.Value, .Range("C1"))
End With

Unload Me
End Sub

Yann71 · 24 Octobre 2022

vgendron à dit:
C'est pas un problème, c'est juste que les données ne sont pas chargées
à faire dans l'évènement combobox1_change

Merci pour l'info mais je ne sais comment faire. Autre chose, j'aimerai qu'à l'ouverture de l'userform que la combobox affiche ce message "Sélectionner une feuille" et je ne souhaite pas que la feuille "Liste" s'affiche apparaisse, il y aura par ailleurs d'autres feuilles qui seront rajouté au classeur qui ne devront pas apparaître dans cette combobox. Je m'aperçois que j'en demande beaucoup dsl.

vgendron · 24 Octobre 2022

à adapter

VB:

Private Sub cmdFermer_Click()
If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez selectionner une feuille"
    Exit Sub 'si aucune feuille n'est selectionnée on ne fait rien
End If
With Sheets(CStr(Me.ComboBox1))
    .Range("A1") = IIf(TextBox1.Value <> "", TextBox1.Value, .Range("A1"))
    .Range("B1") = IIf(TextBox2.Value <> "", TextBox2.Value, .Range("B1"))
    .Range("C1") = IIf(TextBox3.Value <> "", TextBox3.Value, .Range("C1"))
End With

Unload Me
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'si aucune feuille n'est selectionnée on ne fait rien
With Sheets(CStr(Me.ComboBox1))
    TextBox1.Value = .Range("A1")
    TextBox2.Value = .Range("B1")
    TextBox3.Value = .Range("C1")
End With
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.Clear 'on vide le combobox
For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur actif
    If ws.Name <> "Liste" Then 'si le nom n'est PAS Liste
        Me.ComboBox1.AddItem ws.Name 'on l'ajoute
    End If
Next ws
MsgBox "Veuillez selectionner une feuille"
End Sub

Eric C · 24 Octobre 2022

Bonjour le forum
Bonjour Yann71, bonjour Vincent

Comment faire....

VB:

Private Sub ComboBox1_Change()
 TextBox1.Text = Sheets(ComboBox1.Value).Range("A1")
 TextBox2.Text = Sheets(ComboBox1.Value).Range("B1")
 TextBox3.Text = Sheets(ComboBox1.Value).Range("C1")
End Sub

...Bon je poste mais je viens de voir que notre ami vgendron t'a déjà apporté la solution. Plus rapide que l'éclair....
Bonne après-midi
@+ Eric c

Yann71 · 24 Octobre 2022

vgendron à dit:

à adapter

VB:

Private Sub cmdFermer_Click()
If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez selectionner une feuille"
    Exit Sub 'si aucune feuille n'est selectionnée on ne fait rien
End If
With Sheets(CStr(Me.ComboBox1))
    .Range("A1") = IIf(TextBox1.Value <> "", TextBox1.Value, .Range("A1"))
    .Range("B1") = IIf(TextBox2.Value <> "", TextBox2.Value, .Range("B1"))
    .Range("C1") = IIf(TextBox3.Value <> "", TextBox3.Value, .Range("C1"))
End With

Unload Me
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'si aucune feuille n'est selectionnée on ne fait rien
With Sheets(CStr(Me.ComboBox1))
    TextBox1.Value = .Range("A1")
    TextBox2.Value = .Range("B1")
    TextBox3.Value = .Range("C1")
End With
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.Clear 'on vide le combobox
For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur actif
    If ws.Name <> "Liste" Then 'si le nom n'est PAS Liste
        Me.ComboBox1.AddItem ws.Name 'on l'ajoute
    End If
Next ws
MsgBox "Veuillez selectionner une feuille"
End Sub

Je te remercie beaucoup, c'est top, mais je m'aperçois que si je rajoute une feuille, celle-ci apparaît dans la combobox et je n'ai trouvé comment modifier le code pour que cela fonctionne. J'ai dû par ailleurs mal m'exprimer, le message "Veuillez sélectionner une feuille" je le désirai pas dans msgbox mais dans la combobox à l'ouverture de l'userform pour autant que cela soit réalisable..

Yann71 · 24 Octobre 2022

Eric C à dit:
Bonjour le forum
Bonjour Yann71, bonjour Vincent

Comment faire....

VB:

Private Sub ComboBox1_Change() TextBox1.Text = Sheets(ComboBox1.Value).Range("A1") TextBox2.Text = Sheets(ComboBox1.Value).Range("B1") TextBox3.Text = Sheets(ComboBox1.Value).Range("C1") End Sub

...Bon je poste mais je viens de voir que notre ami vgendron t'a déjà apporté la solution. Plus rapide que l'éclair....
Bonne après-midi
@+ Eric c

Bonjour Eric, merci pour votre intervention vous êtes toujours autant réactif, même si d'autre se montre plus rapide

vgendron · 24 Octobre 2022

Yann71 à dit:
Je te remercie beaucoup, c'est top, mais je m'aperçois que si je rajoute une feuille, celle-ci apparaît dans la combobox et je n'ai trouvé comment modifier le code pour que cela fonctionne. J'ai dû par ailleurs mal m'exprimer, le message "Veuillez sélectionner une feuille" je le désirai pas dans msgbox mais dans la combobox à l'ouverture de l'userform pour autant que cela soit réalisable..

un message est un message
toi, tu souhaites soit un label sur le formulaire dans lequel le texte est ecrit
soit, c'est ce qui est écrit dans l'intitulé du formulaire (en haut à gauche)==> voir propriété Caption du formulaire

pour ajouter une feuille à exclure;. suffit d'adapter la condition
if ws.name=feuille OR ws.name=.....

vgendron · 24 Octobre 2022

avec la pj

Yann71 · 24 Octobre 2022

vgendron à dit:
avec la pj

Je te remercie infiniment. Ton aide m'a beaucoup aidé quant à l'avancée de mon projet. Bonne soirée et merci encore.

Eric C · 24 Octobre 2022

Re le fil

Juste pour le fun.
@vincent - Avant mon repas, j'avais commencé le fichier puis dès mon retour, j'ai vu que tu avais répondu. J'ai mis dans le présent fichier, ma façon par laquelle j'appelle la feuille considérée (1/2/...). Est-ce raisonnable d'agir de cette façon ou faut-il passer par CStr ?
@+ Eric c

vgendron · 24 Octobre 2022

Hello @Eric C
le .value est sans doute mieux et plus lisible que le cstr
c'est juste que je ne pense jamais au .value :-D

après.. tant que ca fonctionne..

Eric C · 24 Octobre 2022

Ok - Bonne soirée à toi.
Eric

XL 2019 ComboBox dans Userform sélectionne une feuille

Yann71

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Yann71

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires