Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" a écrit dans le message de news:Bonjour,
Tu peux essayer cette petite procédure :
'================ >> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003. Ce
sont des commentaires qui ne me servent à rien, mais que je n'arrive pas
à supprimer car quant je clique dessus, Excel se plante et ferme mon
classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" <fs@news.group> a écrit dans le message de news:
OxP7UX5OKHA.5108@TK2MSFTNGP02.phx.gbl...
Bonjour,
Tu peux essayer cette petite procédure :
'================ >> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003. Ce
sont des commentaires qui ne me servent à rien, mais que je n'arrive pas
à supprimer car quant je clique dessus, Excel se plante et ferme mon
classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" a écrit dans le message de news:Bonjour,
Tu peux essayer cette petite procédure :
'================ >> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003. Ce
sont des commentaires qui ne me servent à rien, mais que je n'arrive pas
à supprimer car quant je clique dessus, Excel se plante et ferme mon
classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je peux
très bien les copier sur un autre classeur et les remettre ensuite si tu
veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver ?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je les
affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit de
l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça me
plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que je
n'arrive pas à supprimer car quant je clique dessus, Excel se plante
et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je peux
très bien les copier sur un autre classeur et les remettre ensuite si tu
veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" <i@v> a écrit dans le message de news:
%23ggLZh5OKHA.5488@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver ?
isabelle
Gouap a écrit :
Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je les
affiche les uns à la suite des autres.
"isabelle" <i@v> a écrit dans le message de news:
uNSiUO5OKHA.5108@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit de
l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça me
plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" <i@v> a écrit dans le message de news:
On$d%2354OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que je
n'arrive pas à supprimer car quant je clique dessus, Excel se plante
et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je peux
très bien les copier sur un autre classeur et les remettre ensuite si tu
veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver ?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je les
affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit de
l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça me
plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que je
n'arrive pas à supprimer car quant je clique dessus, Excel se plante
et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le nom
de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver
?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je
les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit
de l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça
me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le nom
de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" <i@v> a écrit dans le message de news:
%23ggLZh5OKHA.5488@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver
?
isabelle
Gouap a écrit :
Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je
les affiche les uns à la suite des autres.
"isabelle" <i@v> a écrit dans le message de news:
uNSiUO5OKHA.5108@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit
de l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça
me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" <i@v> a écrit dans le message de news:
On$d%2354OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le nom
de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver
?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je
les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit
de l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça
me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Bonjour Gouap,
Est-ce que tu es toujours sur le fichier que tu m'a fait parvenir
à propos du message que tu obtenais lorsque tu voulais copier
une feuille sur une autre feuille du même classeur ?
Si oui, je t'ai expliqué (peut être pas assez élégamment) que ton
fichier souffrait au moins d'une anomalie particulière par rapport
à la plage nommée "Mensualisation". Ce nom défini au niveau du
classeur fait référence à la même adresse d'une cellule mais avec la
particularité que la cellule visée appartenait à la feuille A lorsque
c'est
la feuille A était active ou appartenait à la feuille B lorsque la feuille
B
était active. Ce nom définit au niveau du classeur se comportait comme
un nom défini au niveau de la feuille. Ce n'est quand même pas banal !
Isabelle a "solutionnée" ton problème (message lors de la copie)
avec la ligne de code Application.Displayalerts = False. C'est comme
parfumé un endroit où cela ne sent pas très bon... le parfum élimine
pas la source des odeurs nauséabondes.
Quelle "torture"( manoeuvre) ton fichier a-t-il subit pour en arriver là ?
Par la même occasion est-ce possible que cette "torture" ait généré
d'autres incongruités dans le comportement de ton classeur ?
Si c'est le cas, tu pourrais bien avoir d'autres surprises. Va savoir.
Bonjour Gouap,
Est-ce que tu es toujours sur le fichier que tu m'a fait parvenir
à propos du message que tu obtenais lorsque tu voulais copier
une feuille sur une autre feuille du même classeur ?
Si oui, je t'ai expliqué (peut être pas assez élégamment) que ton
fichier souffrait au moins d'une anomalie particulière par rapport
à la plage nommée "Mensualisation". Ce nom défini au niveau du
classeur fait référence à la même adresse d'une cellule mais avec la
particularité que la cellule visée appartenait à la feuille A lorsque
c'est
la feuille A était active ou appartenait à la feuille B lorsque la feuille
B
était active. Ce nom définit au niveau du classeur se comportait comme
un nom défini au niveau de la feuille. Ce n'est quand même pas banal !
Isabelle a "solutionnée" ton problème (message lors de la copie)
avec la ligne de code Application.Displayalerts = False. C'est comme
parfumé un endroit où cela ne sent pas très bon... le parfum élimine
pas la source des odeurs nauséabondes.
Quelle "torture"( manoeuvre) ton fichier a-t-il subit pour en arriver là ?
Par la même occasion est-ce possible que cette "torture" ait généré
d'autres incongruités dans le comportement de ton classeur ?
Si c'est le cas, tu pourrais bien avoir d'autres surprises. Va savoir.
Bonjour Gouap,
Est-ce que tu es toujours sur le fichier que tu m'a fait parvenir
à propos du message que tu obtenais lorsque tu voulais copier
une feuille sur une autre feuille du même classeur ?
Si oui, je t'ai expliqué (peut être pas assez élégamment) que ton
fichier souffrait au moins d'une anomalie particulière par rapport
à la plage nommée "Mensualisation". Ce nom défini au niveau du
classeur fait référence à la même adresse d'une cellule mais avec la
particularité que la cellule visée appartenait à la feuille A lorsque
c'est
la feuille A était active ou appartenait à la feuille B lorsque la feuille
B
était active. Ce nom définit au niveau du classeur se comportait comme
un nom défini au niveau de la feuille. Ce n'est quand même pas banal !
Isabelle a "solutionnée" ton problème (message lors de la copie)
avec la ligne de code Application.Displayalerts = False. C'est comme
parfumé un endroit où cela ne sent pas très bon... le parfum élimine
pas la source des odeurs nauséabondes.
Quelle "torture"( manoeuvre) ton fichier a-t-il subit pour en arriver là ?
Par la même occasion est-ce possible que cette "torture" ait généré
d'autres incongruités dans le comportement de ton classeur ?
Si c'est le cas, tu pourrais bien avoir d'autres surprises. Va savoir.
Re,
Tu pourrais mettre une copie de ta feuille sur cjoint ou cijoint ?
Je suis curieux de voir tes fantômes et j'aimerais bien contribuer à les
chasser :)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" a écrit dans le message de news:Bonjour,
Tu peux essayer cette petite procédure :
'================ >>> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003.
Ce sont des commentaires qui ne me servent à rien, mais que je n'arrive
pas à supprimer car quant je clique dessus, Excel se plante et ferme
mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Re,
Tu pourrais mettre une copie de ta feuille sur cjoint ou cijoint ?
Je suis curieux de voir tes fantômes et j'aimerais bien contribuer à les
chasser :)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :
Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" <fs@news.group> a écrit dans le message de news:
OxP7UX5OKHA.5108@TK2MSFTNGP02.phx.gbl...
Bonjour,
Tu peux essayer cette petite procédure :
'================ >>> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003.
Ce sont des commentaires qui ne me servent à rien, mais que je n'arrive
pas à supprimer car quant je clique dessus, Excel se plante et ferme
mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Re,
Tu pourrais mettre une copie de ta feuille sur cjoint ou cijoint ?
Je suis curieux de voir tes fantômes et j'aimerais bien contribuer à les
chasser :)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" a écrit dans le message de news:Bonjour,
Tu peux essayer cette petite procédure :
'================ >>> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003.
Ce sont des commentaires qui ne me servent à rien, mais que je n'arrive
pas à supprimer car quant je clique dessus, Excel se plante et ferme
mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Je vais en repréparer une version épuré et te mettre le lien une fois fait
!
"FS" a écrit dans le message de news:
%Re,
Tu pourrais mettre une copie de ta feuille sur cjoint ou cijoint ?
Je suis curieux de voir tes fantômes et j'aimerais bien contribuer à les
chasser :)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" a écrit dans le message de news:Bonjour,
Tu peux essayer cette petite procédure :
'================ >>>> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>>>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003.
Ce sont des commentaires qui ne me servent à rien, mais que je
n'arrive pas à supprimer car quant je clique dessus, Excel se plante
et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Je vais en repréparer une version épuré et te mettre le lien une fois fait
!
"FS" <fs@news.group> a écrit dans le message de news:
%239JfXP6OKHA.1232@TK2MSFTNGP05.phx.gbl...
Re,
Tu pourrais mettre une copie de ta feuille sur cjoint ou cijoint ?
Je suis curieux de voir tes fantômes et j'aimerais bien contribuer à les
chasser :)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :
Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" <fs@news.group> a écrit dans le message de news:
OxP7UX5OKHA.5108@TK2MSFTNGP02.phx.gbl...
Bonjour,
Tu peux essayer cette petite procédure :
'================ >>>> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>>>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003.
Ce sont des commentaires qui ne me servent à rien, mais que je
n'arrive pas à supprimer car quant je clique dessus, Excel se plante
et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Je vais en repréparer une version épuré et te mettre le lien une fois fait
!
"FS" a écrit dans le message de news:
%Re,
Tu pourrais mettre une copie de ta feuille sur cjoint ou cijoint ?
Je suis curieux de voir tes fantômes et j'aimerais bien contribuer à les
chasser :)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :Bonjour FS,
Comme les autre macro, la tienne n'a aucun effet sur mes 4 commentaires
fantomes.
Merci quand même !
"FS" a écrit dans le message de news:Bonjour,
Tu peux essayer cette petite procédure :
'================ >>>> Sub DelComments()
Dim sht As Worksheet, i&
Set sht = ActiveSheet 'ou celle que tu veux
With sht
For i = .Comments.Count To 1 Step -1
.Comments(i).Delete
Next i
End With
End Sub
'================ >>>>
(Supprime _tous_ les commentaires, même ceux qu'éventuellement tu
souhaiterais conserver. Si c'est le cas, préfère la proposition
d'Isabelle)
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel 2003.
Ce sont des commentaires qui ne me servent à rien, mais que je
n'arrive pas à supprimer car quant je clique dessus, Excel se plante
et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le message
d'erreur " Impossible de déplacer des objets en dehors de la feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant la
feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" a écrit dans le message de news:bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le nom
de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver
?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je
les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit
de l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça
me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le message
d'erreur " Impossible de déplacer des objets en dehors de la feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant la
feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" <i@v> a écrit dans le message de news:
ugzWpq6OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le nom
de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" <i@v> a écrit dans le message de news:
%23ggLZh5OKHA.5488@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver
?
isabelle
Gouap a écrit :
Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je
les affiche les uns à la suite des autres.
"isabelle" <i@v> a écrit dans le message de news:
uNSiUO5OKHA.5108@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit
de l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça
me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" <i@v> a écrit dans le message de news:
On$d%2354OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le message
d'erreur " Impossible de déplacer des objets en dehors de la feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant la
feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" a écrit dans le message de news:bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le nom
de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais il
m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille conserver
?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement à
Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les 4
au même endroit avec la même taille ce qui est bien visible quand je
les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à droit
de l'objet) j'arrive à le vois, je ne peux pas les supprimer car ça
me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande Révision ->
Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent être
ratachés à aucune cellule?
Merci de votre aide !
si ce n'est pas le cas, et si les données du fichier ne sont pas sensible,
tu pourrais en faire une copie en version xl2002 et le mettre sur ci-joint
isabelle
Gouap a écrit :Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le
message d'erreur " Impossible de déplacer des objets en dehors de la
feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant
la feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" a écrit dans le message de news:bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le
nom de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais
il m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille
conserver ?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement
à Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les
4 au même endroit avec la même taille ce qui est bien visible quand
je les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à
droit de l'objet) j'arrive à le vois, je ne peux pas les supprimer
car ça me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande
Révision -> Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent
être ratachés à aucune cellule?
Merci de votre aide !
si ce n'est pas le cas, et si les données du fichier ne sont pas sensible,
tu pourrais en faire une copie en version xl2002 et le mettre sur ci-joint
isabelle
Gouap a écrit :
Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le
message d'erreur " Impossible de déplacer des objets en dehors de la
feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant
la feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" <i@v> a écrit dans le message de news:
ugzWpq6OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le
nom de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais
il m'en reste toujours 4.
"isabelle" <i@v> a écrit dans le message de news:
%23ggLZh5OKHA.5488@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille
conserver ?
isabelle
Gouap a écrit :
Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement
à Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les
4 au même endroit avec la même taille ce qui est bien visible quand
je les affiche les uns à la suite des autres.
"isabelle" <i@v> a écrit dans le message de news:
uNSiUO5OKHA.5108@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à
droit de l'objet) j'arrive à le vois, je ne peux pas les supprimer
car ça me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande
Révision -> Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" <i@v> a écrit dans le message de news:
On$d%2354OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent
être ratachés à aucune cellule?
Merci de votre aide !
si ce n'est pas le cas, et si les données du fichier ne sont pas sensible,
tu pourrais en faire une copie en version xl2002 et le mettre sur ci-joint
isabelle
Gouap a écrit :Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le
message d'erreur " Impossible de déplacer des objets en dehors de la
feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant
la feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" a écrit dans le message de news:bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le
nom de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais
il m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille
conserver ?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement
à Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les
4 au même endroit avec la même taille ce qui est bien visible quand
je les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à
droit de l'objet) j'arrive à le vois, je ne peux pas les supprimer
car ça me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande
Révision -> Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent
être ratachés à aucune cellule?
Merci de votre aide !
Voici une copie simplifiée de mon classeur en Excel 2003
http://www.cijoint.fr/cjlink.php?file=cj200909/cijY38aKzr.xls
Philippe
"isabelle" a écrit dans le message de news:si ce n'est pas le cas, et si les données du fichier ne sont pas sensible,
tu pourrais en faire une copie en version xl2002 et le mettre sur ci-joint
isabelle
Gouap a écrit :Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le
message d'erreur " Impossible de déplacer des objets en dehors de la
feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant
la feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" a écrit dans le message de news:bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le
nom de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais
il m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille
conserver ?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement
à Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les
4 au même endroit avec la même taille ce qui est bien visible quand
je les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à
droit de l'objet) j'arrive à le vois, je ne peux pas les supprimer
car ça me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande
Révision -> Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent
être ratachés à aucune cellule?
Merci de votre aide !
Voici une copie simplifiée de mon classeur en Excel 2003
http://www.cijoint.fr/cjlink.php?file=cj200909/cijY38aKzr.xls
Philippe
"isabelle" <i@v> a écrit dans le message de news:
uf3zqa8OKHA.352@TK2MSFTNGP02.phx.gbl...
si ce n'est pas le cas, et si les données du fichier ne sont pas sensible,
tu pourrais en faire une copie en version xl2002 et le mettre sur ci-joint
isabelle
Gouap a écrit :
Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le
message d'erreur " Impossible de déplacer des objets en dehors de la
feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant
la feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" <i@v> a écrit dans le message de news:
ugzWpq6OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le
nom de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais
il m'en reste toujours 4.
"isabelle" <i@v> a écrit dans le message de news:
%23ggLZh5OKHA.5488@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille
conserver ?
isabelle
Gouap a écrit :
Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement
à Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les
4 au même endroit avec la même taille ce qui est bien visible quand
je les affiche les uns à la suite des autres.
"isabelle" <i@v> a écrit dans le message de news:
uNSiUO5OKHA.5108@TK2MSFTNGP02.phx.gbl...
bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :
Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à
droit de l'objet) j'arrive à le vois, je ne peux pas les supprimer
car ça me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande
Révision -> Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" <i@v> a écrit dans le message de news:
On$d%2354OKHA.1372@TK2MSFTNGP02.phx.gbl...
bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :
bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent
être ratachés à aucune cellule?
Merci de votre aide !
Voici une copie simplifiée de mon classeur en Excel 2003
http://www.cijoint.fr/cjlink.php?file=cj200909/cijY38aKzr.xls
Philippe
"isabelle" a écrit dans le message de news:si ce n'est pas le cas, et si les données du fichier ne sont pas sensible,
tu pourrais en faire une copie en version xl2002 et le mettre sur ci-joint
isabelle
Gouap a écrit :Non, la macro ne révèle aucun autre commentaire.
Seul Excel 2007 me trouve toujours 4 Commentaires (Comment 6, Comment 7,
Comment 8, Comment 9)
Ces 4 objets sont encore visible sur la feuille et bien présent car si je
tente de masquer l'ensemble des colonnes de la feuille j'obtiens le
message d'erreur " Impossible de déplacer des objets en dehors de la
feuille "
Par contre je pense avoir réussit à les faire disparaitre en dupliquant
la feuille .... Faut que je retente l'opération pour être bien sûr que ça
fonctionne. Je reviens sur le forum pour te tenir au courant.
Merci de ton aide.
"isabelle" a écrit dans le message de news:bonjour Gouap,
une fois tout les bon commentaires enlevés, est tu capable de lire le
nom de ceux qui restent avec cette macro ?
Sub Macro2()
For Each cm In ActiveSheet.Comments
MsgBox cm.Shape.Name
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
J'ai effectivement d'autres commentaires utils sur la feuille, mais je
peux très bien les copier sur un autre classeur et les remettre ensuite
si tu veux me faire faire une manipe qui les efface tous.
J'ai d'ailleur fait plusieurs fois l'essai de tous les supprimer, mais
il m'en reste toujours 4.
"isabelle" a écrit dans le message de news:
%bonjour Gouap,
y a t'il d'autre commentaires sur cette feuille que tu veuille
conserver ?
isabelle
Gouap a écrit :Je viens d'exécuter ta macro, mais comme celle de SilkyRoad, elle ne
trouve pas de commentaires sur la feuille donc elle sote directement
à Next.
Ce qui fait qu'il reste toujours mes 4 objets "fantomes" que Excel me
liste et que je peux voir sur la feuille sachant qu'ils sont tous les
4 au même endroit avec la même taille ce qui est bien visible quand
je les affiche les uns à la suite des autres.
"isabelle" a écrit dans le message de news:bonjour Gouap,
execute cette macro,
Sub Macro1()
For Each cm In ActiveSheet.Comments
x = Right(cm.Shape.Name, 1) * 1
If x >= 6 And x <= 9 Then cm.Delete
Next
End Sub
isabelle
Gouap a écrit :Bonjour Isabelle,
Franchement je n'en sais rien.
Quand avec Excel 2007 je fais Accueil -> Edition -> Rechercher et
sélectionner -> Volet sélection ...
Je me retrouve avec 4 objets numérotés Comment 6 jusqu'à Comment 9.
Mais c'est objet, même si en cliquant su affiché (petit oeil à
droit de l'objet) j'arrive à le vois, je ne peux pas les supprimer
car ça me plante Excel dès que je veux les selectionner.
J'ai effacé tous les autre commentaires avec la commande
Révision -> Afficher tous les commentaires -> Supprimer.
Et normalement il n'y en a plus.
J'ai même tester la macro de SilkyRoad sans obtenir de résultat :
Sub listeCommentairesfeuilleActive()
Dim Cmnt As Comment
Dim Liste As String
'Compte le nombre de commentaires dans la feuille
If ActiveSheet.Comments.Count = 0 Then Exit Sub
'Boucle sur les commentaires
For Each Cmnt In ActiveSheet.Comments
'Récupère l'adresse de la cellule et le contenu
Liste = Liste & Cmnt.Parent.Address & " = " & _
Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt
MsgBox Liste
End Sub
"isabelle" a écrit dans le message de news:
On$d%bonjour Gouab,
ces objets dont tu parle, ils ont été créer avec Insertion,
commentaire ?
isabelle
Gouap a écrit :bonjour,
J'ai 4 objets fantomes (objet 6 à objet 9) sur une feuille Excel
2003. Ce sont des commentaires qui ne me servent à rien, mais que
je n'arrive pas à supprimer car quant je clique dessus, Excel se
plante et ferme mon classeur.
Est il possible de les enlever par VBA sachant qu'ils semblent
être ratachés à aucune cellule?
Merci de votre aide !
