Remise à zéro des valeurs et formats de 2 tableaux et pas 1 seul

Question

Serait-il possible que le bouton "Mettre tout le tableau à zéro" agisse sur les 2 tableaux ci-dessous et pas seulement sur le "TBL_5Ateliers" mais aussi sur "Tabel8" des colonnes Z à AB ? VBA du module7 ==&gt; Sub RAZ_5_ateliers() Application.ScreenUpdating = False 'message d'avertissement If MsgBox("Attention, Toutes les données seront éffacées,Souhaitez-vous continuer?", vbYesNo + vbCritical + vbDefaultButton2, "effacement total") = vbNo Then Exit Sub With Range("TBL_5Ateliers").ListObject .Parent.Unprotect "seb" Application.Calculation = xlManual If .ListRows.Count &gt; 1 Then .DataBodyRange.Offset(1).Resize(.ListRows.Count - 1).Delete .DataBodyRange.Range("A1:C1").ClearContents .DataBodyRange.Range("D1:W1").Value = 0 Application.Calculation = xlCalculationAutomatic .Parent.Calculate .Parent.Protect "seb" End With Quadrillage_5_ateliers 'application d'un Quadrillage_5_ateliers End Sub Merci beaucoup les passionnés Sur le bouton "Débloquer ou Quitter", tapez vodoraix pour tt débloquer. Et mot de passe pour débloquer les feuilles ==&gt; seb Bonne soirée à bientô.....

BsAlv · Accepted Answer

Oei, mauvaise copie&colle, 2 fautes ... With LO2 If .ListRows.Count Then .DataBodyRange.Delete 'on peut tout supprimer ici(aucune MFC délicate) End With Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlManual sh.Protect "seb" '&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt; PROTECT au lieu de UNPROTECT Application.Calculation = xlCalculationAutomatic sh.Calculate '&lt;&lt;&lt;&lt;&lt;&lt; SH au lieu de ".PARENT" Quadrillage_5_ateliers 'ce quadrillage ne fonctionne plus depuis quelque jours !!!!!! End Sub au moment où tu transforme la plage en tableau structuré, les entêtes se changent en "texte", donc aucun problème avec ces entêtes numériques, ce seront des textes et ne plus des chiffres...

PaulExcelVBA · Answer

Range("Z3:AB99999").ClearContents...

PaulExcelVBA · Answer

Yes fais comme ça et dit nous Paul...

PaulExcelVBA · Answer

Tu veux supprimer uniquement le contenu ou aussi le format(age)? Paul...

PaulExcelVBA · Answer

J'espère avoir bien compris ta requête et que ça peut t'aider, en amont pense à déclarer ta plage de cellule en tableau et renomme le par exemple "tab_droite" Pour vider les valeurs uniquement Range("tab_droite").ClearContents Pour supprimer le formatage et avoir tout en blanc With Range("tab_droite") .Interior.Color = vbWhite .Borders.LineStyle = xlNone End With Et pour remettre en formatage de tableau classique on va dire:: Dim lo As ListObject On Error Resume Next Set lo = ActiveSheet.ListObjects("tab_droite") On Error GoTo 0 If Not lo Is Nothing Then lo.TableStyle = "TableStyleMedium2" ' Style par défaut (alternance de lignes, bordures) End If Paul...

Jean-Paul · Answer

@PaulExcelVBA, Range("tab_droite").ClearContents ce n'est pas une bonne solution que d'appliquer la méthode ClearContent , en effet pour les tableaux structurés nul besoin de garder des lignes vides c'est contre-productif. @vodoraix il faut faire deux manipulations Dans le module 5 (Qu'il faudrait renommer) remplacer la procédure RAZ_5_ateliers() par la procédure FiveAteliersClearAllTabs() ci-dessous Faire un clic droit sur le bouton de la feuille 5 Ateliers (Feuil2) puis cliquer sur affecter une macro, et enfin sélectionner la nouvelle macro :FiveAteliersClearAllTabs() '@Description "Supprime les données des tableaux 'TBL_5Ateliers' et 'TBL_5Ateliers'." Public Sub FiveAteliersClearAllTabs() Dim deleteAllTabs As Boolean Dim itemListObject As Excel.ListObject On Error GoTo Catch Application.EnableEvents = False If MsgBox("Attention, Toutes les données des deux tableaux seront éffacées, Souhaitez-vous continuer ?", vbYesNo + vbCritical + vbDefaultButton2, "effacement total") = vbYes Then Set itemListObject = Feuil2.Range("TBL_5Ateliers").ListObject If Not itemListObject Is Nothing Then With itemListObject If .ListRows.Count &gt; 0 Then .DataBodyRange.Delete Else 'TODO Message ? le tableau est vide End If End With Else 'TODO Message ? Pas de tableau End If If Not itemListObject Is Nothing Then Set itemListObject = Nothing Set itemListObject = Feuil2.Range("TBL_5Ateliers").ListObject If Not itemListObject Is Nothing Then With itemListObject If .ListRows.Count &gt; 0 Then If deleteAllTabs = True Then .DataBodyRange.Delete Else 'TODO Message ? Le tableau est vide End If End With Else 'TODO Message ? Pas de tableau End If End If Finally: Application.EnableEvents = True Exit Sub Catch: ' // Do something. MsgBox "Oupss... Nous avons rencontré une erreur : " & Err.Number & _ " (" & Err.Description & ") dans la procédure FiveAteliersClearAllTabs du Module Module7" Resume Finally End Sub...

Jean-Paul · Answer

Re,

Oui je pense que cela est du à la protection de la feuille, j'ai tapé le code vite fait et je n'y ai pas pensé.

Procédure mise à jour :

'@Description "Supprime les données des tableaux 'TBL_5Ateliers' et 'TBL_5Ateliers'."
Public Sub FiveAteliersClearAllTabs()
    Dim deleteAllTabs As Boolean
    Dim itemListObject As Excel.ListObject
    On Error GoTo Catch
    Application.EnableEvents = False
    If MsgBox("Attention, Toutes les données des deux tableaux seront éffacées, Souhaitez-vous continuer ?", vbYesNo + vbCritical + vbDefaultButton2, "effacement total") = vbYes Then
        Set itemListObject = Feuil2.Range("TBL_5Ateliers").ListObject
        If Not itemListObject Is Nothing Then
            With itemListObject
                If .ListRows.Count > 0 Then
                    If Feuil2.ProtectContents Then Feuil2.Unprotect Password:=GlobalConstants.SHEETS_MDP
                    .DataBodyRange.Delete
                Else
                    'TODO Message ? le tableau est vide
                End If
            End With
        Else
            'TODO Message ? Pas de tableau
        End If
        If Not itemListObject Is Nothing Then Set itemListObject = Nothing

        Set itemListObject = Feuil2.Range("Tabel8").ListObject
        If Not itemListObject Is Nothing Then
            With itemListObject
                If .ListRows.Count > 0 Then
                    If Feuil2.ProtectContents Then Feuil2.Unprotect Password:=GlobalConstants.SHEETS_MDP
                    .DataBodyRange.Delete
                Else
                    'TODO Message ? le tableau est vide
                End If
            End With
        Else
            'TODO Message ? Pas de tableau
        End If
    End If

Finally:
    Feuil2.Protect Password:=GlobalConstants.SHEETS_MDP
    Application.EnableEvents = True
    Exit Sub

Catch:
    ' // Do something.
    MsgBox "Oupss... Nous avons rencontré une erreur : " & Err.Number & _
           " (" & Err.Description & ") dans la procédure FiveAteliersClearAllTabs du Module Module7"

    Resume Finally

End Sub

Assurez-vous qu'un module 'GlobalConstants' est présent, et contient les constantes :

Option Explicit

Public Const SHEETS_MDP As String = "seb"
Public Const APPLICATION_MDP As String = "vodoraix"
Public Const POSITION_TO_ADD_ON_TAB As Long = 0

Jean-Paul · Answer

Re, C'est tout à fait normal vous avez formater certaines cellules de la feuille, mais ce n'est pas pris en compte sur le format du tableau. Donc dans l'ordre : Sélectionner les lignes 2 à 8 Onglet Accueil Groupe police : Supprimer la mise en gras. Supprimer les bordures Passer sur Aucun remplissage Cliquez sur une cellule du tableau 'Tabel8' Ruban/Création de tableau groupe style de tableau cliquer sur nouveau style Une fenêtre s'ouvre vous pouvez définir le style de vos tableaux. Renouveler l'opération pour l'autre tableau. Les cellules qui ne font pas partie des tableau peuvent être formatées comme à l'habitude. nb pour les lignes et les colonnes elles vont par deux, si vous voulez que toutes les lignes du tableau Tabl8 soient identiques mettez leurs le même format. P.S. Avez vous testé le fichier fourni la dernière fois ? Vous avez les commandes sur le ruban : Les commandes s'adaptent selon la feuille qui est active (Test avec la feuille 5 Ateliers) Ici avec la feuille Classmt par discipline+Général Je suis en attente de savoir si le contexte vous plaît pour continuer...

BsAlv · Answer

J'ai crée une macro paramétrée parce qu'on l'utilisera plus tard pour les 2 autres feuilles Sub RAZ_5_ateliers() RAZ_Tous_Les_Ateliers Range("TBL_5Ateliers").ListObject, Range("Tabel8").ListObject 'macro paramétré avec les 2 TS de votre feuille End Sub Sub RAZ_9Cibles() RAZ_Tous_Les_Ateliers Range("TBL_premier de 9 cibles").ListObject, Range("Tabel 2 de 9 cibles").ListObject 'macro paramétré avec les 2 TS de votre feuille End Sub Sub RAZ_Tous_Les_Ateliers(LO1 As ListObject, LO2 As ListObject) Dim sh As Worksheet Set sh = LO1.Parent If sh.Name &lt;&gt; LO2.Parent.Name Then MsgBox "2 feuilles différentes", vbCritical: Exit Sub .... Donc la macro "RAZ_5_Ateliers" saute vers la macro "RAZ_Tous_Les_Ateliers" avec ses 2 paramètres, ses 2 tableaux structurés. Pour les 2 autres feuilles, on n'a pas encore des TS là, donc, ce sera un tout petit boulot et on peut utiliser la même macro (voir macro "RAZ-9cibles" mais les noms des tableaux sont encore faux). Il faut savoir que c'est inutile de donner le nom de la feuille pour un listobject dans un module normal (cela n'est pas vrai dans le module d'une feuille). Donc dans mes macros vous verrez ".parent" quand je veux savoir la feuille. A la limite, on peut déplacer un TS vers une autre feuille sans qu'on doit modifier VBA, si tout est bien fait ( ) Vous verrez aussi que pour le premier TS, je ne supprime pas le databodyrange complèt, je maintiens la première ligne pour conserver les MFCs (il y a quelqu'unes qui ne fonctionnent plus, si je supprime la première ligne )...