Mettre des données d'une ListBox multicolonne dans un tableau

Version imprimable

15/11/2016, 11h39
TaigaLupus

2 pièce(s) jointe(s)

Mettre des données d'une ListBox multicolonne dans un tableau

Bonjour,

je souhaite transférer des données d'une ListBox multicolonne ( à 4 colonne) vers un tableau nommé "tableauClient",
avec le bouton ajouter je test :
- si le tableau existe
- si oui je vérifie qu'il a le bon nom
- et si il n'existe pas je le crée .
mais après je galère pour transférer toutes les lignes et colonnes de la listbox multi vers les lignes et colonnes de mon tableau. :(

j'ai joint mon fichier excel, si quelqu'un a une idée (pour pouvoir les charger dans le tableau et inversement aussi d'ailleurs) Merci d'avance :mrgreen:

Pièce jointe 224881

cordialement

Grace à un gars super j'ai pu comprendre et fairce que je voulais donc pour tous ceux que cela interesse voici le fichier final avec des commentaires dans les codes du userforms

Fichier ci dessous fini :

Pièce jointe 225119
15/11/2016, 13h47
joe.levrai

Bonjour,

c'est le code que tu as entrepris qui nous intéresse, pas le classeur ;)

Merci de nous le montrer

j'avais joint le classeur car le code est dedans avec le boutons ajouter, sinon le code est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButtonAjouter_Click()
Dim Ws As Worksheet
Dim ListObj As ListObject
Dim ListObj2 As ListObject
Dim NomTableau As String
Dim DerLign As Long


'*************************************************************************************************************************************
'*                    ListObjects sert à la création et à la manipulation des tableaux
'*************************************************************************************************************************************

Set Ws = Worksheets("Feuil1")
    For Each ListObj In Ws.ListObjects
        NomTableau = ListObj.Name ' trouve le nom du tableau si il existe et le mets dans la variable
    Next
    If NomTableau <> "" Then ' si la variable contient un nom
        If NomTableau <> "TableauClient" Then ' verifie que c'est le bon nom de tableau
            Worksheets("Feuil1").ListObjects(NomTableau).Name = "TableauClient" 'sinon on le renomme
        End If
    Else
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$2"), , xlYes).Name = "TableauClient" 'Crée le tableau a 4 colonne et le nomme
        Range("TableauClient[[#Headers],[Colonne1]]").Select 'selectionne l'entête de colonne 1
        ActiveCell.FormulaR1C1 = "Nom"                      'la renomme
        Range("TableauClient[[#Headers],[Colonne2]]").Select
        ActiveCell.FormulaR1C1 = "Prenom"
        Range("TableauClient[[#Headers],[Colonne3]]").Select
        ActiveCell.FormulaR1C1 = "Age"
        Range("TableauClient[[#Headers],[Colonne4]]").Select
        ActiveCell.FormulaR1C1 = "Oui-Non"

    End If
    DerLign = [TableauClient].Rows.Count + [TableauClient].Rows(0).Row ' Trouve la derniere ligne pleine
    DerLign = DerLign ' + 1 ' ajoute un pour être sur la premiere ligne vide
    With Sheets("Feuil1")     ' Indique le nom de la feuille source
        Set ListObj2 = Worksheets("Feuil1").ListObjects("TableauClient") ' remplt les cellule avec le contenu des textbox ou OptionBouton
c'est la que je patauge

                .Cells(DerLign, 1) = TextBoxNom.Value
                .Cells(DerLign, 2) = TextBoxPrenom.Value
                .Cells(DerLign, 3) = TextBoxAge.Value
                If OptionButtonOui = True Then .Cells(DerLign, 4) = "Oui"
                If OptionButtonNon = True Then .Cells(DerLign, 4) = "Non"
     End With
End Sub

Je pense que je devrais utilisé une double boucle une pour la ligne avec une au milieu de celle la pour les colonnes, mais je me mélange, qu'en pensez vous ?

15/11/2016, 21h11
joe.levrai

Moi je ne vois pas de listbox, plutôt 3 textbox et 2 optionbuttons ?

La méthode ne sera pas la même, peux-tu confirmer exactement ce point ?

1 pièce(s) jointe(s)

i'am a couillon

joe.levrai je suis navré mais effectivement j'ai envoyé le mauvais fichier (le rouge de la honte couvre mon visage) :fessee:

donc voici le bon code et le bon fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButtonAjouter_Click()
Dim Ws As Worksheet
Dim ListObj As ListObject
Dim ListObj2 As ListObject
Dim NomTableau As String
Dim DerLign As Long


'*************************************************************************************************************************************
'*                    ListObjects sert à la création et à la manipulation des tableaux
'*************************************************************************************************************************************

Set Ws = Worksheets("Feuil1")
    For Each ListObj In Ws.ListObjects
        NomTableau = ListObj.Name ' trouve le nom du tableau si il existe et le mets dans la variable
    Next
    If NomTableau <> "" Then ' si la variable contient un nom
        If NomTableau <> "TableauClient" Then ' verifie que c'est le bon nom de tableau
            Worksheets("Feuil1").ListObjects(NomTableau).Name = "TableauClient" 'sinon on le renomme
        End If
    Else
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$2"), , xlYes).Name = "TableauClient" 'Crée le tableau a 4 colonne et le nomme
        Range("TableauClient[[#Headers],[Colonne1]]").Select 'selectionne l'entête de colonne 1
        ActiveCell.FormulaR1C1 = "Nom"                      'la renomme
        Range("TableauClient[[#Headers],[Colonne2]]").Select
        ActiveCell.FormulaR1C1 = "Prenom"
        Range("TableauClient[[#Headers],[Colonne3]]").Select
        ActiveCell.FormulaR1C1 = "Age"
        Range("TableauClient[[#Headers],[Colonne4]]").Select
        ActiveCell.FormulaR1C1 = "Oui-Non"

    End If
    DerLign = [TableauClient].Rows.Count + [TableauClient].Rows(0).Row ' Trouve la derniere ligne pleine
    DerLign = DerLign ' ajoute un pour être sur la premiere ligne vide
    With Sheets("Feuil1")     ' Indique le nom de la feuille source
        
        FinList = (ListBoxNom.ListCount - 1) + DerLign
        
        For NumLign = 0 To 6
            For NomCol = 0 To 4 'FinList
                    'NomListBox = "ListBox" & NumCol & ".List(" & a & ")"
                    'MsgBox "2eme Boucle NumCol :   " & NumCol & "  i :  " & i
                    Set ListObj2 = Worksheets("Feuil1").ListObjects("TableauClient")
                    NumColTab = NumCol + 1
                    .Cells(NumLign, NumColTab) = Me.ListBoxNom.List(NumLign, NumCol)
                    a = a + 1
            Next NomCol
        Next NumLign
    End With
End Sub

Pièce jointe 224943

16/11/2016, 18h19
TaigaLupus

1 pièce(s) jointe(s)

yessssssssssssss c'est tout bon

Grace à un gars super j'ai pu comprendre et fairce que je voulais donc pour tous ceux que cela interesse voici le fichier final avec des commentaires dans les codes du userforms

Fichier ci dessous fini :

Pièce jointe 225037