Bouton effacer lui-même effacé par la macro

Bonjour,

J'ai essayé de créer une macro qui efface tout le contenu d'une feuille puis compile plusieurs feuilles Excel.

Cette dernière fonctionne bien, mais quand j'ai voulu ajouter un bouton de lancement pour déclencher la macro, celui-ci est lui-même effacé par la commande lancée.

J'ai essayé de n'effacer que les colonne A:P et de mettre le bouton plus loin ou de le changer de feuille mais cela ne change rien. Si quelqu'un a une idée, je suis preneuse

Voici le code concerné:

Sub SupEtCompil()

Cells.Select

Selection.Delete Shift:=xlUp

Range("A1").Select

Dim Temp As String

Dim Ligne As Long

Temp = Dir(ActiveWorkbook.Path & "\*.xls")

Application.DisplayAlerts = False

Do While Temp <> ""

If Temp <> "mensuel.xls" Then

Workbooks.Open ActiveWorkbook.Path & "\" & Temp

Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy

Workbooks("mensuel.xls").Sheets(1).Activate

Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1

Range("A" & CStr(Ligne)).Select

ActiveSheet.Paste

Workbooks(Temp).Close

End If

Temp = Dir

Loop

Range("A1").Select

Application.DisplayAlerts = True

End Sub

En vous remerciant pour votre aide

Brigitte

Bonjour Brigitte, bonjour le forum,

• Clique avec le bouton droit de la souris sur le bouton que tu as créé,

• choisis le menu Format de contrôle....

• La boîte de dialogue Format de contrôle s'ouvre,

• Onglet Propriétés,

• Coche l'option Ne pas délacer ou dimensionner avec les cellules.

• Valide avec le bouton [OK] de la boîte de dialogue.

Ça devrait fonctionner...

Bonjour,

Merci beaucoup ThauThème, problème résolu en moins d'une minute chrono!

Bonne journée