Bouton RAZ AVEC CONFIRMATION "OUI NON"

Bonjour,

Par exemple, ajouter cette ligne en début de procédure :

If InputBox("Confirmez-vous ?", , vbYesNo) = vbNo Then Exit Sub

eric

Bonjour Eriiic,

merci pour ta réponse je ne comprend pas le sens de ta phrase en fin de mail (En plus du merci (si si, ça se fait !!!), ) vu que je l'avais fait sur mon message.
Bon pas grave, cela fonctionne c'est parfait, j'ai oublier hier un petit truc, en fait je m'en suis rendu compte après, je crée un bouton raz pour vider trois colonnes, (deux avec des sommes une avec des dates) le soucis

Pardon erreur de manip, je cherchais pour joindre un tableau excel, mais raté

Pour résumer, une cellule au format (aujourd'hui()) et deux colonnes dans lesquelles je rentre des sommes avec une cellule total au bas de chacune, un bouton valider qui me renvoie le tout sur un tableau a coté Pour un total annuel
Un bouton raz pour la remise a zéro du tableau journalier
un autre bouton raz pour la remise à zéro annuel

27 janvier 2014 22540 24500 29 janvier 2014
27 janvier 2014 22540 24500
28 janvier 2014 22540 24500
29 janvier 2014 4912 3519 600 5I41
250 521
541 951
3000 852
521 654
0 0
0 0
0 0
0 0
0 0
4912 3519

Mon souci comment écrire pour la colonne date remise a zéro et retour a la cellule d'origine
Je ne sais pas si je suis clair, si le petit bout de tableau si dessus ne bouge pas cela pourrait peut être aider

Voici le code du bouton valider
Private Sub CommandButton1_Click()
Dim derl As Single
derl = Range("b10000").End(xlUp).Row + 1
Range("B" & derl) = CDate(Range("G3"))
Range("D" & derl) = Range("G16").Value
Range("E" & derl) = Range("J16").Value

End Sub

celui que j'avais commencer a écrire pour le bouton raz annuel

Private Sub CommandButton3_Click()
Range("D1:D277,E1:E277") = 0
End Sub

il me manque donc la ligne pour remettre a zéro en B3

Merci d'avoir pris le temps de me lire et encore pour ta lumière
Cordialement

Claude

Bonjour,

je ne comprend pas le sens de ta phrase en fin de mail
C'est ma signature qui apparait en bas de chacune de mes réponse.

Private Sub CommandButton3_Click()
Range("D1:D277,E1:E277") = 0
End Sub
J'aurais plutôt mis :
Range("D1:D277,E1:E277") = ""
ou
Range("D1:D277,E1:E277").clearcontents

Mon souci comment écrire pour la colonne date remise a zéro et retour a la cellule d'origine
Si j'ai bien compris :
[A:A].clearcontents
[A1].select

cjoint.com pour déposer le fichier xls, et coller ici le lien fourni.

eric

Bravo, en changeant juste colonne B en place de A cela fonctionne à merveille , juste une dernière question 'je pense) l'enregistrement ce fait sur les ligne B2 à 277 idem pour D et E

Private Sub CommandButton1_Click()
Dim derl As Single
derl = Range("b10000").End(xlUp).Row + 1
Range("B" & derl) = CDate(Range("G3"))
Range("D" & derl) = Range("G16").Value
Range("E" & derl) = Range("J16").Value

End Sub

pour Démarrer en ligne 6, j'ai essayé

Range("B6" & derl) = CDate(Range("G3"))
Range("D6" & derl) = Range("G16").Value
Range("E6" & derl) = Range("J16").Value

et la fonction ne répond plus, ou est mon probleme ?

Merci de ta patience

Cordialement
Claude

Bonjour Eric,

considérons le fichier résolu, mais avant de le classer il me reste une question à te poser,
en I 2 un solde, après des ajouts à celui-ci le résultat en I 63
Je voudrais "avec ton aide" réaliser un bouton RAZ De la colonne I5:I62, mais écrire I63 somme de I5:I62, le solde en I2

autre chose comment fais tu pour enserrer un fichier dans le message

Merci encore de ton aide

Cordialement

Claude

https://www.cjoint.com/?3Bcn43yROX9

j'avais fais une erreur, j'avais écrit cijoint et ne comprenais pas la chose proposée
Pardon
voici
le lien
merci de ta compréhension

claude

Bonjour Eric,

Désolé de t'importuner, je suis à la retraite et je n'ai jamais eut de cours sur le b a ba d'excel, je me forme seul sur quelques fichiers que je fais dans le cas de gestion bénévole d'une copropriété

donc nous en resterons là et considérons le sujet résolu
pour info sur le tableau le total à transférer était I9 en I2 )

Merci quand même

Cordialement
Claude