J'ai trouvé un bout de code qui nettoie une feuille, contenu et
formatage
--------------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1
et fais "ctrl shift fin" je m'aperçois que la sélection va de A1
jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la
feuille venait d'être crée
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
JB
Bonjour
Columns("a:iv").Delete
-Sauvegarder
JB
On 24 mar, 09:47, Michel (pen ar bed) wrote:
Bonjour,
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
Bonjour
Columns("a:iv").Delete
-Sauvegarder
JB
On 24 mar, 09:47, Michel (pen ar bed) <Mic...@mail.net> wrote:
Bonjour,
J'ai trouvé un bout de code qui nettoie une feuille, contenu et
formatage
--------------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1
et fais "ctrl shift fin" je m'aperçois que la sélection va de A1
jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la
feuille venait d'être crée
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
Michel (pen ar bed)
JB avait écrit le 24/03/2008 :
Bonjour
Columns("a:iv").Delete
-Sauvegarder
JB
On 24 mar, 09:47, Michel (pen ar bed) wrote:
Bonjour,
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
Merci
JB avait écrit le 24/03/2008 :
Bonjour
Columns("a:iv").Delete
-Sauvegarder
JB
On 24 mar, 09:47, Michel (pen ar bed) <Mic...@mail.net> wrote:
Bonjour,
J'ai trouvé un bout de code qui nettoie une feuille, contenu et
formatage
--------------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1
et fais "ctrl shift fin" je m'aperçois que la sélection va de A1
jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la
feuille venait d'être crée
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
Merci
Frédéric Sigonneau
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
--------------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et
fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à
CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille
venait d'être crée
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
MichDenis
| ActiveSheet.Shapes.SelectAll | Selection.Delete
Bonjour Frédéric,
Si dans ladite feuille, tu as au moins une cellule qui a un commentaire (l'objet comment) ou une cellule qui a une liste (de validation / liste), les lignes de code proposées ne fonctionnent pas. Cela provoque un message : Mémoire insuffisante
De même on ne peut utiliser le code qui suit sans "perturber grandement" les commentaires (comments) de la feuille et les listes de validation contenues dans les cellules. '------------------------------ Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing '------------------------------
Le seul code qui est valide pour faire disparaître les objets de la feuille est :
ActiveSheet.DrawingObjects.Delete
Et Comme la collection DrawingObjects est toujours supporté par excel que pour des fins de compatibilité avec la version Excel 97, il n'y a aucune aide sur cette collection de disponible dans les versions récentes d'Excel.
"Frédéric Sigonneau" a écrit dans le message de news: OF3Z9$
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
| ActiveSheet.Shapes.SelectAll
| Selection.Delete
Bonjour Frédéric,
Si dans ladite feuille, tu as au moins une cellule qui a un commentaire (l'objet
comment) ou une cellule qui a une liste (de validation / liste), les lignes de
code proposées ne fonctionnent pas. Cela provoque un message : Mémoire insuffisante
De même on ne peut utiliser le code qui suit sans "perturber grandement" les
commentaires (comments) de la feuille et les listes de validation contenues
dans les cellules.
'------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
'------------------------------
Le seul code qui est valide pour faire disparaître les objets de la feuille est :
ActiveSheet.DrawingObjects.Delete
Et Comme la collection DrawingObjects est toujours supporté par excel
que pour des fins de compatibilité avec la version Excel 97, il n'y a aucune
aide sur cette collection de disponible dans les versions récentes d'Excel.
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OF3Z9$ajIHA.3940@TK2MSFTNGP05.phx.gbl...
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
--------------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et
fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à
CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille
venait d'être crée
Si dans ladite feuille, tu as au moins une cellule qui a un commentaire (l'objet comment) ou une cellule qui a une liste (de validation / liste), les lignes de code proposées ne fonctionnent pas. Cela provoque un message : Mémoire insuffisante
De même on ne peut utiliser le code qui suit sans "perturber grandement" les commentaires (comments) de la feuille et les listes de validation contenues dans les cellules. '------------------------------ Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing '------------------------------
Le seul code qui est valide pour faire disparaître les objets de la feuille est :
ActiveSheet.DrawingObjects.Delete
Et Comme la collection DrawingObjects est toujours supporté par excel que pour des fins de compatibilité avec la version Excel 97, il n'y a aucune aide sur cette collection de disponible dans les versions récentes d'Excel.
"Frédéric Sigonneau" a écrit dans le message de news: OF3Z9$
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
Michel (pen ar bed)
Frédéric Sigonneau a exprimé avec précision :
Pour ce genre de travail, une boucle n'est pas indispensable :
ActiveSheet.Shapes.SelectAll Selection.Delete
OK j'en prend bonne note
M.
Frédéric Sigonneau a exprimé avec précision :
Pour ce genre de travail, une boucle n'est pas indispensable :
Pour ce genre de travail, une boucle n'est pas indispensable :
ActiveSheet.Shapes.SelectAll Selection.Delete
OK j'en prend bonne note
M.
Frédéric Sigonneau
Le seul code qui est valide
Tu exagères un peu Denis ! Précédée d'un On Error Resume Next ma proposition est parfaitement valide ! Beaucoup moins élégante que la tienne qui ne demande qu'une ligne de code, j'en conviens volontiers, mais pas moins valide pour autant :)
Si dans ladite feuille, tu as au moins une cellule qui a un commentaire (l'objet comment) ou une cellule qui a une liste (de validation / liste), les lignes de code proposées ne fonctionnent pas. Cela provoque un message : Mémoire insuffisante
De même on ne peut utiliser le code qui suit sans "perturber grandement" les commentaires (comments) de la feuille et les listes de validation contenues dans les cellules. '------------------------------ Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing '------------------------------
Le seul code qui est valide pour faire disparaître les objets de la feuille est :
ActiveSheet.DrawingObjects.Delete
Et Comme la collection DrawingObjects est toujours supporté par excel que pour des fins de compatibilité avec la version Excel 97, il n'y a aucune aide sur cette collection de disponible dans les versions récentes d'Excel.
"Frédéric Sigonneau" a écrit dans le message de news: OF3Z9$
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
Le seul code qui est valide
Tu exagères un peu Denis !
Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
Beaucoup moins élégante que la tienne qui ne demande qu'une ligne de code, j'en
conviens volontiers, mais pas moins valide pour autant :)
Si dans ladite feuille, tu as au moins une cellule qui a un commentaire (l'objet
comment) ou une cellule qui a une liste (de validation / liste), les lignes de
code proposées ne fonctionnent pas. Cela provoque un message : Mémoire insuffisante
De même on ne peut utiliser le code qui suit sans "perturber grandement" les
commentaires (comments) de la feuille et les listes de validation contenues
dans les cellules.
'------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
'------------------------------
Le seul code qui est valide pour faire disparaître les objets de la feuille est :
ActiveSheet.DrawingObjects.Delete
Et Comme la collection DrawingObjects est toujours supporté par excel
que pour des fins de compatibilité avec la version Excel 97, il n'y a aucune
aide sur cette collection de disponible dans les versions récentes d'Excel.
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OF3Z9$ajIHA.3940@TK2MSFTNGP05.phx.gbl...
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
--------------------------------------
Dim OB As Object
For Each OB In ActiveSheet.Shapes
OB.Delete
Next
Set OB = Nothing
----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et
fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à
CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille
venait d'être crée
Tu exagères un peu Denis ! Précédée d'un On Error Resume Next ma proposition est parfaitement valide ! Beaucoup moins élégante que la tienne qui ne demande qu'une ligne de code, j'en conviens volontiers, mais pas moins valide pour autant :)
Si dans ladite feuille, tu as au moins une cellule qui a un commentaire (l'objet comment) ou une cellule qui a une liste (de validation / liste), les lignes de code proposées ne fonctionnent pas. Cela provoque un message : Mémoire insuffisante
De même on ne peut utiliser le code qui suit sans "perturber grandement" les commentaires (comments) de la feuille et les listes de validation contenues dans les cellules. '------------------------------ Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing '------------------------------
Le seul code qui est valide pour faire disparaître les objets de la feuille est :
ActiveSheet.DrawingObjects.Delete
Et Comme la collection DrawingObjects est toujours supporté par excel que pour des fins de compatibilité avec la version Excel 97, il n'y a aucune aide sur cette collection de disponible dans les versions récentes d'Excel.
"Frédéric Sigonneau" a écrit dans le message de news: OF3Z9$
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage
Pour ce genre de travail, une boucle n'est pas indispensable :
J'ai trouvé un bout de code qui nettoie une feuille, contenu et formatage -------------------------------------- Dim OB As Object For Each OB In ActiveSheet.Shapes OB.Delete Next Set OB = Nothing ----------------------------------------------
Cela fonctionne bien, seulement si je me positionne sur la cellule A1 et fais "ctrl shift fin" je m'aperçois que la sélection va de A1 jusqu'à CA30 comment faire pour qu'il n'y est plus que A1 comme si la feuille venait d'être crée
Merci de l'aide
M.
MichDenis
| Tu exagères un peu Denis ! | Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
;-)
J'en conviens... mais je voulaiis simplement attirer ton attention et surtout celle du demandeur sur la problématique que pose la collection "Shapes" en rapport aux "commentaires" des cellules ou des "listes de validation".
| Tu exagères un peu Denis !
| Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
;-)
J'en conviens... mais je voulaiis simplement attirer ton attention et surtout celle du
demandeur sur la problématique que pose la collection "Shapes" en rapport aux
"commentaires" des cellules ou des "listes de validation".
| Tu exagères un peu Denis ! | Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
;-)
J'en conviens... mais je voulaiis simplement attirer ton attention et surtout celle du demandeur sur la problématique que pose la collection "Shapes" en rapport aux "commentaires" des cellules ou des "listes de validation".
Michel (pen ar bed)
MichDenis a formulé la demande :
Tu exagères un peu Denis ! Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
;-)
J'en conviens... mais je voulaiis simplement attirer ton attention et surtout celle du demandeur sur la problématique que pose la collection "Shapes" en rapport aux "commentaires" des cellules ou des "listes de validation".
Merci à vous tous pour toutes ces explications très détaillées
M.
MichDenis a formulé la demande :
Tu exagères un peu Denis !
Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
;-)
J'en conviens... mais je voulaiis simplement attirer ton attention et surtout
celle du demandeur sur la problématique que pose la collection "Shapes" en
rapport aux "commentaires" des cellules ou des "listes de validation".
Merci à vous tous pour toutes ces explications très détaillées
Tu exagères un peu Denis ! Précédée d'un On Error Resume Next ma proposition est parfaitement valide !
;-)
J'en conviens... mais je voulaiis simplement attirer ton attention et surtout celle du demandeur sur la problématique que pose la collection "Shapes" en rapport aux "commentaires" des cellules ou des "listes de validation".
Merci à vous tous pour toutes ces explications très détaillées
