Recherche dans première colonne d'un tableau structuré

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #2

Bonsoir

Fonctionne chez moi
NB: Adapter le nom du ListObject

VB:

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose(ActiveSheet.ListObjects("Tableau1").ListColumns(1).DataBodyRange)
End Sub

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 16 Février 2018

• #3

Merci pour ta réponse rapide Staple1600

Toujours la même erreur avec ton code si le tableau n'a qu'une ligne de données

Si besoin je peux poster le fichier

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #4

Re

Bah, moi j'ai testé avec un tableau avec plusieurs lignes
Pour moi, un tableau avec une seule ligne, c'est un tableau vide
La ligne 1 correspondant aux entêtes.

Dans ce cas il suffit d'ajouter une gestion d'erreur, non ?

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 16 Février 2018

• #5

Non en fait j'ai une seule ligne plus les entêtes

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #6

Re

C'était pas très compliqué, non ?

VB:

Private Sub UserForm_Initialize()
If ActiveSheet.ListObjects("Tableau1").DataBodyRange.Rows.Count = 1 Then
Me.ComboBox1.AddItem ActiveSheet.ListObjects("Tableau1").DataBodyRange(1, 1)
Else
Me.ComboBox1.List = Application.Transpose(ActiveSheet.ListObjects("Tableau1").ListColumns(1).DataBodyRange)
End If
End Sub

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 16 Février 2018

• #7

Je vais poster le fichier c'est plus simple,

Alors pour comprendre ca se passe dans l'onglet "Liste référence diamant", tu lance la macro avec le bouton "Go" présent sur la feuille

Sur cette feuille il y a une trentaine de tableaux distinct (je recherche le tableau voulu à l'aide d'une variable)
Tu verras que j'ai plusieurs ligne sur le tableau "A1" mais ca ne fonctionne pas non plus

D'avance je m'excuse si dans le module concerné c'est encore un peu le fouilli, c'est en cours de développement et pas encore finaliser :/

 

Pièces jointes

• Gestion meules - diamants H1 - H2 - H3 - Copie.xlsm

  181.1 KB · Affichages: 22

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #8

Re

Ça fonctionne chez moi
Tout simplement parce que je respecte ceci:

Fonctionne chez moi
NB: Adapter le nom du ListObject

Cliquez pour agrandir...

Et chez toi, tu as fait cette adaptation ?

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 16 Février 2018

• #9

Ha oui l'userform ouverte, selectionne "supprimer une référence de diamant" sur la première combobox et sur la deuxième sélectionne une des références pour simuler le défaut

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 16 Février 2018

• #10

Oui j'ai bien adapté le nom du tableau, par contre je n'ai pas besoin de lui indiquer dans qu'elle onglet il doit chercher le tableau?

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 16 Février 2018

• #11

Gestion_outillage.Selection_reference.List = Application.Transpose(ActiveSheet.ListObjects(NomFamille & "_" & ValeurSelectionType).ListColumns(1).DataBodyRange)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #12

Re

Il suffit de préciser le nom de la feuille dans le code
Si la feuille s'appelle toto, alors on écrira:

VB:

Private Sub UserForm_Initialize()
'NB: Penser à  adapter le nom de la feuille et le nom du tableau devant remplir le ComboBox
If Sheets("toto").ListObjects("Tableau1").DataBodyRange.Rows.Count = 1 Then
Me.ComboBox1.AddItem Sheets("toto").ListObjects("Tableau1").DataBodyRange(1, 1)
Else
Me.ComboBox1.List = Application.Transpose(Sheets("toto").ListObjects("Tableau1").ListColumns(1).DataBodyRange)
End If
End Sub

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 17 Février 2018

• #13

Ca fonctionne maintenant, merci beaucoup

Tu pense que l'erreur venait de quoi? Le fait qu'il n'y a qu'une seule ligne?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #14

Re

Bah Excel t'a déjà dit où était l'erreur, non ?

Userform.Combobox.List = Application.Transpose(Sheets("Feuil1").Range("A:A NomDuTableau"))
le code ne fonctionne pas, excel me renvoi l'erreur suivante "Impossible de définir la propriété list. Index de table de propriétés non valide"

Cliquez pour agrandir...

C'est donc que ta syntaxe n'était pas valide.

La mienne l'est

 

Vote positif 0 Vote négatif

Galaktus

XLDnaute Nouveau

• 17 Février 2018

• #15

Okay, merci encore pour ton temps et bonne soirée à toi

@++

 

Vote positif 0 Vote négatif