Discussion :

[Runsh63]

Bonjour,

Je tente de compiler des données et utilises pour la première fois le code Do Until... Loop.
Lors de l'exécution de la macro, celle-ci s'arrête sur la ligne :

Code :

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

MySheetName = MySheet.Name

Ci-dessous le code tapé :

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
Sub MS_Data()
 
Dim MySheet As Worksheet, MySheetName As String, MSYear As String, MSMonth As String
Dim LR1 As Long
 
Application.ScreenUpdating = False
 
MySheetName = MySheet.Name
MSYear = "20" & Left(Right(MySheetName, 6), 2)
MSMonth = Left(Right(MySheetName, 4), 2)
LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
 
    Do Until MySheetName = "MS Data"
        With MySheet
            .Range("A1:I" & LR1).Copy Sheets("Compiled Data").Range("B" & .Rows.Count).End(xlUp).Offset(1, 0)
        End With
    Loop
 
 
Application.ScreenUpdating = True
 
End Sub

Pouvez-vous m'aider à corriger SVP ?

D'avance merci !

[Access Newbie]

Bonjour,

Que voulez-vous faire ? Vous voulez parcourir toutes les feuilles du classeur et les concatener sur un feuille de resultat ?

Je remarque qu'il manque d'office une affectation :

set MySheet=? (activesheet ? peut-etre autre chose en fonction de ce que vous répondrez à la question précédente).

D'autre part il risque d'y avoir un bug sur la ligne

Code :

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

LR1 = .Range("A" & .Rows.Count).End(xlUp).Row

Il manque un bloc with d'après moi.

Bonne journée.

[Runsh63]

Bonjour AccessNewbie,

J'ai tendance à vous énerver avec mes questions à la noix, mais vous me pratiquez bien puisque vous avez tout compris.
Je cherche à compiler des données de différentes feuilles.
Le nombre de feuilles pouvant varier, j'ai pensé à écrire ainsi.
Je pense que votre solution Set MySheet = ActiveSheet est pas mal.
Si ça ne marche pas, je reviens vers vous car vous avez compris ma finalité.

J'ai placé LR1 = ... plus bas dans le code, en effet il manquait un bloc With...

[Access Newbie]

Vous devriez plutot utiliser une boucle dans cet esprit :

Code :

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

1
2
3
4
5
6
For Each sht In ThisWorkbook.Sheets
    If sht.Name <> "Compiled Data" Then
        LR1 = sht.Range("A" & sht.Rows.Count).End(xlUp).Row
        sht.Range("A1:I" & LR1).Copy Sheets("Compiled Data").Range("B" & Sheets("Compiled Data").Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next sht

Par contre j'ai pas tout compris a l utilité des variables MSYear et MSMonth qui ne sont pas utilisées.

Et j'ai pas compris le

Code :

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

Do Until MySheetName = "MS Data"

Qu'est ce que cela signifie ? qu'attendez vous en faisant cette commande ?

Je vous laisse adapter le code à votre cas

PS : Ca a fonctionné l'autre bout de code que je vous avait pondu ?

[Runsh63]

Access Newbie,

Je peux très bien vous vouvoyer mais vous pouvez me tutoyer, j'aime autant.
L'autre bout de code était parfait, je l'ai adapté à mon cas et j'aurai à ce propos quelques questions à vous poser car je n'ai pas saisi une petite chose.

Je vais de suite tester le code que vous venez d'écrire.
Les variables MSYear et MSMonth me serviront tout de suite, c'est que j'y vais pas à pas. Chaque nom d'onglet se termine par jjmmaa et j'en ai besoin car comme vous le voyez, je colle les données de chaque feuille dans l'onglet de destination en colonne B. En A, je souhaite récupérer le nom de chaque feuille pour ensuite les coller en A(x). Car au bout du bout, j'aurai toutes mes données compilées et j'aimerai pouvoir différencier chaque "période" car j'en aurai besoin par la suite.
Je vais tenter de mon côté de "pondre" quelque chose mais ça ne m'étonnerait pas que je revienne vers vous plus vite que vous le pensez

[patricktoulon]

bonjour

tu a tapé ceci

Code :

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

MySheetName = MySheet.Name

et en aucun cas tu a precisé avant le quel c'etait ou alors ailleur doncil manque une portion du cade


ensuite tu dis:

Code :

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

MSYear = "20" & Left(Right(MySheetName, 6), 2)

la tu devrais avoir une erreur puisque MySheetName est = a rien



au plaisir

[Runsh63]

Afin de récupérer la période en colonne A de ma feuille "Compiled Data", période que je récupère dans le nom de l'onglet de base, voilà ce que j'ai tapé (merci Access Newbie) :

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
Sub MS_Data()
 
Dim MySheet As Worksheet
Dim LR1 As Long, LR2 As Long
 
Application.ScreenUpdating = False
 
    For Each MySheet In ThisWorkbook.Sheets
        If MySheet.Name <> "Compiled data" And MySheet.Name <> "Final data" And MySheet.Name <> "MS Data" And MySheet.Name <> "Main Menu" Then
            LR1 = MySheet.Range("A" & MySheet.Rows.Count).End(xlUp).Row
            MySheet.Range("A1:I" & LR1).Copy Sheets("Compiled Data").Range("B" & Sheets("Compiled Data").Rows.Count).End(xlUp).Offset(1, 0)
                With Sheets("Compiled Data")
                    LR2 = .Range("B" & .Rows.Count).End(xlUp).Row
                    .Range("A" & .Rows.Count.End(xlUp).Offset(1, 0) & ":A" & LR2).Value = "20" & Left(Right(MySheet.Name, 6), 2) & "." & Left(Right(MySheet.Name, 4), 2)
                End With
        End If
    Next MySheet
 
 
Application.ScreenUpdating = True
 
End Sub

Mais j'ai une erreur sur cette ligne :

Code :

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

.Range("A" & .Rows.Count.End(xlUp).Offset(1, 0) & ":A" & LR2).Value = "20" & Left(Right(MySheet.Name, 6), 2) & "." & Left(Right(MySheet.Name, 4), 2)

Encore Object Required...

[patricktoulon]

re
ferme les parenthezes d'un range ca marchera mieux

Code :

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

.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) & ":A" & LR2).Value = "20" & Left(Right(MySheet.Name, 6), 2) & "." & Left(Right(MySheet.Name, 4), 2)

au plaisir