Bonjour,
Dans un classeur comment =E0 l'aide d'une ligne de code=20
supprimer les donn=E9es enregistr=E9es en sachant que la=20
plage des cellules =E0 vid=E9es peut diff=E9r=E9e selon la=20
feuille et surtout sans toucher aux formules?
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
:
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Pascal Engelmajer
Salut, une solution consiste à nommer la plage des cellules à mettre à blanc (raz par ex) en les sélectionnant à l'aide de CTRL + clic gauche et Insertion/nom/définir ... En sélectionnant dans la zone de nom "raz" puis en pressant DEL la zone est mise à blanc (un coup d'enregistreur de macro pour voir et c'est joué) -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "STEN" a écrit dans le message de news: 187101c3fedd$37e9c2c0$ Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Salut,
une solution consiste à nommer la plage des cellules à mettre à blanc (raz
par ex) en les sélectionnant à l'aide de CTRL + clic gauche et
Insertion/nom/définir ...
En sélectionnant dans la zone de nom "raz" puis en pressant DEL la zone est
mise à blanc (un coup d'enregistreur de macro pour voir et c'est joué)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"STEN" <jsterjean@aol.com> a écrit dans le message de news:
187101c3fedd$37e9c2c0$a601280a@phx.gbl...
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Salut, une solution consiste à nommer la plage des cellules à mettre à blanc (raz par ex) en les sélectionnant à l'aide de CTRL + clic gauche et Insertion/nom/définir ... En sélectionnant dans la zone de nom "raz" puis en pressant DEL la zone est mise à blanc (un coup d'enregistreur de macro pour voir et c'est joué) -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "STEN" a écrit dans le message de news: 187101c3fedd$37e9c2c0$ Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
guy
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
:
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Bonsoir Nicoles,
Très intéressé par cette formule:
Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules
?
Est-il possible de modifier cette macro ?
Grand merci par avance. Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%23LapI6t$DHA.2632@TK2MSFTNGP12.phx.gbl...
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des
formules
:
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
:
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Nicolas B.
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees()
For Each cel In Range("A10 :BB300")
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonsoir Nicoles,
Très intéressé par cette formule:
Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les
formules ?
Est-il possible de modifier cette macro ?
Grand merci par avance. Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%23LapI6t$DHA.2632@TK2MSFTNGP12.phx.gbl...
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des
formules
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
guy
Grand merci Nicolas, Si j'ai 10 feuilles dans mon classeur, tu as une solution ? Merci Par avance Guy "Nicolas B." a écrit dans le message de news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Grand merci Nicolas,
Si j'ai 10 feuilles dans mon classeur, tu as une solution ?
Merci Par avance
Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%23KfZrCv$DHA.2512@TK2MSFTNGP11.phx.gbl...
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees()
For Each cel In Range("A10 :BB300")
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonsoir Nicoles,
Très intéressé par cette formule:
Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les
formules ?
Est-il possible de modifier cette macro ?
Grand merci par avance. Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%23LapI6t$DHA.2632@TK2MSFTNGP12.phx.gbl...
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des
formules
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Grand merci Nicolas, Si j'ai 10 feuilles dans mon classeur, tu as une solution ? Merci Par avance Guy "Nicolas B." a écrit dans le message de news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
guy
Hello Nicolas, Je viens d'essayer la premire macro: impeccable. Grand merci Guy "Nicolas B." a écrit dans le message de news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Hello Nicolas,
Je viens d'essayer la premire macro:
impeccable.
Grand merci Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%23KfZrCv$DHA.2512@TK2MSFTNGP11.phx.gbl...
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees()
For Each cel In Range("A10 :BB300")
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonsoir Nicoles,
Très intéressé par cette formule:
Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les
formules ?
Est-il possible de modifier cette macro ?
Grand merci par avance. Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%23LapI6t$DHA.2632@TK2MSFTNGP12.phx.gbl...
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des
formules
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Michel Gaboly
Bonjour,
Bien + simple ;-))
Sub SuppDonnées() ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Bien + simple ;-))
Sub SuppDonnées()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
Bonjour,
Pour l'ensemble des feuilles d'un classeur :
Sub SuppDonnées() Dim f As Worksheet For Each f In ActiveWorkbook.Worksheets f.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents Next f End Sub
Grand merci Nicolas, Si j'ai 10 feuilles dans mon classeur, tu as une solution ? Merci Par avance Guy "Nicolas B." a écrit dans le message de news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Pour l'ensemble des feuilles d'un classeur :
Sub SuppDonnées()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents
Next f
End Sub
Grand merci Nicolas,
Si j'ai 10 feuilles dans mon classeur, tu as une solution ?
Merci Par avance
Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%23KfZrCv$DHA.2512@TK2MSFTNGP11.phx.gbl...
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees()
For Each cel In Range("A10 :BB300")
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonsoir Nicoles,
Très intéressé par cette formule:
Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les
formules ?
Est-il possible de modifier cette macro ?
Grand merci par avance. Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%23LapI6t$DHA.2632@TK2MSFTNGP12.phx.gbl...
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des
formules
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Sub SuppDonnées() Dim f As Worksheet For Each f In ActiveWorkbook.Worksheets f.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents Next f End Sub
Grand merci Nicolas, Si j'ai 10 feuilles dans mon classeur, tu as une solution ? Merci Par avance Guy "Nicolas B." a écrit dans le message de news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
guy
Bonjour Michel, La macro marche très bien ,un tout grand merci. Un inconvénient cependant : toutes feuilles étant déprotégées, seules 10 feuilles sont effacées (de A10 à F25), 7 ne le sont pas. J'ai remplacé UsedRange par Range("A10:F25") pour essai. Amicalement Guy "Michel Gaboly" a écrit dans le message de news:
Bonjour,
Pour l'ensemble des feuilles d'un classeur :
Sub SuppDonnées() Dim f As Worksheet For Each f In ActiveWorkbook.Worksheets f.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents Next f End Sub
Grand merci Nicolas, Si j'ai 10 feuilles dans mon classeur, tu as une solution ? Merci Par avance Guy "Nicolas B." a écrit dans le message de
news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour Michel,
La macro marche très bien ,un tout grand merci.
Un inconvénient cependant : toutes feuilles étant déprotégées, seules 10
feuilles sont effacées (de A10 à F25), 7 ne le sont pas.
J'ai remplacé UsedRange par Range("A10:F25") pour essai.
Amicalement Guy
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:40423505.C8CE9B51@Suppgaboly.com...
Bonjour,
Pour l'ensemble des feuilles d'un classeur :
Sub SuppDonnées()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents
Next f
End Sub
Grand merci Nicolas,
Si j'ai 10 feuilles dans mon classeur, tu as une solution ?
Merci Par avance
Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message
de
news:%23KfZrCv$DHA.2512@TK2MSFTNGP11.phx.gbl...
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees()
For Each cel In Range("A10 :BB300")
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonsoir Nicoles,
Très intéressé par cette formule:
Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les
formules ?
Est-il possible de modifier cette macro ?
Grand merci par avance. Guy
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%23LapI6t$DHA.2632@TK2MSFTNGP12.phx.gbl...
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des
formules
Sub ViderDonnees()
For Each cel In ActiveSheet.UsedRange
If Not cel.HasFormula Then cel.ClearContents
Next
End Sub
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonjour Michel, La macro marche très bien ,un tout grand merci. Un inconvénient cependant : toutes feuilles étant déprotégées, seules 10 feuilles sont effacées (de A10 à F25), 7 ne le sont pas. J'ai remplacé UsedRange par Range("A10:F25") pour essai. Amicalement Guy "Michel Gaboly" a écrit dans le message de news:
Bonjour,
Pour l'ensemble des feuilles d'un classeur :
Sub SuppDonnées() Dim f As Worksheet For Each f In ActiveWorkbook.Worksheets f.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents Next f End Sub
Grand merci Nicolas, Si j'ai 10 feuilles dans mon classeur, tu as une solution ? Merci Par avance Guy "Nicolas B." a écrit dans le message de
news:%23KfZrCv$
Salut Guy,
Il suffit de remplacer ActiveSheet.UsedRange par Range("A10 :BB300") :
Sub ViderDonnees() For Each cel In Range("A10 :BB300") If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonsoir Nicoles, Très intéressé par cette formule: Pour supprimer par ex : les cellules de A10 :BB300 sans effacer les formules ? Est-il possible de modifier cette macro ? Grand merci par avance. Guy
"Nicolas B." a écrit dans le message de news:%23LapI6t$
Salut STEN,
Une macro qui supprime le contenu des cellules sauf si ce sont des formules
Sub ViderDonnees() For Each cel In ActiveSheet.UsedRange If Not cel.HasFormula Then cel.ClearContents Next End Sub
Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
guy
Bonjour à tous les volontaires, Grand merci à Nicolas, Michel et Pascal. Je vais essayer la méthode Pascal au premier moment libre et rendrai compte dès que possible. Amicalement Guy
"STEN" a écrit dans le message de news:187101c3fedd$37e9c2c0$ Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
Merci de votre aide.
Bonjour à tous les volontaires,
Grand merci à Nicolas, Michel et Pascal.
Je vais essayer la méthode Pascal au premier moment libre et rendrai compte
dès que possible.
Amicalement Guy
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:187101c3fedd$37e9c2c0$a601280a@phx.gbl...
Bonjour,
Dans un classeur comment à l'aide d'une ligne de code
supprimer les données enregistrées en sachant que la
plage des cellules à vidées peut différée selon la
feuille et surtout sans toucher aux formules?
Bonjour à tous les volontaires, Grand merci à Nicolas, Michel et Pascal. Je vais essayer la méthode Pascal au premier moment libre et rendrai compte dès que possible. Amicalement Guy
"STEN" a écrit dans le message de news:187101c3fedd$37e9c2c0$ Bonjour, Dans un classeur comment à l'aide d'une ligne de code supprimer les données enregistrées en sachant que la plage des cellules à vidées peut différée selon la feuille et surtout sans toucher aux formules?
