Bonjour
Comme tout débutant, je copie les procédures pour les appliquer via VBA.
Je réalise donc un filtre élaboré dans une feuille excel et je finis ma procédure en finissant par afficher tout. Et tout se déroule très bien.
Sauf que la macro copié par l'outil macro se bloque sur la fin correspondant à afficher tout?
La macro enregistrée ci dessous se bloque sur :ActiveSheet.ShowAllData
Erreur d'éxécution "1004"
Macro:
Sheets("Récap-opportunité").Select
' Nettoyage colonne des ratios
Range("G36:G2922").Select
Selection.ClearContents
Range("C35").Select
Range("C35:G2922").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("C31:G33"), Unique:=False
Range("N10").Select
Selection.Copy
Range("G372").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.ShowAllData
UserForm12.Show
Si vous pouvez m'aider? Je désespère te suis sur qu'il y a beaucoup plus simple?
Comme tout débutant, je copie les procédures pour les appliquer via VBA.
Je réalise donc un filtre élaboré dans une feuille excel et je finis ma procédure en finissant par afficher tout. Et tout se déroule très bien.
Sauf que la macro copié par l'outil macro se bloque sur la fin correspondant à afficher tout?
La macro enregistrée ci dessous se bloque sur :ActiveSheet.ShowAllData
Erreur d'éxécution "1004"
Macro:
Sheets("Récap-opportunité").Select
' Nettoyage colonne des ratios
Range("G36:G2922").Select
Selection.ClearContents
Range("C35").Select
Range("C35:G2922").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("C31:G33"), Unique:=False
Range("N10").Select
Selection.Copy
Range("G372").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.ShowAllData
UserForm12.Show
Si vous pouvez m'aider? Je désespère te suis sur qu'il y a beaucoup plus simple?