fr832
XLDnaute Occasionnel
Bonjour à tous, j'utilise ce code qui fonctionne trés bien.
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
Code:
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