XL 2016 Alimenter une ListBox selon le choix fait en ComboBox

[hatem_yh]

Bonjour à tous,

Je suis en train de créer un programme pour réaliser un Devis avec (userForm), En fait, j'ai une base de données sur plusieurs feuilles (Sheets). je veux à chaque fois visualiser une base de données dans la ListBox selon mon choix en ComboBox.
Exemple : j'ai 3 feuille (sheets) nommé : Chauffage , Ventilation et Clim . Je souhaite quand je clic sur Chauffage il m'affiche le tableau de base de données dans la ListBox etc..

Merci d'avance.

Hatem.

 

[ChTi160]

Bonjour Hatem

Un petit fichier anonymisé , pour nous aider ? Lol

jean marie

 

[job75]

Bonjour hatem_yh, ChTi160,

Exemple : j'ai 3 feuille (sheets) nommé : Chauffage , Ventilation et Clim . Je souhaite quand je clic sur Chauffage il m'affiche le tableau de base de données dans la ListBox etc..

Sans fichier joint je vous propose ce code à placer dans le module de l'UserForm :

Private Sub ComboBox1_Change()
Dim w As Worksheet, P As Range
ListBox1.Clear 'RAZ
On Error Resume Next 'si la feuille n'existe pas
Set w = Sheets(ComboBox1.Text)
On Error GoTo 0
If w Is Nothing Then Exit Sub
Set P = w.[A1].CurrentRegion
If P.Rows.Count = 1 Then Exit Sub 'on suppose qu'il y a une ligne de titres
ListBox1.ColumnCount = P.Columns.Count 'nombre de colonnes
If P.Columns.Count = 1 Then Set P = P.Resize(, 2) 'au moins 2 cellules
ListBox1.List = P.Offset(1).Resize(P.Rows.Count - 1).Value 'crée la liste
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array("Chauffage", "Ventilation", "Clim")
End Sub

A vous de compléter la 1ère macro pour dimensionner les colonnes de la ListBox.

A+

 

[hatem_yh]

Bonjour Hatem

Un petit fichier anonymisé , pour nous aider ? Lol

jean marie

Merci pour votre réponse.
Oui je vous mets en attache mon exemple.
merci

 

[job75]

L'adaptation du code que j'ai donné est facile.

Ajoutez des Labels au-dessus de la ListBox pour les en-têtes des colonnes.

 

[hatem_yh]

Merci pour votre réponse.
EN fait, j'ai un problème quand je copie le code il m'affiche : erreur d’exécution 70 permission refusé.
je ne sais pas pourquoi. avez-vous une idée sur ça ?
merci d'avance.

 

[job75]

Je ne sais pas mais vérifiez que la propriété RowSource de la ListBox est bien vide.

 

[hatem_yh]

Merci infiniment. le problème est résolu.

 

[job75]

Merci infiniment. le problème est résolu.

Le problème c'était bien la RowSource ? De la ListBox ou de la ComboBox ?

 

[hatem_yh]

Le problème c'était bien la RowSource ? De la ListBox ou de la ComboBox ?

oui c'était avec la combobox ,la RowSource doit être vide.

 

[hatem_yh]

Re bonjour Monsieur, En fait, je veux ajouter un bouton dans ce UserForm qui sert à ajouter un texte dans une cellule vide d'après ce que j'ai mis dans deux textBox.
voici le code que j'ai mis :

Private Sub CommandButton1_Click()
Dim Ligne As Long
Ligne = 1
Do While Not IsEmpty(Sheets("Devis").Range("B3" & Ligne))
Ligne = Ligne + 1
Loop
Sheets("Devis").Range("B3" & Ligne).Value = TextBox10.Value
Sheets("Devis").Range("C3" & Ligne).Value = TextBox11.Value
End Sub

Le problème c'est qu'il commence depuis la ligne 31 et pas la ligne 3.

Merci d'avance.

 

[hatem_yh]

L'adaptation du code que j'ai donné est facile.

Ajoutez des Labels au-dessus de la ListBox pour les en-têtes des colonnes.

Bonjour Monsieur,
j'ai essayé d'ajouter les noms de colonnes dans la liste Box j'arrive pas. pouvez-vous m'expliquer comment faire?
merci d'avance.

 

[job75]

Bonjour hatem_yh,

j'ai essayé d'ajouter les noms de colonnes dans la liste Box j'arrive pas. pouvez-vous m'expliquer comment faire?

D'abord il faut mettre les largeurs des colonnes de la ListBox dans sa propriété ColumnWidths.

Ensuite il suffit d'ajouter des Labels dans l'UseForm, les dimensionner et les positionner correctement.

Fichier (2).

A+

 

[hatem_yh]

Bonjour hatem_yh,

D'abord il faut mettre les largeurs des colonnes de la ListBox dans sa propriété ColumnWidths.

Ensuite il suffit d'ajouter des Labels dans l'UseForm, les dimensionner et les positionner correctement.

Fichier (2).

A+

Bonjour Monsieur,
merci pour votre réponse.
En fait, je veux ajouter un bouton dans ce UserForm qui sert à ajouter un texte dans une cellule vide d'après ce que j'ai mis dans deux textBox.
voici le code que j'ai mis :

Private Sub CommandButton1_Click()
Dim Ligne As Long
Ligne = 1
Do While Not IsEmpty(Sheets("Devis").Range("B3" & Ligne))
Ligne = Ligne + 1
Loop
Sheets("Devis").Range("B3" & Ligne).Value = TextBox10.Value
Sheets("Devis").Range("C3" & Ligne).Value = TextBox11.Value
End Sub

Le problème c'est qu'il commence depuis la ligne 31 et pas la ligne 3.

Merci d'avance.

 

[job75]

Bah Range("B3" & Ligne) commence forcément à la ligne 31, Range("B" & Ligne) à la ligne 1 !!!