VBA Remise à zéro

[dlassoie]

Bonjour,

J'ai mis sur la feuille calcul un bouton Reset. J'aimerai que lorsque je clic sur le bouton les cellules B1, A8 à A46 et G8 à G46 se vide des infos inscrite dedans mais j'ai lu plusieurs exemple sur le forum mais à chaque fois que j'ai fini et je clic sur le bouton tout ce vide et je n'arrive plus qu'à marquer un seul chiffre dans les colonnes si dessus. J'aimerai aussi à la fin de la macro que la case sélectionner retourne sur la B1.

D'avance merci

 

[Guest]

Re : VBA Remise à zéro

Bonjour,

Macro à coller dans un module général et à affecter au bouton reset (Click-droit sur le bouton, affecter une macro)

Sub Reset()
If ActiveSheet.Name <> "Calcul" Then Sheets("Calcul").Activate
Range("B1,A8:A46,G8:G46").ClearContents
Range("B1").Select
End Sub

A+

 

[kingfadhel]

Re : VBA Remise à zéro

bonjour,

Si j'ai compris tu veux effacer le contenu des cellule et plage mentionnées, voila le code

Sub Test()
If Range("B1") <> "" Then
    If MsgBox("Voulez vous vraiment effacer le contenu de B1, A8:A46 et G8:G46??") = vbOK Then
    Range("b1").ClearContents
    Range("A8:A46").ClearContents
    Range("G8:G46").ClearContents
    Else
    Exit Sub
    End If
Else
MsgBox "Il n'y a pas de donnés à effacer", vbInformation, "Merci"
End If

End Sub

 

[excfl]

Re : VBA Remise à zéro

Bonsoir le forum,

https://www.excel-downloads.com/threads/probleme-de-formule-recherchev.213271/

https://www.excel-downloads.com/threads/bon-de-commande.213365/

Voir fichier joint : clic/bouton reset : cellules définies dans le post1 remises à zéro.

excfl

PS les remerciements sont rares !