Microsoft 365 ListBox transposée

[JessCH]

Bonjour le forum,
Je galère avec une ListBox.
Comment transposer une ListBox dans une feuille excel avec une recherche dans un tableau.
Voici le code :

Private Sub CButton_Enregistrer_Click()

If MsgBox("Voulez-vous enregistrer la modification ?", vbYesNo, "Demande de confirmation") = vbYes Then
  End If
 
    Set Ta = ThisWorkbook.Sheets("BD")

  Set A = Ta.Range("A:A").Cells.Find(Me.TB_Entreprise, , xlValues, xlWhole) 'recherche rang dans tableau "BD"
    If Not A Is Nothing Then


                  Ta.Cells(A.Row, 3) = TB_Adresse_Potale.Value
                  Ta.Cells(A.Row, 5) = TB_Adresse_Physique.Value
                  Ta.Cells(A.Row, 4) = TB_Ville.Value
                  Ta.Cells(A.Row, 6) = TB_Pays.Value
                  Ta.Cells(A.Row, 7) = TB_Téléphone.Value
                  Ta.Cells(A.Row, 8) = ListBox1.Application.Transpose(.List)
                  
                  End If
                  End Sub

Je ne sais pas comment faire pour que le contenue de ma ListBox soit envoyé dans la bonne cellule après recherche.
J'ai un message d'erreur:
"
Erreur de compilation:
Référence incorrecte ou non qualifiée "

Surbrillance sur

(.List)

D'avance, merci

 

[Dudu2]

Bonjour,
En effet, .List est non qualifié en premier lieu sans préjuger du fait que ce soit une référence correcte en fonction de l'objet auquel .List est supposé appartenir.
Pour qualifier .List, soit tu mets l'objet devant <Objet>.List soit tu utilises un With <Objet>
D.

 

[job75]

Bonjour JessCH, Dudu2,

Très bizarre votre manière d'utiliser Application.Transpose, a priori il faudrait écrire :

Ta.Cells(A.Row, 8) = Application.Transpose(ListBox1.List)

Mais à droite du signe = on a une matrice, ça n'ira pas… Peut être tout bêtement :

Ta.Cells(A.Row, 8) = ListBox1

A+

 

[JessCH]

Bonjour a toutes est a tous et avant toute chose, BONNE ANNEE !!! 🙂

Alors j'ai essayé plusieurs possibilité selon les conseils de Dudu2 et job75, mais ça ne fonctionne pas...

Je joint mon fichier un peu simplifié vue qu'il y a des données confidentielles, je joint aussi une petite aide vue qu'il est assez complexe a utiliser si c'est en mode Admin.

J'espère qu'avec ça, vous pourrez faire qqchose pour m'aider.

Un grand merci d'avance.

 

[job75]

Bonjour JessCH,

Que voulez-vous qu'on fasse ?

Il n'y a pas de correspondance avec le problème posé au post #1 : Ta.Cells(A.Row, 8) ne se remplit plus à partir de ListBox1...

A+

 

[JessCH]

Bonjour job75,

C'est parce que j'ai simplifié le problème pour facilité la compréhension de mon problème. Mais je m'appercois que ce n'est pas ça...
Dans mon fichier Excel il y a 3 base de données :

1. La 1er Feuil1(BD) : nom ; adresse ; tél etc de l'entreprise.
2. La 2ème Feuil2(Contacts) Nom des personnes de contact avec leurs fonctions.
3. La 3ème base de données (Feuil3) Leur spécialités. "Métiers".

J'aimerais pouvoir modifier leur métiers qui est dans la Feuil3 dés qu'un changement est nécessaire. Tout cela a partir de mon UserForm "UF_BD".

J'espère avoir été plus clair cette fois ci.

Merci.

 

[job75]

Il n'y a pas de "métiers" en Feuil3 (TRAITEMENT + MATIERES).

De toute façon vous n'expliquez pas ce que vous voulez faire : "dés qu'un changement est nécessaire" ça veut dire quoi ?

 

[Dudu2]

Bonjour,
S'il faut plonger dans le code, ce n'est pas très cool. Que veux tu faire au juste ?
Tu as une ListBox et tu veux en charger le contenu dans des cellules avec une transposition ? Cest ça ?

Dim TT() As Variant
TT = ActiveSheet.ListBox1.List
Range("A1").Resize(UBound(TT, 2) + 1, UBound(TT, 1) + 1).Value = WorksheetFunction.Transpose(TT)

Ou encore plus simple:

Range("A1").Resize(2, ActiveSheet.ListBox1.ListCount).Value = WorksheetFunction.Transpose(ActiveSheet.ListBox1.List)

 

[JessCH]

Re,
job75, feuil6 c'est (BD2)
Dudu2, oui c'est ça. Je veux charger le contenu de ma ListBox (LB_Métiers) dans des cellules transposées sur la feuil6 (BD2). J'ai essayé le code que tu me propose, mais ne fonctionne pas..

 

[Dudu2]

J'ai testé les 2 versions de ce code et ça fonctionne.
Quelle instruction écris-tu exactement ? Et quelle erreur as-tu ?

 

[JessCH]

J'ai :
Erreur d’exécution 438:
Propriété ou méthode non gérée par cet objet

Mon code :

Range("A1").Resize(2, ActiveSheet.LB_Métiers.ListCount).Value = WorksheetFunction.Transpose(ActiveSheet.LB_Métiers.List)

 

[Dudu2]

Ta ListBox n'est pas en direct sur une feuille comme dans mes exemples.
Elle est dans un UserForm. Et comme à priori ton code est dans le UserForm...

Range("A1").Resize(2, Me.LB_Métiers.ListCount).Value = WorksheetFunction.Transpose(Me.LB_Métiers.List)

 

[JessCH]

ça fonctionne impec !!!

Merci pour le temps que tu m’accorde.