Re : [VBA] Passer au suite du code si sélection vide
Bonjour et merci d'avoir répondu aussi vite
J'ai essayé mais ça ne fonctionne pas non plus.
Ca me marque : Pas de cellule correspondante :/
Voila le code :
'#### CDP ####
'Activer la feuille concernée
Worksheets("CDP").Activate
'Effacer les données présentes
Range("A5:L26").ClearContents
'Mise en place des filtres
Worksheets("INVENTAIRE").Activate
ActiveSheet.Range("$C$4:$S$965").AutoFilter Field:=3, Criteria1:= _
"Coup de Pates"
ActiveSheet.Range("$C$4:$S$965").AutoFilter Field:=17, Criteria1:=">0", _
Operator:=xlAnd
If Not IsEmpty(Range("C7:S965")) Then
Sheets("INVENTAIRE").Range("C7:S965").SpecialCells(xlVisible).Copy
'Coller les données
Worksheets("CDP").Activate
Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A5").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Cacher les colonnes en trop
Columns("I:K").Hidden = True
End If
'Supprimer le filtre mis en place dans "INVENTAIRE"
Worksheets("INVENTAIRE").Activate
ActiveSheet.ShowAllData
Peut-être qu'en voyant ça, tu auras une jolie idée