MS Excel VBA - Effacer le contenu des cellules en un clic

Submitted by CAAadmin on Wed, 03/28/2018 - 11:11

Un simple code VBA pour effacer le contenu des cellules (tout) avec un seul clic

Les étapes sont comme indiqué ci-dessous

Étape 1: Accédez à l'onglet Développeur et insérez un bouton à partir des contrôles ActiveX (assurez-vous que le mode Conception est activé)

insert activex controls button

 

 

 

 

 

 

 

 

 

 

Étape 2: Dessinez un bouton n'importe où dans le tableau de cellules puis faites un clic droit pour voir le code

draw command button and view code

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Étape 3: Insérer l'extrait suivant

ThisWorkbook.Sheets("Sheet1").Range("A1:Z100").Clear

entre

Private Sub CommandButton1_Click()
et
End Sub

code snippet

 

 

 

 

 

 

Étape 4: Enregistrer le classeur en tant que fichier Excel activé par macro

Étape 5: Vous pouvez changer Range ("A1: Z100") à n'importe quelle gamme que vous préférez