Problème avec Object required [Résolu]

[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 :

MySheetName = MySheet.Name

Ci-dessous le code tapé :

Code :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

.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 :

.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

[Runsh63]

Nous devons être sur la bonne voie mais il me met "syntax error".
Le pire c'est que je suis demandeur mais ne suis pas suffisamment calé pour corriger moi-même...

[Qwazerty]

Salut
Voila une écriture différente, je trouve l'utilisation de Cells plus adapté que Range

Code :

.Range(.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0), .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row, "A")).Value

Elle intègre la valeur de LR2

Voila aussi la correction de ta ligne de code

Code :

.range(.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) & ":A" & LR2).Value

++
Qwaz

[mercatog]

Bonsoir à tous,
J'ai une remarque sur cette ligne

Code :

For Each MySheet In ThisWorkbook.Sheets

Vous aurez un erreur au cas où le classeur contient une feuille graphique.
Il fallait mettre

Code :

For Each MySheet In ThisWorkbook.Worksheets

[Runsh63]

Merci pour toutes vos corrections. C'est très bien au niveau de la compilation des données.
Comment faire maintenant pour que la période ressorte en "2010.10" au lieu de "2010,10" ? Quand je faisais :

Code :

.Value = "20" & Left(Right(MySheet.Name, 6), 2) & "." & Left(Right(MySheet.Name, 4), 2)

Je me retrouvais avec le rendu suivant : "2010,1" pour le mois d'octobre.

En changeant comme ceci :

Code :

.Value = "20" & Left(Right(MySheet.Name, 6), 2) & "," & Left(Right(MySheet.Name, 4), 2)

J'ai "2010,10".

Or je voudrais avoir "2010.10". Comment transformer mon code SVP ?
Merci

[Access Newbie]

Envoyé par mercatog

Bonsoir à tous,
J'ai une remarque sur cette ligne

Code :

For Each MySheet In ThisWorkbook.Sheets

Vous aurez un erreur au cas où le classeur contient une feuille graphique.
Il fallait mettre

Code :

For Each MySheet In ThisWorkbook.Worksheets

Bien vu

Je passerai par une variable intermediaire

Code :

1
2
3
4
5
 
 
 sDate=format(dateserial(Left(Right(MySheet.Name, 6), 2) ,Left(Right(MySheet.Name, 4), 2),1),"yyyy.mm")
 
.Value =sDate

En déclarant sDate as string

[Runsh63]

Bonjour Access Newbie,

Je me permets de mettre en pièce jointe le fichier, car malgré ton code, ça ne fonctionne pas...
Peut-être qu'avec l'exemple sous les yeux tu arriveras au résultat que je cherche à obtenir...
Je te remercie toi ainsi que toutes les peronnes qui me favorisent énormément la tâche et m'apprennent beaucoup.

[Access Newbie]

Ce n'est pas grand chose, il s'agit juste d'un probleme e format de ta colonne A de la feuille "compiled datas".

Soit tu met le format "à la main" en selectionnant ta colonne et en mettant un format texte, soit tu le fais par vba (mais je ne suis pas sur que cela soit très utile).

Ci dessous l'exemple avec du vba

Code :

1
2
3
4
    With Sheets("Compiled Data")
        .UsedRange.ClearContents
        .Columns("A:A").NumberFormat = "@"
    End With

PS : je suis un boulet j'ai pensé au format juste après avoir posté ma réponse précédente (la correction que je t'ai fait faire avec le sDate n'est pas necessaire (mais peut etre plus compréhensible).

PS2 : Si tu as des soucis de compréhension sur l'autre bout de code, retourne dans la discussion appropriée et poste un message

[Runsh63]

Super, ça fonctionne nickel, merci beaucoup !!
Je mets "Résolu" sur ce sujet mais je reviendrai sûrement prochainement avec d'autres questions.
Merci à vous tous pour votre patience et vos réponses
Bonne journée !