[RESOLU] Code ne fonctionne pas avec fichier partagé

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 :
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
233
Réponses
3
Affichages
115
Réponses
10
Affichages
282
Réponses
2
Affichages
124
Réponses
10
Affichages
389
Réponses
5
Affichages
243
Retour