Problème Projet ou bibliothèque introuvable

Bonjour,

J'ai reçu ce code hier pour un problème que j'avais pour supprimer des lignes.

J'ai inséré ce code dans un autre de mes fichiers et maintenant je ne suis plus capable d'accéder à mes modules VBA.

Je reçois le code d'erreur "Projet ou bibliothèque introuvable".

Comment faire pour accéder à nouveau au VBA?

Public Sub DeleteRowsInTable()
Dim lo As ListObject, sDate As String, rngData As Range
    Application.ScreenUpdating = False
    With Worksheets("Donnees heures")
        Set lo = .ListObjects("Basedonnées")
        sDate = Format(.Cells(3, 5).Value2, "mm/dd/yyyy")
    End With
    With lo
        If .ShowAutoFilter Then .AutoFilter.ShowAllData
        .Range.AutoFilter field:=6, Criteria1:="<" & sDate
        On Error Resume Next
        Set rngData = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        lo.Range.AutoFilter field:=6
    End With
    If rngData Is Nothing Then
        MsgBox "Il n'y a pas de données à supprimer !...", 64, "Informations"
    Else
        rngData.Delete
    End If
End Sub

Oiseau bleu

Bonjour,

J'ai tendance à penser que ta demande est mal exprimée : A quel moment reçoit tu ce message ?

Quand tu reçois ce message, tu n'as pas le choix entre plusieurs boutons dont "Débogage" ?

Si "Oui" accepter le débogage et indiquer quel est le texte mis en surbrillance.

Si "Non" faire une copie d'écran du message, ou le noter intégralement.

A+

Bonsoir,

J'ai réussi à récupérer mon fichier et à accéder au VBA; mais j'ai un autre problème.

Le code que l'on m'a remis fonctionnait très bien avec mon autre fichier; mais avec les données de celui-ci juste certaine colonne sont effacées.

Je ne comprends pas.

Merci,

Oiseau bleu

Bonjour,

Pourquoi des lignes vides dans le tableau structuré ?

Pourquoi des cellules vides dans la colonne Date ?

Pourquoi des en-têtes dans le corps du tableau ?

Il faut nettoyer tes données !...

Cdlt.

Bonjour,

Ce sont des données qui proviennent de différents systèmes comptables et qui sont transférées dans Excel.

Y a-t-il un moyen rapide de supprimer les lignes sans à avoir à nettoyer toutes les informations transférer?

Merci,

Oiseau bleu

Bonjour,

Regarde du côté de Power Query pour récupérer tes données, nettoyer tes données et les agréger.

Cdlt.

Merci, beaucoup.

Bonne journée,

Oiseau bleu