Compteur

Bonjour,

Je besoin d’une petite aide dans le fichier ci-joint.

Le bouton efface le contenue des cas que ne sont pas blancs sur le page D3 :Z45.

Est-ce que quelqu’un pourra ajouter le code du VB pour compter le numéro de commandes ? C’est à dire, quand on appuie sur le bouton, la dernière commande (maintenant sa numéro est 34) serra effacée et dans la cellule D6 apparaitra le numéro 35.

Merci !!!

Baton

P.S. Le fichier est protegé. Le code est: aaa

Bonjour

Remplaces ta macro par celle-ci, elle devrait faire ce que tu veux

Sub Efface_Page()
Dim Num As Integer

  Num = Range("D6")
  Range("D6:Z45").SpecialCells(xlCellTypeConstants, 23).ClearContents
  Range("W3:W5").ClearContents
  Range("D6") = Num + 1
End Sub

Banzai,

Ton code marche très bien!!!

Le seule problème qu'a apparu est que le bouton ne fonctionne quand le fichier est protegé.

Je n'arrive pas à comprendre pourquoi.

Peux-tu conceiller quelque chose?

Merci et bonne soirée!

-- 06 Juil 2011, 22:48 --

Salut Banzai,

I found a solution for the last problem. Now, it works perfectly due to your code!

Thank you very much for your kind and prompt aid!

Baton