Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie valeurs listbox multicolonne vers feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jtitin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jtitin

XLDnaute Occasionnel
bonjour à tous
je cherche à renvoyer dans une feuille les valeurs affichées dans une listbox multicolonne.
Ma listbox multicolonne à 42 colonnes dont 14 sont visibles sur plusieur lignes les autres sont masqué (largeur colonne = 0)

With ListBox3
.ColumnCount = 42
.ColumnWidths = "90;80;0;40;50;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;60;0;40;40;40;0;0;40;45;45;45;40;30;0"
End With

comment transférer ces 14 colonnes visibles dans la feuille
donc à partir de la cellule A5 la 1er colonne de la listbox
à partir de la cellule B5 la 2eme colonne de la listbox
à partir de la cellule C5 la 4eme colonne de la listbox
à partir de la cellule D5 la 5eme ......
à partir de la cellule E5 la 29eme colonne de la listbox
---
---
et jusqu'a la derniere en N5 la 41eme colonne de la listbox

merci pour votre aide
 
Trier par date Trier par votes
Re : copie valeurs listbox multicolonne vers feuille

Bonjour,

un petit essai...

Le principe :

- on met dans un tableau (X), la largeur des colonnes de ton ListBox, en "Splittant" les ";"
- Le tableau X aura donc cette forme :
X(0) = "90 pt"
X(1) = "80 pt"
X(2) = "0 pt"
....
....
- on convertit les chiffres de X(0), X(1)... en Double, puis on teste s'ils sont supérieurs à 0..
- Si oui, on écrit la valeur dans la cellule...

Essaie et dis quoi...

Code: 
Private Sub CommandButton1_Click()
Dim J As Byte, I As Byte
Dim X
With Me.ListBox1
    If .ListIndex = -1 Then Exit Sub
    X = Split(.ColumnWidths, ";")
    For I = 0 To UBound(X)
        If CDbl(Left(X(I), Len(X(I)) - 3)) > 0 Then
            Cells(5, J + 1) = .List(.ListIndex, I)
            J = J + 1
        End If
    Next I
End With
Unload Me
End Sub
 
Vote positif 0 Vote négatif
Re : copie valeurs listbox multicolonne vers feuille

merci bhbh pour ta réponse

mais je ne comprend pas le procédé
il faut faire un tableau pour initialiser la listbox ??

je cherche à renvoyer dans une feuille toutes les valeurs affichées dans la listbox
et pas la ligne sélectionnée

merci
 
Vote positif 0 Vote négatif
Re : copie valeurs listbox multicolonne vers feuille

Re-,

il faut faire un tableau pour initialiser la listbox ??
Cliquez pour agrandir...

Non, c'est un Tableau VBA..(il est juste en mémoire, et comporte la largeur de chaque colonne de ta listbox...

Et pour modifier, et copier toutes les données de ton listbox, modifie ainsi :

Code: 
Private Sub CommandButton1_Click()
Dim J As Byte, Col As Byte, Lig As Byte
Dim X
With Me.ListBox1
    X = Split(.ColumnWidths, ";")
    For Lig = 0 To .ListCount - 1
        J = 0
        For Col = 0 To UBound(X)
            If CDbl(Left(X(Col), Len(X(Col)) - 3)) > 0 Then
                Cells(Lig + 5, J + 1) = .List(Lig, Col)
                J = J + 1
            End If
        Next Col
    Next Lig
End With
Unload Me
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
333
escudo
E
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
632
KRUG WOO
K
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
3 K
NONO14
N
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
469
MANU64360
M
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
183
ceralpes
C
S
  • Résolu(e)
Autres Categoriser par rapport à la date de naissance, année et categorie
Réponses
8
Affichages
208
Skippy
S
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
298
Affichages
70 K
NONO14
N
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
190
MATLEA
M
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
309
TooFatBoy
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
696
job75
N
  • Question Question
Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox
5 6 7
Réponses
98
Affichages
3 K
NONO14
N
  • Résolu(e)
Microsoft 365 Transposé des nombres
2 3 4
Réponses
48
Affichages
973
Electron24
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
400
Phil69970
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
504
jeff1494
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
262
Electron24
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
1 K
eCHO
E
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…