Mise au point macro

[Océane]

Bonjour
Avec l'aide du forum j'ai réussi à créer cette application qui devient un peu compliqué mais qui me rend service souvent.
La feuille tableau de bord, après avoir saisi : Nom, Prénom, Date de naissance, crée automatiquement des lignes numérotées F1, F2, F3 ... etc...autant que de noms saisies.
Ensuite la macro bleu, créer autant de feuilles F, qu'il y a de lignes complétées, copiée sur la feuille modèle.

J'aurai besoin d'une macro supplémentaire, qui supprimerai toutes les lignes de la feuille "Tableau de bord" sans pour autant supprimer la formule : ="F"&TEXTE(LIGNE()-6;"000" qui crée
la ligne suivante, et celles qui rapatrient les points depuis les feuilles F .
Merci d'avance
Lien vers la pièce jointe : grosfi.ch/HTKO0sB73XywU

 

[Staple1600]

Bonsoir le fil, le forum

@Océane
Pourquoi ne pas joindre ton fichier directement sur le forum?
(puisque sa taille n'est que de 92.4 ko)

PS: D'autant plus que sur XLD, pas besoin d'afficher ton email

 

[Océane]

Effectivement, je pensais que le poids max était de 50 mega

 

[Staple1600]

Bonsoir le fil, le forum

@Océane
Apparemment, ceci semble faire l'affaire

Sub RAZ_TableauDeBord()
With ActiveSheet.ListObjects("Tableau2").DataBodyRange
If .Rows.Count > 1 Then
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
End If
.Columns(2).Resize(, 3).ClearContents
End With
End Sub

 

[Océane]

Bonsoir à tous
Merci Staple1600, C'est exactement ce qu'il me fallait.
Bonne semaine