jeanba
XLDnaute Occasionnel
Bonjour à tout le Forum,
J'ai fait quelques recherches et avec l'aide en ligne de notre communauté XLNaute ci et là, j'ai pu réalisé le programme ci-joint.
Mais, depuis 2 jours, il plante sur une ligne relative à la procédure de collage spéciale Valeurs. Et oui, c'est le problème justement de nous autres qui copions/collons des codes sans tout comprendre...
En tout cas, j'ai besoin de votre aide, car je sais pas à quel niveau est le problème, surtout que le code s'exécute partiellement!
Voic le code et le fichier joint:
J'ai fait quelques recherches et avec l'aide en ligne de notre communauté XLNaute ci et là, j'ai pu réalisé le programme ci-joint.
Mais, depuis 2 jours, il plante sur une ligne relative à la procédure de collage spéciale Valeurs. Et oui, c'est le problème justement de nous autres qui copions/collons des codes sans tout comprendre...
En tout cas, j'ai besoin de votre aide, car je sais pas à quel niveau est le problème, surtout que le code s'exécute partiellement!
Voic le code et le fichier joint:
Code:
Sub CopierColler()
Dim wsh As Worksheet, derlig&, xrg As Range
Application.ScreenUpdating = False
Worksheets("Centralisation").Range("A2:H" & Rows.Count).ClearContents
For Each wsh In ThisWorkbook.Worksheets
If IsDate("1-" & wsh.Name) Then
If Len(wsh.Range("A3")) > 0 Then
With Worksheets("Centralisation")
derlig = wsh.Cells(Rows.Count, "A").End(xlUp).Row
If derlig > 2 Then
Set xrg = .Cells(Rows.Count, "B").End(xlUp).Offset(1)
wsh.Range("A3:G" & derlig).Copy xrg
xrg.PasteSpecial Paste:=xlPasteValues[/color] ' C'est ici que ça bugue
xrg.Offset(, -1).Resize(wsh.Range("A8:G" & derlig).Rows.Count) = Month("1-" & wsh.Name)
End If
End With
End If
End If
Next wsh
End Sub