skye.in.sky
XLDnaute Nouveau
Bonjour tout le monde!
Petit souci je n'arrive pas à faire marcher ce code VBA dans mon fichier partagé. Je n'ai pourtant pas de problème sur les autres. Je sais que les fonctions .select peuvent être fatidiques mais la je ne vois pas comment changer le code autrement. Le code me sert a copier toutes les lignes de toutes les feuilles de mon fichier à partir de la ligne 3 (sauf l'onglet consolidation ou je vais tout coller) et seulement si il y a quelquechose dans la colonne M (de chaque feuille)
Voici le code en question :
J'espère que je vais pouvoir avoir une réponse, j'ai un peu du mal
Merci d'avance,
Jennifer
Petit souci je n'arrive pas à faire marcher ce code VBA dans mon fichier partagé. Je n'ai pourtant pas de problème sur les autres. Je sais que les fonctions .select peuvent être fatidiques mais la je ne vois pas comment changer le code autrement. Le code me sert a copier toutes les lignes de toutes les feuilles de mon fichier à partir de la ligne 3 (sauf l'onglet consolidation ou je vais tout coller) et seulement si il y a quelquechose dans la colonne M (de chaque feuille)
Voici le code en question :
Code:
Sub Conso()
Dim ws As Worksheet
Application.ScreenUpdating = False
Worksheets("Consolidation").Range("A4:A65000").EntireRow.Delete
For Each ws In Worksheets
If ws.Name <> "Consolidation" Then
For i = 3 To ws.Range("M65000").End(xlUp).Row
If ws.Cells(i, 13) <> "" Then ws.Rows(i).Copy Destination:=Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)
Next i
End If
Next ws
End Sub
J'espère que je vais pouvoir avoir une réponse, j'ai un peu du mal
Merci d'avance,
Jennifer
Dernière édition: