Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vider un Classeur

Vider un Classeur

7 réponses
Avatar
Ayrton [ASC]
Bonsoir à tous,

j'ai un classeur avec une cellule faisant office de numéro auto ; c'est
à dire qu'à chaque ouverture du classeur, un nouveau numéro s'affiche
( l'ancien + 1 tout simplement ;-) )
J'aimerai qu'à l'ouverture du classeur, mes autres cellules qui sont
remplies se vident ou éventuellement à la fermeture ; je sèche un peu
sur la syntaxe vba qui viderait le classeur à la fermeture; de cette
façon, lors d'une ouverture, on se retrouverait avec juste le numéro
auto et des cellules toutes vides, prêt pour une nouvelle saisie.

Merci d'avance de votre aide

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
La procédure suivante efface toute la feuille "Feuil1" à l'exception du
compteur (en A1) :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ctr As Long
Sheets("Feuil1").Activate
Ctr = [A1]
Cells.Clear ' ou ClearContents, comme tu veux
[A1] = Ctr
End Sub

Cordialement.
Daniel

"Ayrton [ASC]" a écrit dans le message de news:
%
Bonsoir à tous,

j'ai un classeur avec une cellule faisant office de numéro auto ; c'est à
dire qu'à chaque ouverture du classeur, un nouveau numéro s'affiche (
l'ancien + 1 tout simplement ;-) )
J'aimerai qu'à l'ouverture du classeur, mes autres cellules qui sont
remplies se vident ou éventuellement à la fermeture ; je sèche un peu sur
la syntaxe vba qui viderait le classeur à la fermeture; de cette façon,
lors d'une ouverture, on se retrouverait avec juste le numéro auto et des
cellules toutes vides, prêt pour une nouvelle saisie.

Merci d'avance de votre aide

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm


Avatar
Ayrton [ASC]
Bonjour *Daniel*
Dans ton message de
news:%,
tu nous envoyais cette missive :-(*)
Bonsoir.
La procédure suivante efface toute la feuille "Feuil1" à l'exception
du compteur (en A1) :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ctr As Long
Sheets("Feuil1").Activate
Ctr = [A1]
Cells.Clear ' ou ClearContents, comme tu veux
[A1] = Ctr
End Sub


Bonsoir Daniel,

Tout d'abord, je te remercie pour ton aide.
Ton code fonctionne très bien mais en fait je me suis très mal exprimé
;-(
Dans mon classeur, j'ai 3 tableaux avec des cellules qui doivent
imprérativement ne pas s'effacer ; j'ai juste besoin, à la fermeture,
d'effacer ceretaines cellules ( de D13 à D16 et de C24 à C56 ).
Est ce possible et si oui comment ? Je crois qu'on peut avec l'assistant
Macro mais je préfèrerais avec un bout de code VBA.
Je te remercie d'avance.

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Avatar
Daniel
Bonsoir.
Alors :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Activate
Range("D13:D16", "C24:C56").Clear
End Sub

suffit.

Cordialement.
Daniel

"Ayrton [ASC]" a écrit dans le message de news:
O%
Bonjour *Daniel*
Dans ton message de
news:%,
tu nous envoyais cette missive :-(*)
Bonsoir.
La procédure suivante efface toute la feuille "Feuil1" à l'exception
du compteur (en A1) :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ctr As Long
Sheets("Feuil1").Activate
Ctr = [A1]
Cells.Clear ' ou ClearContents, comme tu veux
[A1] = Ctr
End Sub


Bonsoir Daniel,

Tout d'abord, je te remercie pour ton aide.
Ton code fonctionne très bien mais en fait je me suis très mal exprimé ;-(
Dans mon classeur, j'ai 3 tableaux avec des cellules qui doivent
imprérativement ne pas s'effacer ; j'ai juste besoin, à la fermeture,
d'effacer ceretaines cellules ( de D13 à D16 et de C24 à C56 ).
Est ce possible et si oui comment ? Je crois qu'on peut avec l'assistant
Macro mais je préfèrerais avec un bout de code VBA.
Je te remercie d'avance.

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm



Avatar
Ayrton [ASC]
Bonjour *Daniel*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)
Bonsoir.


Bonsoir,

Alors :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Activate
Range("D13:D16", "C24:C56").Clear
End Sub

suffit.


Eh ben oui, il suffisait d'y penser ;-) Si j'avais cherché un
peu..........
En tout cas, merci beaucoup pour ta gentillesse et ton aide

Bonne soirée
Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Avatar
Ayrton [ASC]
Re Daniel,

Excuse moi mais j'aurais juste besoin d'une petite info ; ta syntaxe
fonctionne pil poil mais au lieu de me " vider " les cellules, ça
m'efface tout ;-( Je perds mes colonnes et mes bordures en plus ; je
voulais juste effacer la ( les ) valeurs de mes cellules ; à quel niveau
dois je retoucher le code ? A titre d'info j'ai essayé avec.delete au
lieu de .clear mais j'ai le même résultat.
J'espère que je ne t'ennuie pas trop avec ce souci

Merci
Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
Daniel
Bonsoir.
Remplace "Clear" par "ClearContents".
Cordialement.
Daniel
"Ayrton [ASC]" a écrit dans le message de news:

Re Daniel,

Excuse moi mais j'aurais juste besoin d'une petite info ; ta syntaxe
fonctionne pil poil mais au lieu de me " vider " les cellules, ça m'efface
tout ;-( Je perds mes colonnes et mes bordures en plus ; je voulais juste
effacer la ( les ) valeurs de mes cellules ; à quel niveau dois je
retoucher le code ? A titre d'info j'ai essayé avec.delete au lieu de
.clear mais j'ai le même résultat.
J'espère que je ne t'ennuie pas trop avec ce souci

Merci
Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm


Avatar
Ayrton [ASC]
Bonjour *Daniel*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)

Bonsoir.


Bonjour,

Remplace "Clear" par "ClearContents".


C'est impeccable ! ! C'est juste ce qu'il me fallait ;-)
Merci pour tout

Bonne fin de journée

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm