Discussion :

[stephadm]

Bonjour au forum,

Dans un Userform, je cherche à faire un récapitulatif de Feuil23 vers Feuil26 mais en gardant uniquement les infos des colonnes A, B, I, K et N

Avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim X As Long, y As Integer, z As Long
With Feuil19
.Range("A2:E65536").ClearContents
For X = 0 To appel.ListCount - 1
z = appel.List(X, 4)
For y = 0 To 13
.Cells(X + 2, y + 1) = Feuil17.Cells(z, y + 1)
Next
Next
End With
End Sub

j'arrive à afficher dans la Feuil26 les colonnes A à E mais ce n'est pas ce que je veux (voir plus haut).

Avez-vous une idée ?

Pour info : appel est le nom de la listbox dans l'userform

Merci

Stephanie

[gFZT82]

Bonjour,

Tu peux essayer avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim X As Long, Y As Integer, Z As Long
Dim Tablo()
    Tablo = Array("A", "B", "I", "K", "N")
    With Feuil26
        .Range("A2:N65536").ClearContents
        For X = 0 To Me.appel.ListCount - 1
            Z = Me.appel.List(X, 4)
            For Y = 0 To UBound(Tablo)
                .Cells(X + 2, Tablo(Y)) = Feuil23.Cells(Z, Tablo(Y))
            Next
        Next
    End With
End Sub

Cordialement.

[stephadm]

bonjour gFZT82 et au forum,

gFZT82, votre code fonctionne bien mais par oubli de ma part, je n'ai pas précisé que les colonnes I, K et N se retrouvaient dans C, D et E de la feuille destination et que la première ligne commence en A6 sachant que les entêtes se trouvent en A5.

Ex. : Source (A, B, I, K, N)
Destination (A, B, C, D, E)

Est-ce possible de faire la même chose ?

Merci

Stephanie

[gFZT82]

Ce qui serait bien aussi, c'est que tu cherches à t'approprier le code .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim X As Long, Y As Integer, Z As Long
Dim Tablo()
    Tablo = Array("A", "B", "I", "K", "N")
    With Feuil26
        .Range("A2:N65536").ClearContents
        For X = 0 To Me.appel.ListCount - 1
            Z = Me.appel.List(X, 4)
            For Y = 0 To UBound(Tablo)
                .Cells(X + 2, Y + 1) = Feuil23.Cells(Z, Tablo(Y))
            Next
        Next
    End With
End Sub

Cordialement.

EDIT : Je te laisse chercher comment débuter la copie à la ligne 6

[stephadm]

bonjour gFZT82 et au forum,

Merci gFZT82 pour le code et en ce qui concerne mon problème pour remplir à partir de la ligne 6, j'ai modifier comme ceci

Code :

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

.Cells(X + 6, Y + 1) = Feuil23.Cells(Z, Tablo(Y))

Ca fonctionne

Merci à tous

Stephanie