Discussion :

[fraid49]

Bonjour,

Je suis en train de programmer une petite macro qui doit exporter un tableau d'une feuille sous une autre forme sur une autre feuille (Je pense que mes commentaires sont clairs, ne pas hésiter à me demander des précisions).

Mes variables sont définies dans une userform :
TextBox2 : Chaine donnée par l'utilisateur des colonnes à exporter, exemple : "A-D-F-AE"
Liste_2 : la chaine que je transforme en liste [A,D,F,AE]
TextBox1 : nombre de lignes à exporter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub CommandButton1_Click()
 
    ' Transformation du contenu de la chaine text2 en liste de colonne
    liste_2 = Split(TextBox2, "-")
    Longueur_liste_2 = UBound(liste_2) - LBound(liste_2) + 1
    MsgBox Longueur_liste_2
 
    'On crée une nouvelle feuille
    Sheets.Add after:=Worksheets(Worksheets.Count)
    nom_feuille = "Export"
    ActiveSheet.Name = nom_feuille
 
    'On effectue l export
    a = 1
    For j = 2 To TextBox1
        For Each i In liste_2
            Sheets(nom_feuille).Cells(a, 1).Value = Sheets(ComboBox1).Cells(j, 1).Value
            Sheets(nom_feuille).Cells(a, 2).Value = Sheets(ComboBox1).Cells(1, i).Value
            Sheets(nom_feuille).Cells(a, 3).Value = Sheets(ComboBox1).Cells(j, i).Value
            a = a + 1
        Next
    Next
End Sub

Mais tout cela ne marche pas (visiblement, c'est les lignes "Sheets(nom_feuille).Cells(a, 2).Value = Sheets(ComboBox1).Cells(1, i).Value" qui posent pb) et je commence à saturer (débutant, j'ai déjà beaucoup cherché...).
J'espère que quelqu'un aura le courage de jeter un œil.
Merci d'avance,

Fred

[BenjGe]

Quel est le message d'erreur que tu obtiens?

essaie comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
 
    ' Transformation du contenu de la chaine text2 en liste de colonne
    liste_2 = Split(TextBox2, "-")
    Longueur_liste_2 = UBound(liste_2) - LBound(liste_2) + 1
    MsgBox Longueur_liste_2
 
    'On crée une nouvelle feuille
    Sheets.Add after:=Worksheets(Worksheets.Count)
    nom_feuille = "Export"
    ActiveSheet.Name = nom_feuille
 
    'On effectue l export
    a = 1
    For j = 2 To TextBox1.text
        For Each i In liste_2
            Sheets(nom_feuille).Cells(a, 1).Value = Sheets(ComboBox1.text).Cells(j, 1).Value
            Sheets(nom_feuille).Cells(a, 2).Value = Sheets(ComboBox1.text).Cells(1, Clng(i)).Value
            Sheets(nom_feuille).Cells(a, 3).Value = Sheets(ComboBox1.text).Cells(j, Clng(i)).Value
            a = a + 1
        Next i
    Next j
End Sub

ton problème peut venir des conversions implicites. Vba s'en sort jusqu'à un certain point avec ces bêtes là.
Exemple: Textbox1 est un objet donc quand tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for j=2 to textbox1

VBA doit évaluer textbox1. Dans cette expression il attend une valeur pout textbox et non un objet, il va donc appeler la propriété par défaut de l'objet tetbox, c'est à dire la propriété text qui renvoie une donnée de type string. Il convertit implicitement cette donnée en un long pour la boucle.

Parfois cette opértion de conversion implicite ne fonctionne pas ou la propriété par défaut de l'objet n'est pas celle que tu crois. D'où des erreurs.


Une autre erreur possible est la mauvaise saisie du nom des feuilles dans la combobox.

[fraid49]

Salut Benjîle et d'abord Merci,

Ton message est très clair et je comprends mieux d'où venait l'un des soucis. Pour autant, ça ne marche pas encore :
J'obtiens le message d'erreur : '424 : Objet requis' et la ligne concernée est la première de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(nom_feuille).Cells(a, 1).Value = Sheets(ComboBox1.text).Cells(j, 1).Value

Vois-tu d'où ça peut venir?
Merci encore,
Fred

[fraid49]

Hello, j'ai finalement réussi, voici le code qui marche chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub CommandButton1_Click()
 
    ' Transformation du contenu de la chaine text2 en liste de colonne
    liste_2 = Split(TextBox2, "-")
    Longueur_liste_2 = UBound(liste_2) - LBound(liste_2) + 1
    'MsgBox Longueur_liste_2
 
    'On crée une nouvelle feuille
    Sheets.Add after:=Worksheets(Worksheets.Count)
    nom_feuille = "Export"
    ActiveSheet.Name = nom_feuille
    'MsgBox ComboBox1
 
    'On effectue l export
    Sheets("Export").Cells(1, 1).Value = "T(s)"
    Sheets("Export").Cells(1, 2).Value = "X(mm)"
    Sheets("Export").Cells(1, 3).Value = "Fleche(mm)"
    a = 2
    For j = 4 To TextBox1.Text
        For Each i In liste_2
            Sheets("Export").Cells(a, 1).Value = Sheets(ComboBox1.Text).Cells(j, 1).Value
            Sheets("Export").Cells(a, 2).Value = Sheets(ComboBox1.Text).Cells(1, i).Value
            Sheets("Export").Cells(a, 3).Value = Sheets(ComboBox1.Text).Cells(j, i).Value
            a = a + 1
        Next
    Next
End Sub

Par contre, dans les cases vides, je voudrai qu'il me mette des "0", est-ce possible (ou plutot, comment faire) ?
Merci encore Benjîle pour l'aide.
Bonne journée,

Fred

[BenjGe]

essaie comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For j = 4 To TextBox1.Text
        For Each i In liste_2
            With Sheets(ComboBox1.Text)
                  Sheets("Export").Cells(a, 1).Value = Iif(Isempty(.Cells(j, 1).Value),0,.Cells(j, 1).Value)
                  Sheets("Export").Cells(a, 2).Value = Iif(Isempty(.Cells(1, i).Value),0,.Cells(1, i).Value)
                  Sheets("Export").Cells(a, 3).Value = Iif(Isempty(.Cells(j, i).Value),0,.Cells(j, i).Value)
            a = a + 1
            end with
        Next
    Next

[fraid49]

Hello,

Je tente ça cet AM. Merci bcp Benjîle.
Si ça fonctionne, je mettrai résolu.
Bonne journée,

Fred