Remplir une fiche avec des donnée en quantité variable

Bonsoir Eole, bonsir le forum,

Dans la réponse du post #4 je disais : Commence par effacer toutes le cellules contenant des formules dans l'onglet modèle PB XxXxX puis essaie le code commenté ci-dessous :

Ne penses-tu pas qu'il serait plus simple d'effacer les toutes les formules dans le modèle plutôt que de créer un code qui l'efface à chaque copie ?!

Bonsoir le forum

Merci de ton rappel Thau Thème, comme j'avais effacé cette feuille modèle, je l'ai repiquée dans un ancien fichier et oui désolé il y avait encore toutes ces formules.

Mais lorsque je crée ma feuille de donnée, j'en importe quelque unes et c'est pour celles-ci que je voulais faire quelque chose.

Merci pour ta disponibilité et ta patience

Bonsoir Eole, bonsoir le forum,

Sinon, le code ci-dessous efface toutes les formules d'un classeur :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglets)

For Each O In Sheets 'boucle sur tous les onglets du classeur
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    'supprime toutes les formules de l'onglet O (génère une erreur si l'onglet ne contient pas de formule)
    O.Cells.SpecialCells(xlCellTypeFormulas).ClearContents
    If Err <> 0 Then Err.Clear 'si une erreur a été générée, efface l'erreur
    On Error GoTo 0 'annule la gestion des erreurs
Next O
End Sub

Bonsoir le forum

Un grand merci à toi Thau Thème là j'ai tout ce qu'il me faut

c'est vraiment super ta part

merci beaucoup