Section à détruire...

Le
jepac
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AB
Le #1776353
Bonjour,
ActiveDocument.Sections(2).Range.Delete
supprime la section 2
AB

"jepac"
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
Le #1753719
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"
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
Le #1753714
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"
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" 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
Le #1753712
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"
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" 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
Le #1753339
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"
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" 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
Le #1753337
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"
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" 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" 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



















Publicité
Poster une réponse
Anonyme