Forum Forum Formule Excel

les formules du TS « Stats » contiennent ce chemin « 'D:\FRANCK\EXCEL\JOB\Orientation[Orientation métiers.xlsm] » qui cause des problèmes. C’est un mauvais copie/colle ou c’est vraiment le lieu ? le principe avec specialcells, mais après, on a le tableau avec 1 ligne (vide mais avec des formules). Donc, c’est à vous de choisir entre les 2 solutions, avec leur avantages et désavantages. Si l’entête a seulement un autre couleur, je prends le première méthode. Sub Test() With Range("Stats").ListObject 'votre TS If .ListRows.Count > 1 Then .DataBodyRange.Offset(1).Resize(.ListRows.Count - 1).Delete 'supprimer toutes les lignes à partir de la 2ème Application.EnableEvents = False 'specialcells provoque un évent, donc bloquer On Error Resume Next .DataBodyRange.SpecialCells(xlConstants).ClearContents 'vider les cellules sauf les formules On Error GoTo 0 Application.EnableEvents = True End With End Sub

Bonjour à tous, Merci pour vos réponses. @Daniel77 ta 1ère solution fonctionne, aprés un recopier/coller pour la derniére colonne ou il y avait une erreur.. Sinon je sais pas ou tu as trouver le chemin des fichiers Mais je préfère aussi ta 2éme solution qui fonctionne bien. @Cow18 Ta solution bug Et je comprends pas comment tu « vides les specialcells(xlconstants) de cette première ligne ». pour garder les formules. Sinon j’ai pris tes boites de dialogues Vbyes/no que j’ai pas pris la peine de chercher, mais bien plus pratiques. Bonne soirée

autrement on supprime toutes les lignes sauf la première et puis on vide les specialcells(xlconstants) de cette première ligne forum (7).xlsm (66,2 Ko)

bonjour le fil, on peut simplement supprimer tout le"databodyrange", les formules restent présent. Donc dès que vous ajoutez une nouvelle ligne, vous verrez ces formules. Il y a une chose ambétant, en ajoutant cette première ligne, elle aura les « formats » de l’entête. Donc s’ils sont les mêmes, aucun problème. Si on met la macro dans un module normal (ne pas dans le module d’une feuille), on ne doit pas préciser la feuille, donc j’ai déplacé la macro vers le « module1 » Sub RAZ_Click() 'RAZ Choix eleves, métiers parents groupes et réservations If vbYes = MsgBox("Confirmez-vous l'effacement des choix des élèves", vbYesNo, "Utilisateur") Then With Range("Choa").ListObject If .ListRows.Count = 0 Then MsgBox "le tableau avec le choix des élèves était vide" Else .DataBodyRange.Delete MsgBox "Tous les choix des élèves ont été effacés." End If End With End If If vbYes = MsgBox("Confirmez-vous l'effacement des métiers des parents", vbYesNo, "Utilisateur") Then With Range("Stats").ListObject If .ListRows.Count = 0 Then MsgBox "le tableau avec les métiers des parents était vide" Else .DataBodyRange.Delete MsgBox "Tous les métiers des parents ont été effacés." End If End With End If End Sub

Plus simple : Sub raz_Click() 'RAZ Choix eleves, métiers parents groupes et réservations Dim ws1 As Worksheet, ws2 As Worksheet Dim tb1 As ListObject, tb2 As ListObject Dim drn1%, drn2%, conf1$, conf2$, i As Long Set ws1 = Sheets("Choix") Set tb1 = ws1.ListObjects("Choa") Set tb2 = ws1.ListObjects("Stats") Application.ScreenUpdating = False drn1 = tb1.ListRows.Count + 1 conf1 = InputBox("Confirmez-vous l'effacement des choix des élèves: O/N", "Utilisateur") If conf1 = "O" Then With ws1 Range(Cells(2, 4), Cells(drn1, 7)).ClearContents 'efface les données (garde les lignes) End With MsgBox "Tous les choix des élèves ont été effacés." End If conf2 = InputBox("Confirmez-vous l'effacement des métiers des parents: O/N", "Utilisateur") If conf2 = "O" Then With ws1 For i = tb2.ListRows.Count To 2 Step -1 tb2.ListRows(i).Delete Next i .[I2:J2] = "" 'Range(Cells(2, 10), Cells(drn2, 10)).ClearContents End With MsgBox "Tous les métiers des parents ont été effacés." End If End Sub Daniel

Bonjour, Essaie : Sub raz_Click() 'RAZ Choix eleves, métiers parents groupes et réservations Dim ws1 As Worksheet, ws2 As Worksheet Dim tb1 As ListObject, tb2 As ListObject Dim drn1%, drn2%, conf1$, conf2$ Set ws1 = Sheets("Choix") Set tb1 = ws1.ListObjects("Choa") Set tb2 = ws1.ListObjects("Stats") Application.ScreenUpdating = False drn1 = tb1.ListRows.Count + 1 conf1 = InputBox("Confirmez-vous l'effacement des choix des élèves: O/N", "Utilisateur") If conf1 = "O" Then With ws1 Range(Cells(2, 4), Cells(drn1, 7)).ClearContents 'efface les données (garde les lignes) End With MsgBox "Tous les choix des élèves ont été effacés." End If conf2 = InputBox("Confirmez-vous l'effacement des métiers des parents: O/N", "Utilisateur") If conf2 = "O" Then With ws1 Range("Stats").Delete 'supprime les formules aussi 'Range(Cells(2, 10), Cells(drn2, 10)).ClearContents .[K2].FormulaLocal = "=NB.SI(D:G;[@Métiers])" .[L2].FormulaLocal = "=SI([@Candidats]<'D:\FRANCK\EXCEL\JOB\Orientation\[Orientation métiers.xlsm]SousNombres'!$O$2" & _ ";'D:\FRANCK\EXCEL\JOB\Orientation\[Orientation métiers.xlsm]SousNombres'!$O$2-[@Candidats];0)" .[M2].FormulaLocal = "=MAJUSCULE(GAUCHE([@Métiers];4))" .[N2].FormulaLocal = "=NB.SI('D:\FRANCK\EXCEL\JOB\Orientation\[Orientation métiers.xlsm]SousNombres'!F:F;" & _ "'D:\FRANCK\EXCEL\JOB\Orientation\[Orientation métiers.xlsm]Choix'!M2&1)+" & _ "NB.SI('D:\FRANCK\EXCEL\JOB\Orientation\[Orientation métiers.xlsm]SurNombres'!E:E;" & _ "'D:\FRANCK\EXCEL\JOB\Orientation\[Orie

Bonjour, Je fais une page avec 2 tableaux, le 2éme faisant des statistiques du 1er. L’utilisateur peut faire une Raz pour supprimer les données, mais j’aimerais garder les formules sur la 1ére ligne pour que les statistiques se fassent à nouveau. forum.xlsm (46,4 Ko) J’ai cherché, et trouvé une solution pour intégrer les formules, j’y arrive pas. Merci

Merci à vous deux.

Bonjour, Tu as un tutoriel gratuit ici : https://excel-pratique.com/fr/vba Daniel

Bonjour à la communauté, qu’est-ce que vous conseillez comme littérature ou méthodes pour commencer à créer des macros en vba? Merci à tous