Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RESOLU] Code ne fonctionne pas avec fichier partagé

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:

Discussions similaires

Réponses
7
Affichages
384
Réponses
2
Affichages
372
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…