Fritillaires
XLDnaute Nouveau
Bonjour,
J'ai une macro qui recopie la feuille en cours et efface certaines zones. Mais après le 1er "Selection.ClearContents" la procédure s'interrompt sans aucun message d'erreur.
Sub CopierFiger()
'
On Error GoTo ExitSub
' copier la feuille
AC1 = ActiveSheet.Name
ActiveSheet.Unprotect
Sheets(AC1).Copy After:=Sheets(AC1)
' effacer les données mensuelles
' Cells(3, 1).Value = "?"
' Cells(4, 1).Value = "?"
Range("Q6", "AH100").Select
Selection.ClearContents
Range("AK6", "AV100").ClearContents
Selection.ClearContents
Une macro du même type avec les mêmes commandes fonctionne parfaitement bien dans un autre fichier. Est-ce que quelqu'un aurait une idée de ce qui se passe ?
Merci d'avance
J'ai une macro qui recopie la feuille en cours et efface certaines zones. Mais après le 1er "Selection.ClearContents" la procédure s'interrompt sans aucun message d'erreur.
Sub CopierFiger()
'
On Error GoTo ExitSub
' copier la feuille
AC1 = ActiveSheet.Name
ActiveSheet.Unprotect
Sheets(AC1).Copy After:=Sheets(AC1)
' effacer les données mensuelles
' Cells(3, 1).Value = "?"
' Cells(4, 1).Value = "?"
Range("Q6", "AH100").Select
Selection.ClearContents
Range("AK6", "AV100").ClearContents
Selection.ClearContents
Une macro du même type avec les mêmes commandes fonctionne parfaitement bien dans un autre fichier. Est-ce que quelqu'un aurait une idée de ce qui se passe ?
Merci d'avance