Discussion :

[pezimad]

Bonjour,

J'ai un script qui regroupe les données de plusieurs tableaux du même classeur a la fin du premier.

Le problème c'est que des fois il ne respecte pas le classement original des lignes ajoutés.

Vous trouvez un fichier d'exemple dans les pièces jointes. Merci d’avoir m'aider a faire cette amélioration.

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
 
Sub transfert()
Dim lastLineSh1
Dim sh_index
Dim lastLineCurrentSh
Dim lastColumnCurrentSh
Dim line
Dim column
 
For sh_index = 2 To Sheets.Count 'parcours des feuilles 2 à N (n= derniere feuilles)
    lastColumnCurrentSh = Sheets(sh_index).Cells(1, Cells.Columns.Count).End(xlToLeft).column 'calcul du nombre de colonnes de la feuille active
    For column = 1 To lastColumnCurrentSh   'parcours des colonnes de la feuille active
        lastLineCurrentCol = Sheets(sh_index).Cells(Rows.Count, column).End(xlUp).Row 'calcul du nombre de lignes de la colonne active
        For line = 1 To lastLineCurrentCol  'parcours des lignes de la colonne active
            lastLineSh1 = IIf(Sheets(1).Cells(Rows.Count, column).End(xlUp).Row = 1, 1, Sheets(1).Cells(Rows.Count, column).End(xlUp).Row + 1) 'passage à la ligne suivant de la feuille 1
            Sheets(1).Cells(lastLineSh1, column) = Sheets(sh_index).Cells(line, column) 'copie des valeurs
        Next line
    Next column
Next sh_index
 
End Sub

[EngueEngue]

tu connais les range.copy ? ... au lieu de boucler tu fais un range . copy et tu pastes

[Marc-L]

Bonjour,

peut aussi se faire directement sans Paste, voir l'aide de la méthode Range.Copy et son argument Destination …

Consulter aussi l'aide de la propriété UsedRange …

[Daniel.C]

Bonjour,

Le problème c'est que des fois il ne respecte pas le classement original des lignes ajoutés.

Je ne comprends pas ce que tu veux dire. Est-ce que tu peux donner un exemple ?

[EngueEngue]

Code :

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

lastLineSh1 = IIf(Sheets(1).Cells(Rows.Count, column).End(xlUp).Row = 1, 1, Sheets(1).Cells(Rows.Count, column).End(xlUp).Row + 1)

Si pas de lignes dans un des classeur, ça revient à 1..

[pezimad]

Merci à vous tous pour vos commentaires en réalité je ne sais pas comment faire pour afficher un message "Hello world!" avec VB. Je suis un PHPiste et ce script et pour un ami qui est comptable. Veuillez SVP me donner un script complet c'est lui c'est lui qui va le tester.

Bonjour,

Je ne comprends pas ce que tu veux dire. Est-ce que tu peux donner un exemple ?

L'example est dans les fichiers joints. On a un classeur constitué de plusieurs feuilles dans chaque feuille il y a un tableau le script doit copier le contenue de tous les tableau dans le tableau de la premiére feuille. Le probleme c'est que des fois le resultat ne respecte pas l'ordre des anciennes colonnes telles qu'elles sont dans leurs tableaux d'origines.

[Daniel.C]

Personnellement, je ne suis pas myope. D'autre part, si possible, ce serait mieux si ton ami pouvait discuter directement avec nous. C'est un peu comme si j'avais un problème PHP...