feuille recap avec bouton mise à jour

[papapaul]

Bonsoir à tous,
Faire une recap à partir de la ligne 5.
Ca devrait être simple et pourtant....
J'ai mis un bouton "mise à jour" dans une feuille recap
qui permet d'indiquer le nom des feuilles en colonne A
et le comptage de chacune de ces feuilles (B2)
dans la colonne B de cette même feuille recap.
Si j'ajoute une ou plusieurs feuilles ou que je souhaite
ensuite en supprimer, la mise à jour ne fonctionne pas bien.
Il faudrait que quand j'active le bouton de la feuille recap,
tout soit mis à "blanc" sauf les 4 premieres lignes
puis que cette feuille soit réinitialisée.
Je suis pas tres fier de demander ca mais j'y arrive pas.
Merci d'avance à ceux qui pourront m'aider.

 

[Marc77]

Re : feuille recap avec bouton mise à jour

Bonsoir papapaul et le forum

Je ne sais pas si j'ai tout compris.

Sub Macro1()

Range("A5:B375").Select
Selection.ClearContents
Range("A5").Select
Ligne = 5: Colonne = 1
Dim Feuille As Worksheet

For Each Feuille In ActiveWorkbook.Sheets
If Not Feuille.Name = "Recap" Then
Cells(Ligne, Colonne).Value = Feuille.Name
Cells(Ligne, Colonne + 1).Value = Feuille.Range("b2")
Ligne = Ligne + 1
End If
Range("D1") = Date
Next Feuille

End Sub

 

[papapaul]

Re : feuille recap avec bouton mise à jour

Salut Marc,
Je vérifie mais je crois que c'est ca,
j'ai complétement zappé... ClearContents
Je dois être fatigué.
Milles mercis et @+