en regardant un peu ds l'aide j'ai essayer de faire qque chose mais
=E9videmment ....
je me suis loup=E9.
je voudrais selon une condition masquer un paragraphe situ=E9 en fin de
page
voici mon code :
Sub condition()
'
' condition Macro
' Macro enregistr=E9e le 14/05/2007 par poste multimedia
'
// nom de mon champ et condition =E0 v=E9rifier
If ActiveDocument.MergeField:=3D"Contribution"=3D"NON" then
// d=E9placement de ma souris en bas et s=E9lection des lignes =E0 masquer
Selection.EndKey Unit:=3DwdStory
Selection.MoveUp Unit:=3DwdLine, Count:=3D14, Extend:=3DwdExtend
Selection.MoveDown Unit:=3DwdLine, Count:=3D1, Extend:=3DwdExtend
Selection.MoveUp Unit:=3DwdLine, Count:=3D1, Extend:=3DwdExtend
Selection.MoveRight Unit:=3DwdCharacter, Count:=3D1, Extend:=3DwdExtend
// masquer si s=E9lectionn=E9
With Selection.Hidden =3D True
End With
End Sub
a votre bon coeur messieurs dames, et merci d'avance
Je réponds à côté :> Selection.EndKey Unit:=wdStory
Fait aller en fin de document.
Le dernier paragraphe de votre document est Votredocument.paragraphs(votredocument.paragraphs.count)
Mais il vaudrait mieux exposer ce que vous voulez faire, car amha vous êtes parti dans une mauvaise direction.
-- A+
en fait je veux masquer un paragraphe entier en fonction d'une condition condition : suivant la valeur d'un champ de fusion
Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de page voici mon code :
Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masquer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe à masquer, plutôt que de le repérer par sa position.
-- Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de
page voici mon code :
Sub condition()
'
' condition Macro
' Macro enregistrée le 14/05/2007 par poste multimedia
'
// nom de mon champ et condition à vérifier
If ActiveDocument.MergeField:="Contribution"="NON" then
// déplacement de ma souris en bas et sélection des lignes à masquer
Selection.EndKey Unit:=wdStory
Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
// masquer si sélectionné
With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être
simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe
à masquer, plutôt que de le repérer par sa position.
je voudrais selon une condition masquer un paragraphe situé en fin de page voici mon code :
Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masquer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe à masquer, plutôt que de le repérer par sa position.
-- Tisane
BV
On 14 mai, 15:55, Tisane wrote:
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de page voici mon code : Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masq uer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdEx tend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au para graphe à masquer, plutôt que de le repérer par sa position.
-- Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
je suis d'accord mais j'ai déjà ma condition qui est fausse
On 14 mai, 15:55, Tisane <Tis...@discussions.microsoft.com> wrote:
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de
page voici mon code :
Sub condition()
'
' condition Macro
' Macro enregistrée le 14/05/2007 par poste multimedia
'
// nom de mon champ et condition à vérifier
If ActiveDocument.MergeField:="Contribution"="NON" then
// déplacement de ma souris en bas et sélection des lignes à masq uer
Selection.EndKey Unit:=wdStory
Selection.MoveUp Unit:=wdLine, Count:=14, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdEx tend
// masquer si sélectionné
With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être
simplifié, me semble-t-il, si tu affectais un signet (bookmark) au para graphe
à masquer, plutôt que de le repérer par sa position.
--
Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
je suis d'accord mais j'ai déjà ma condition qui est fausse
je voudrais selon une condition masquer un paragraphe situé en fin de page voici mon code : Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masq uer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdEx tend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au para graphe à masquer, plutôt que de le repérer par sa position.
-- Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
je suis d'accord mais j'ai déjà ma condition qui est fausse
Circé
Bonjour BV,
Il se trouve que BV a formulé :
en fait je veux masquer un paragraphe entier en fonction d'une condition condition : suivant la valeur d'un champ de fusion
Tiens tu absolument au VBA ?... Un champ IF dans ton document principal règlerait facilement le problème.
Circé http://faqword.free.fr
Bonjour BV,
Il se trouve que BV a formulé :
en fait je veux masquer un paragraphe entier en fonction d'une
condition
condition : suivant la valeur d'un champ de fusion
Tiens tu absolument au VBA ?... Un champ IF dans ton document principal
règlerait facilement le problème.
en fait je veux masquer un paragraphe entier en fonction d'une condition condition : suivant la valeur d'un champ de fusion
Tiens tu absolument au VBA ?... Un champ IF dans ton document principal règlerait facilement le problème.
Circéhttp://faqword.free.fr
je suis prenneur évidemment mais je ne parviens pas à le faire : { IF {MERGEFIELD "contribution" = "NON" masquer le paragraphe ???}
Tisane
je suis d'accord mais j'ai déjà ma condition qui est fausse
Il y a bien un truc tout bête... Place ton paragraphe dans un code de champ à la fin de ton document :
{ IF { MERGEFIELD TonChamp}="Non" "" "ton paragraphe" } ou quelque chose comme ça ;-)
-- Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de page voici mon code : Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masquer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe à masquer, plutôt que de le repérer par sa position.
-- Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
je suis d'accord mais j'ai déjà ma condition qui est fausse
Il y a bien un truc tout bête...
Place ton paragraphe dans un code de champ à la fin de ton document :
{ IF { MERGEFIELD TonChamp}="Non" "" "ton paragraphe" }
ou quelque chose comme ça ;-)
--
Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de
page voici mon code :
Sub condition()
'
' condition Macro
' Macro enregistrée le 14/05/2007 par poste multimedia
'
// nom de mon champ et condition à vérifier
If ActiveDocument.MergeField:="Contribution"="NON" then
// déplacement de ma souris en bas et sélection des lignes à masquer
Selection.EndKey Unit:=wdStory
Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
// masquer si sélectionné
With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être
simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe
à masquer, plutôt que de le repérer par sa position.
--
Tisane- Masquer le texte des messages précédents -
je suis d'accord mais j'ai déjà ma condition qui est fausse
Il y a bien un truc tout bête... Place ton paragraphe dans un code de champ à la fin de ton document :
{ IF { MERGEFIELD TonChamp}="Non" "" "ton paragraphe" } ou quelque chose comme ça ;-)
-- Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fin de page voici mon code : Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masquer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourrait être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe à masquer, plutôt que de le repérer par sa position.
-- Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
BV
On 14 mai, 16:39, Tisane wrote:
je suis d'accord mais j'ai déjà ma condition qui est fausse
Il y a bien un truc tout bête... Place ton paragraphe dans un code de champ à la fin de ton document :
{ IF { MERGEFIELD TonChamp}="Non" "" "ton paragraphe" } ou quelque chose comme ça ;-)
-- Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fi n de page voici mon code : Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masquer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExte nd Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:= wdExtend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourra it être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe à masquer, plutôt que de le repérer par sa position.
-- Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
génial j'ai testé ta méthode ca fonctionne super !!!!!!! merci beaucoup de ton aide BV
On 14 mai, 16:39, Tisane <Tis...@discussions.microsoft.com> wrote:
je suis d'accord mais j'ai déjà ma condition qui est fausse
Il y a bien un truc tout bête...
Place ton paragraphe dans un code de champ à la fin de ton document :
{ IF { MERGEFIELD TonChamp}="Non" "" "ton paragraphe" }
ou quelque chose comme ça ;-)
--
Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fi n de
page voici mon code :
Sub condition()
'
' condition Macro
' Macro enregistrée le 14/05/2007 par poste multimedia
'
// nom de mon champ et condition à vérifier
If ActiveDocument.MergeField:="Contribution"="NON" then
// déplacement de ma souris en bas et sélection des lignes à masquer
Selection.EndKey Unit:=wdStory
Selection.MoveUp Unit:=wdLine, Count:=14, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExte nd
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:= wdExtend
// masquer si sélectionné
With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourra it être
simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe
à masquer, plutôt que de le repérer par sa position.
--
Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
génial j'ai testé ta méthode ca fonctionne super !!!!!!!
merci beaucoup de ton aide
BV
je suis d'accord mais j'ai déjà ma condition qui est fausse
Il y a bien un truc tout bête... Place ton paragraphe dans un code de champ à la fin de ton document :
{ IF { MERGEFIELD TonChamp}="Non" "" "ton paragraphe" } ou quelque chose comme ça ;-)
-- Tisane
Bonjour "BV",
[...]
je voudrais selon une condition masquer un paragraphe situé en fi n de page voici mon code : Sub condition() ' ' condition Macro ' Macro enregistrée le 14/05/2007 par poste multimedia ' // nom de mon champ et condition à vérifier If ActiveDocument.MergeField:="Contribution"="NON" then // déplacement de ma souris en bas et sélection des lignes à masquer Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExte nd Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:= wdExtend // masquer si sélectionné With Selection.Hidden = True
End With
End Sub
Le VBA n'est pas dans mes compétences, mais ton bout de code pourra it être simplifié, me semble-t-il, si tu affectais un signet (bookmark) au paragraphe à masquer, plutôt que de le repérer par sa position.
-- Tisane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
génial j'ai testé ta méthode ca fonctionne super !!!!!!! merci beaucoup de ton aide BV