bouton pour recréer fichier en fin de semaine

[danyphil]

Bonsoir

ci joint mon fichier:
http://cjoint.com/?ggaZHqDGSJ

Pourriez vous m'aider pour inserer 2 bouton sur l'onglet "menu"

1 bouton qui pourrait effacer toutes les données inscrites (sauf formule ,cadre etc) sur toutes les pages

et 1 bouton qui pourrait me recréer le fichier a l'identique

merci de votre aide

 

[Compte Supprimé 979]

Re : bouton pour recréer fichier en fin de semaine

Salut Danyphil,

1 bouton qui pourrait effacer toutes les données inscrites (sauf formule ,cadre etc) sur toutes les pages

Pour cela il faut utiliser un code du style

Dim   Dim Sht As Worksheet
  For Each Sht In ThisWorkbook
    If Sht.Name <> "Menu" Then
      ' Repérer ICI dans quelle feuille on est
      ' Effacer le contenu des cellules avec
      'Range("A1:IV65536").ClearContents
    End If
  Next

et 1 bouton qui pourrait me recréer le fichier a l'identique

Là, j'avoue que je ne vois pas ce que tu veux dire ?

A+

 

[danyphil]

Re : bouton pour recréer fichier en fin de semaineet effacement des données

Salut Danyphil,

rebonjour🙂

que dois je taper a la place de "Repérer ICI dans quelle feuille on est
' Effacer le contenu des cellules avec"

merci de votre aide et personne n'aurais une idée 😕 pour (avec un bouton recréer le même fichier à l'identique par exemple sur le bureau

philou

Pour cela il faut utiliser un code du style

Dim   Dim Sht As Worksheet
  For Each Sht In ThisWorkbook
    If Sht.Name <> "Menu" Then
      ' Repérer ICI dans quelle feuille on est
      ' Effacer le contenu des cellules avec
      'Range("A1:IV65536").ClearContents
    End If
  Next

Là, j'avoue que je ne vois pas ce que tu veux dire ?

A+

merci beaucoup pour votre aide