ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
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
AB
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
B87C6829-720C-4A62-866C-72520DC842B2@microsoft.com...
Bonjour,
J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
jepac
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
Bonjour AB,
Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle
est cachée (...Hidden = True) mais rien à faire la section n'est pas
supprimée.
Merci
Jean-Paul
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
B87C6829-720C-4A62-866C-72520DC842B2@microsoft.com...
Bonjour,
J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
AB
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
Bonsoir Jean-Paul,
Désolé, j'avais lu un peu trop vite...
Pour supprimer la section cachée, rends-la d'abord visible, puis
supprime-la.
Par exemple :
ActiveDocument.Sections(2).Range.Font.Hidden = True
masque la section 2
Puis :
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Font.Hidden = False
ActiveDocument.Sections(2).Range.Delete
End If
rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas
affichée...
Mais je ne suis qu'un plaisantin en VBA !
Bonne année !
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
8715D7A7-B9AA-4B50-9B08-0614ED6ACA84@microsoft.com...
Bonjour AB,
Mon problème est que je voudrais que la section 2 soit supprimée
lorsqu'elle
est cachée (...Hidden = True) mais rien à faire la section n'est pas
supprimée.
Merci
Jean-Paul
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de
news:
B87C6829-720C-4A62-866C-72520DC842B2@microsoft.com...
Bonjour,
J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
jepac
Merci, je vais essayer. Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
Merci, je vais essayer.
Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul,
Désolé, j'avais lu un peu trop vite...
Pour supprimer la section cachée, rends-la d'abord visible, puis
supprime-la.
Par exemple :
ActiveDocument.Sections(2).Range.Font.Hidden = True
masque la section 2
Puis :
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Font.Hidden = False
ActiveDocument.Sections(2).Range.Delete
End If
rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas
affichée...
Mais je ne suis qu'un plaisantin en VBA !
Bonne année !
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
8715D7A7-B9AA-4B50-9B08-0614ED6ACA84@microsoft.com...
Bonjour AB,
Mon problème est que je voudrais que la section 2 soit supprimée
lorsqu'elle
est cachée (...Hidden = True) mais rien à faire la section n'est pas
supprimée.
Merci
Jean-Paul
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de
news:
B87C6829-720C-4A62-866C-72520DC842B2@microsoft.com...
Bonjour,
J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
Merci, je vais essayer. Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
jepac
Bonjour,
J'ai essayé mais rien à faire, la section est considérée comme non cachée.
Merci Jean-Paul
Merci, je vais essayer. Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
Bonjour,
J'ai essayé mais rien à faire, la section est considérée comme non cachée.
Merci
Jean-Paul
Merci, je vais essayer.
Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul,
Désolé, j'avais lu un peu trop vite...
Pour supprimer la section cachée, rends-la d'abord visible, puis
supprime-la.
Par exemple :
ActiveDocument.Sections(2).Range.Font.Hidden = True
masque la section 2
Puis :
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Font.Hidden = False
ActiveDocument.Sections(2).Range.Delete
End If
rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas
affichée...
Mais je ne suis qu'un plaisantin en VBA !
Bonne année !
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
8715D7A7-B9AA-4B50-9B08-0614ED6ACA84@microsoft.com...
Bonjour AB,
Mon problème est que je voudrais que la section 2 soit supprimée
lorsqu'elle
est cachée (...Hidden = True) mais rien à faire la section n'est pas
supprimée.
Merci
Jean-Paul
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de
news:
B87C6829-720C-4A62-866C-72520DC842B2@microsoft.com...
Bonjour,
J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
J'ai essayé mais rien à faire, la section est considérée comme non cachée.
Merci Jean-Paul
Merci, je vais essayer. Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
AB
Rebonjour, Pourtant ça marche très bien chez moi. Pourrais-tu reproduire ici ton code et expliquer exactement ce que tu veux obtenir, pour que les autres, plus experts que moi, se penchent sur la question ? AB
"jepac" a écrit dans le message de news:
Bonjour,
J'ai essayé mais rien à faire, la section est considérée comme non cachée.
Merci Jean-Paul
Merci, je vais essayer. Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?
Merci Jean-Paul
Rebonjour,
Pourtant ça marche très bien chez moi.
Pourrais-tu reproduire ici ton code et expliquer exactement ce que tu veux
obtenir, pour que les autres, plus experts que moi, se penchent sur la
question ?
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
DF688F1C-73AC-4FD4-A229-C1CEEC9E4F50@microsoft.com...
Bonjour,
J'ai essayé mais rien à faire, la section est considérée comme non cachée.
Merci
Jean-Paul
Merci, je vais essayer.
Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul,
Désolé, j'avais lu un peu trop vite...
Pour supprimer la section cachée, rends-la d'abord visible, puis
supprime-la.
Par exemple :
ActiveDocument.Sections(2).Range.Font.Hidden = True
masque la section 2
Puis :
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Font.Hidden = False
ActiveDocument.Sections(2).Range.Delete
End If
rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas
affichée...
Mais je ne suis qu'un plaisantin en VBA !
Bonne année !
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de
news:
8715D7A7-B9AA-4B50-9B08-0614ED6ACA84@microsoft.com...
Bonjour AB,
Mon problème est que je voudrais que la section 2 soit supprimée
lorsqu'elle
est cachée (...Hidden = True) mais rien à faire la section n'est pas
supprimée.
Merci
Jean-Paul
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de
news:
B87C6829-720C-4A62-866C-72520DC842B2@microsoft.com...
Bonjour,
J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True
section2cachee = MsgBox("section 2 cachée")
If ActiveDocument.Sections(2).Range.Font.Hidden = True Then
ActiveDocument.Sections(2).Range.Delete
sectiondetruite = MsgBox("section détruite")
End If
sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite !
Pourriez-vous m'aider ?
Rebonjour, Pourtant ça marche très bien chez moi. Pourrais-tu reproduire ici ton code et expliquer exactement ce que tu veux obtenir, pour que les autres, plus experts que moi, se penchent sur la question ? AB
"jepac" a écrit dans le message de news:
Bonjour,
J'ai essayé mais rien à faire, la section est considérée comme non cachée.
Merci Jean-Paul
Merci, je vais essayer. Meilleurs voeux à toi pour 2008
Jean-Paul
Bonsoir Jean-Paul, Désolé, j'avais lu un peu trop vite... Pour supprimer la section cachée, rends-la d'abord visible, puis supprime-la. Par exemple : ActiveDocument.Sections(2).Range.Font.Hidden = True masque la section 2 Puis : If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Font.Hidden = False ActiveDocument.Sections(2).Range.Delete End If rend d'abord visible la section 2 puis la supprime
M'est avis que VBA refuse de supprimer la section si elle n'est pas affichée... Mais je ne suis qu'un plaisantin en VBA ! Bonne année ! AB
"jepac" a écrit dans le message de news:
Bonjour AB, Mon problème est que je voudrais que la section 2 soit supprimée lorsqu'elle est cachée (...Hidden = True) mais rien à faire la section n'est pas supprimée.
Merci Jean-Paul
Bonjour, ActiveDocument.Sections(2).Range.Delete supprime la section 2 AB
"jepac" a écrit dans le message de news:
Bonjour, J'ai écrit la macro suivante :
ActiveDocument.Sections(2).Range.Font.Hidden = True section2cachee = MsgBox("section 2 cachée") If ActiveDocument.Sections(2).Range.Font.Hidden = True Then ActiveDocument.Sections(2).Range.Delete sectiondetruite = MsgBox("section détruite") End If sectionondetruite = MsgBox("section non détruite")
Bien que la section soit cachée, elle n'est pas détruite ! Pourriez-vous m'aider ?