Mise au point macro

Océane · 23 Juillet 2018

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 · 23 Juillet 2018

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 · 24 Juillet 2018

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

Staple1600 · 24 Juillet 2018

Bonsoir le fil, le forum

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

VB:

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 · 24 Juillet 2018

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

Mise au point macro

Océane

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Océane

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

Océane

XLDnaute Impliqué

Discussions similaires