Bonsoir,
Je me permets de poster ici afin de savoir ce qui cloche dans ma macro.
Je me suis servi d'une macro trouvée ici même:
Pour créer celle-ci:
Pour info j'ai créer la macro dans le module car je passe par un bouton qui sera présent sur chaques feuilles (au nombre de 4 max).
D'ailleurs si quelqu'un connait une solution pour ne créer le bouton qu'une fois; tout en sachant qu'il est impossible de modifier la barre d'outils.
Cette macro a pour but de n'être utilisée qu'une fois pour diminuer la taille du fichier qui à l'heure actuelle fleure les 5Mo...
Je me permets de poster ici afin de savoir ce qui cloche dans ma macro.
Je me suis servi d'une macro trouvée ici même:
Merci...Sub SupLignVides()
Dim Derlign As Long
Derlign = ActiveSheet.UsedRange.Rows.Count
Rows(Derlign + 1 & ":65536").Delete
End Sub
Pour créer celle-ci:
Et bien figurez-vous que la macro plante sur la ligne rouge...Sub SupLignVides()
Dim Derlign As Long
Derlign = ActiveSheet.UsedRange.Rows.Count
Rows(Derlign + 1 & ":65536").Delete
' colonne
Dim Dercol As Long
Dercol = ActiveSheet.UsedRange.Columns.Count
Columns(Dercol + 1 & ":IV").Delete
End Sub
Pour info j'ai créer la macro dans le module car je passe par un bouton qui sera présent sur chaques feuilles (au nombre de 4 max).
D'ailleurs si quelqu'un connait une solution pour ne créer le bouton qu'une fois; tout en sachant qu'il est impossible de modifier la barre d'outils.
Cette macro a pour but de n'être utilisée qu'une fois pour diminuer la taille du fichier qui à l'heure actuelle fleure les 5Mo...