[WD-2010] macro bascule pour insérer du texte

[michir]

Bonjour,
j'aimerais faire une macro bascule qui puisse insérer du texte dans un titre. Soit à ajouter dans le titre soit "Intervention sur site", soit "Intervention à distance" alternativement
J'avais une proposition suivante, mais je ne souhaite pas que le texte s'affiche dans une msgbox mais dans le titre de la feuille:

Code :

1
2
3
4
5
6
7
8
9
10
11
public Var as boolean
'---------
sub bascule()
If Var = False Then
    Var = True
    MsgBox "Intervention sur site"
Else
    Var = False
    MsgBox "Intervention à distance"
End If
End sub

Merci à tous
Michel

[Heureux-oli]

Salut,

Est-ce toujours pour le même document ou pour un nouveau document à chaque fois ?

[michir]

Bonjour Olivier,
Merci pour ton message
C'est pour le même document qui sert de modèle pour des comptes rendus d'activité
Michel

[carden752]

Bonjour,

Envoyé par michir

dans le titre de la feuille

Comment est saisi ce titre?
Sinon, j'utiliserai la fonction find pour rechercher le texte avec ce format "Style TITRE" ou alors un signet à cet emplacement et insérer le texte avant ou après celui-ci.

[michir]

Le titre de la page est le suivant:
"Rapport d’Intervention sur site"
Je souhaiterais que "sur site" soit remplacé par "à distance" en cliquant dessus et que la macro permette de revenir à "sur site" (d'où le nom macro bascule)
Merci

[Heureux-oli]

Salut,

Le mise en place d'un signet n'est pas si facile lorsque du texte doit être ajouté et supprimé, j'aurai penché pour un champ de formulaire.
On peut même se passer de bascule, on vérifie le contenu du champ et en fonction de sa valeur on met l'une ou l'autre des possibilité.

Pour que le "formulaire fonctionne, un saut de section continu avant et un saut de section continu après.

[michir]

Oui, merci Olivier
Peux tu me donner un exemple ou bien une référence pour que je puisse mieux comprendre et appliquer ta proposition. Je ne suis pas très avancé dans le domaine de word et des champs
Merci à toi
Michel

[pgz]

Bonsoir.

Si tu choisis le signet, voici une procédure :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub subBascule()
Dim oRng As Word.Range
Const s1 As String = "Intervention sur site"
Const s2 As String = "Intervention à distance"
 
Set oRng = ThisDocument.Bookmarks("bkm1").Range
 
If oRng.Text = s1 Then
    oRng.Text = s2
Else
    oRng.Text = s1
End If
 
'comme l'écriture détruit le signet, il faut le recréer
If Not ThisDocument.Bookmarks.Exists("bkm1") Then ThisDocument.Bookmarks.Add "bkm1", oRng
 
Set oRng = Nothing
 
End Sub

Au départ dans ton document tu écris un des 2 textes et tu associes le signet "bkm1".

Cordialement,

PGZ

[Heureux-oli]

Salut,

J'avais fait un exemple et j'ai oublié de l'attacher au message.

Chaque ouverture bascule le texte de l'un à l'autre.