Bouton supprimer

Le 31/10/2021 à 20:28

Bonsoir à tous,

A l'aide du bouton je voudrais supprimer ce que contiennent plusieurs cellules dans différentes feuilles.

Pourriez vous

9essai.xlsm (15.39 Ko)

m'aider?

Le 31/10/2021 à 22:37

Bonsoir,

Voir essai en Pj

7essai.xlsm (21.65 Ko)

Slts

Le 01/11/2021 à 09:57

Bonjour,

Je vous remercie beaucoup, juste une précision si je rajoute un tableau en feuille 4 me suffit il de rajouter une virgule avec les coordonnées des cellules pour que cela fonctionne. Autre précision les entêtes des tableaux seront des cellules verrouillées.

Merci de votre aide

6essai.xlsm (22.74 Ko)

Le 01/11/2021 à 11:41

Bonjour,

Effectivement

Sub EffaceDonnées()
Dim Supp
    Supp = MsgBox("Voulez-vous éffacer les données du tableau feuil3 & feuil4?", vbYesNo + vbQuestion + _
              vbDefaultButton2, "Confirmation de suppression")
    If Supp = vbYes Then
        Application.ScreenUpdating = False
Sheets("Feuil3").[A5:C27] = ""
Sheets("Feuil4").[B7:N27,B31:O39] = ""

MsgBox "Toutes les colonnes ont été résetées."
End If
End Sub

Autre précision les entêtes des tableaux seront des cellules verrouillées

Désolé rien compris pour la citation ci-dessus

Slts

Le 02/11/2021 à 12:10

Bonjour boss_68,

Je vous remercie beaucoup pour votre aide.

Amicalement,