Discussion :

[Canoirode]

Bonjour tout le monde,

J ai bricole cette macro tout l apres midi qui semble fonctionne mais j obtiens quand meme une erreur 400 lorsque je la lance

Pourriez vous m aider a y jetter un oeil? Un grand merci,

^^

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
Sub Canoirode()
 
    Dim Ws As Variant
    Dim NxtRw As Long
    Dim UsdRws As Long
 
 For Each Ws In Worksheets
        If Not Ws.Name = "Global" Then
            NxtRw = Sheets("Global").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
            UsdRws = Ws.Range("A3").End(xlDown).Row
            Ws.Range("A3:F" & UsdRws).Copy Sheets("Global").Range("A" & NxtRw)
            Ws.Range("G3:K" & UsdRws).Copy Sheets("Global").Range("G" & NxtRw)
        End If
    Next Ws
 
End Sub

[had4789]

Bonjour,

personne ne connait les messages d'erreur par coeur.

Pour le moment ce que je peux te dire c'est d'éviter les variant.

Tu peux replacer IF not pour un simple IF X <>.

A quoi correspond WS?

[Canoirode]

Oh Merci!

Si je ne dis pas de betises: WS correspond a "worksheet"

Le message d erreur que je trouve est en fait:

Run-Time error '1004':
Application-Defined or object -defined error

Merci encore pour votre aide

[had4789]

Si WS correspond à worksheet rien ne te choque?

En fait tu cherches des feuilles dans des feuilles.

Peut-être qu'avec WS as worksheet et for each ws in woorbook ça ira mieux.

[Canoirode]

Bien vu!

En fait ce qui causait l erreur c etait une tab sans info dedans.

Petite question, quand je lance le script deux fois, il ne recolle pas mes donnees a partir de la cellule A3 mais a la fin des donneees precedentes generee par lors de la premiere execution. (je prie pour que ce que je viens de dire sois clair)

Saurais tu comment faire en sorte que la macro reparte de A3 a chaque fois?

merci bcp

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
Sub Canoirode()
 
    Dim Ws As Variant
    Dim NxtRw As Long
    Dim UsdRws As Long
 
 For Each Ws In Worksheets
        If Not Ws.Name = "Global" Then
            NxtRw = Sheets("Global").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
            UsdRws = Ws.Range("A3").End(xlDown).Row
            Ws.Range("A3:G" & UsdRws).Copy Sheets("Global").Range("A" & NxtRw)
            Ws.Range("J3:M" & UsdRws).Copy Sheets("Global").Range("J" & NxtRw)
 
        End If
    Next Ws
 
End Sub

[had4789]

Fais un clearcontent

[Canoirode]

Tellement evident! Un grand merci!