vider les cellules

[dede08]

bonjour a tous aprés mainte recherche je bug un petit coup de pouce serai genial suite a
Private Sub CommandButton5_Click()
Sheets("BON DE COMMANDE").Copy
Application.Dialogs(xlDialogSaveAs).Show Range("B11").Value & "*.xlsx"
j aimerai vider les cellules B10 B11 B12 ainsi que la plage A15:B48 de la feuille bon de commande ensuite je comprend pas a chaque fois que j enregistre par le bouton il ouvre le fichier

 

[Mikey]

Re : vider les cellules

Bonjour
je ne sais pas si c'est exactement ca que tu veux faire mais si tu veux supprimer les valeur d'une cellule lorsque tu clique sur un commande bouton il faut que tu ecrive
l'adresse de la cellule.value=""

 

[phlaurent55]

Re : vider les cellules

Bonjour dede


pour vider les cellules
Sheets("BON DE COMMANDE").Range("B10:B12").ClearContents
Sheets("BON DE COMMANDE").Range("A15:B48").ClearContents

ou
Sheets("BON DE COMMANDE").Range("A15:B48","B10:B12").ClearContents



à+
Philippe

Edit: Bonjour à tous

 

[ralph45]

Re : vider les cellules

Bonjour dede08,

"...j enregistre par le bouton il ouvre le fichier..."

Quel fichier ? Celui que tu as oublié de joindre ?

A+

 

[Fmiste]

Re : vider les cellules

Je n'ai pas compris ton problème.

Si tu pouvais joindre un fichier, je pense que l'on pourrait te filer un coup de pouce 😉

 

[dede08]

Re : vider les cellules

merci a toi de me repondre deja mais je veux apres avoir cliquer sur le bouton 5 enregistrer la feuille ca c est fait par mon code et ensuite vider les cellules pour que le bon de commande reste vierge merci encore

 

[dede08]

Re : vider les cellules

Bonjour dede


pour vider les cellules
Sheets("BON DE COMMANDE").Range("B10:B12").ClearContents
Sheets("BON DE COMMANDE").Range("A15:B48").ClearContents

ou
Sheets("BON DE COMMANDE").Range("A15:B48","B10:B12").ClearContents



à+
Philippe

merci a toi mais j arrive pas a cumuler mon code et le tien merci encore a toi

 

[dede08]

Re : vider les cellules

Private Sub CommandButton5_Click()
Sheets("BON DE COMMANDE").Copy
Application.Dialogs(xlDialogSaveAs).Show Range("B11").Value & "*.xlsx"
Sheets("BON DE COMMANDE").Range("A15:B48","B10:B12").ClearContent s
End Sub
je doit mal compiler les deux un peu perdu je t avoue

 

[phlaurent55]

Re : vider les cellules

Re,

Remarque:

.......... erreur de frappe 😡
ClearContents et pas ClearContent s (il n'y a pas d'espace avant le "s" )

à+
Philippe

 

[dede08]

Re : vider les cellules

merci encore mais ca bug la avec ce code
Private Sub CommandButton5_Click()
Sheets("BON DE COMMANDE").Copy
Application.Dialogs(xlDialogSaveAs).Show Range("B11").Value & "*.xlsx"
Sheets("BON DE COMMANDE").Range("A15:B48","B10:B12").ClearContents
End Sub
l ordre n est pas respecter je voudrai qu il enregistre le bon de commande rempli et ensuite vide les cellules la en se moment il enregistre le bon de commande vierge merci de ton aide

 

[phlaurent55]

Re : vider les cellules

Re,

l ordre n est pas respecter je voudrai qu il enregistre le bon de commande rempli et ensuite vide les cellules la en se moment il enregistre le bon de commande vierge merci de ton aide

je vois dans ce code que la "vidange" des cellules se fait en dernier lieu dans le code

que vient faire ceci dans le code

Sheets("BON DE COMMANDE").Copy

si le bon de commande enregistré est vierge c'est qu'il y était avant l'enregistrement
peut-être à cause d'une procédure Before_Save qui serait présente dans ThisWorkBook
mais certainement pas à cause du code que tu viens de mettre à la réponse précédente

après 5 interventions de ta part dans ce fil de discussion, la réponse de Ralph est de plus en plus pertinente

Bonjour dede08,

Quel fichier ? Celui que tu as oublié de joindre ?

A+

à+
Philippe