Bouton RAZ AVEC CONFIRMATION "OUI NON" Résolu/Fermé

Question

Bonjour a vous tous, 

je suis nouveau sur ce forum, et novice en VBA et en suivant vos conseils avisés sur le sujet j'ai fais mon bouton RAZ et s'il est possible pourrais je lui adjoindre et comment la possibilité de demander confirmation avec la validation oui ou non pour éviter une fausse manip
excel 2007
Merci à vous de votre réponse

Cordialement

Claude

eriiic · Accepted Answer

Bonjour,

Par exemple, ajouter cette ligne en début de procédure :
If InputBox("Confirmez-vous ?", , vbYesNo) = vbNo Then Exit Sub
eric

bercla13 · Answer

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

bercla13 · Answer

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

eriiic · Answer

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

bercla13 · Answer

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

bercla13 · Answer

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

bercla13 · Answer

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

bercla13 · Answer

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

Bouton RAZ AVEC CONFIRMATION "OUI NON"

8 réponses

Discussions similaires