aide sur erreur macro si cellule vide

[fr832]

Bonjour à tous, j'utilise ce code qui fonctionne trés bien.

Sub copie_colle_sansdoublons()
    'copie les unités dans la feuille matrice
    Sheets("Matrice").Select
    Range("E6:E13,E16:E32").Select
    Selection.Copy
    
    'colle les valeurs unités dans la feuille données
     Sheets("données").Select
     Range("M2").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        'extrait les doublons
      Columns("M:M").Select
    [COLOR="Red"]Range("M2:M27").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "O2"), Unique:=True[/COLOR]        
       'retourne se ranger en a1 de la feuille sommaire
         Sheets("Sommaire").Select
         Application.CutCopyMode = False
         Range("A1").Select
End Sub

Cette erreur surgit si on active le code et qu'il n'y a pas de données dans la colonne à copier.

Est il possible et si oui comment faut il procéder pour rajouter une fonction du style ESTVIDE ou du style ""?

Par avance merci pour vos lumières

 

[Guest]

Re : aide sur erreur macro si cellule vide

Bonsoir,

Tu peux rajouter un test:

If Application.CountA(Range("M2:M27")) > 0 Then
            Range("M2:M27").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("O2"), Unique:=True
            '.... suite du code
End If

A+

 

[fr832]

Re : aide sur erreur macro si cellule vide

super merfci hasco bonne soirée amitiés