Vider plusieurs cellules d'une feuille avant fermeture du fichier
Bonjour a tous,
Ca va vous paraître simple mais je galère...
J'ai une feuil1 que je complète avec plusieurs userform.
A la fin quand ma feuil1 est complète le dernier userform l'enregistre avec un nom specifique dans un dossier specifique et je voudrais vider toutes les cellules remplies pour retrouver mon fichier vierge à sa ré-ouverture.
Dans ThisWorkbook j'ai mis ce code mais il ne fonctionne pas
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("feuil1").Range("Q13").MergeArea.clearContens
Sheets("feuil1").Range("O15").MergeArea.clearContens
Sheets("feuil1").Range("Q16").MergeArea.clearContens
Sheets("feuil1").Range("K20").MergeArea.clearContens
Sheets("feuil1").Range("C9").MergeArea.clearContens
Sheets("feuil1").Range("G9").MergeArea.clearContens
End Sub
Merci de votre aide
Bonjour,
fait un essai en enlevant .MergeArea
re,
est ce que tu enregistre le fichier avant sa fermeture ?
re,
tu utilise l'événement
Private Sub Workbook_BeforeClose(Cancel As Boolean)
il y a donc un fichier qui se ferme,
dans cette macro as-tu mit le code pour enregistrer les modifications que tu vient d'effectuer via cette macro ?
re,
tu utilise l'événement
Private Sub Workbook_BeforeClose(Cancel As Boolean)il y a donc un fichier qui se ferme,
dans cette macro as-tu mit le code pour enregistrer les modifications que tu vient d'effectuer via cette macro ?
Justement j'arrivais ni a vider mes cellules ni a enregistrer ni a quitter
j'ai trouvé une solution avec ce code :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("feuil1").Range("U4").MergeArea.Clear
End Sub
Seulement ca me tue ma mise en page les cellules fusionnées disparaissent
re,
à tester,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
.Range("Q13") = ""
.Range("O15") = ""
.Range("Q16") = ""
.Range("K20") = ""
.Range("C9") = ""
.Range("G9") = ""
End With
ActiveWorkbook.Save
End SubParfait ça marche merci
Merci pour ce retour, au plaisir!
si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton (indiquer par la flèche verte)
