[VBA-W] mettre en gras certaines lignes d'un tableau [Résolu]

[perophron]

Bonjour
je souhaite créer une macro qui met en gras les lignes d'un tableau à condition que la lettre de la deuxième colonne soit D.
J'ai vu que la fonction pour mettre en gras est Font.Bold = wdToggle (découverte en enregistrant une macro) et j'ai donc taper l'instruction suivante déduite des tutoriels:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
If tableau(ligne, colonne) = D Then
'Lire les instructions suivantes
ligne D.Font.Bold = wdToggle
Else
End If
End Sub
 
Private Sub CommandButton2_Click()
'Sortie du programme
End
End Sub

J'ai créer une messagebox avec deux boutons: OK et Annuler.
Ma macro ne fonctionne pas et m'indique erreur de compilation: "Sub ou Function non définie".
Pouvez-vous me dire ce qui ne va pas?

[gruget]

Bonjour
alors je suis pas au top sur word mais comme ca je dirais que c'est du à ton tableau nommé tableau
que représente ce tableau l'a tu définis avant et de quelle manière?
La il semble qu'il le prenne pour une fonction complémetaire mais vu qu'aucune fonction nommé tableau n'existe alors il bug
rémi

[perophron]

J'avoue ne pas l'avoir défini.
Comment dois-je faire alors?

[gruget]

Qu'est-ce que c'est que ce tableau? est-ce un tableau de ta feuille Word?
ou un tableau de code?
que met-tu dedans et comment?
rémi

[perophron]

C'est un tableau de mon document Word.
Il n'y a que du texte à l'intérieur, et dans la colonne 2 juste une lettre qui doit par la suite être le critère de sélection.

[gruget]

Bonjour
alors je me suis penché un peu sur ton cas et ca donne qq chose comme ca

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim objTable As Table
Dim i As Integer
Dim a As String
Set objTable = ThisDocument.Tables(1)
 
For i = 1 To objTable.Rows.Count
    a = Left(objTable.Cell(i, 2).Range.Text, InStr(objTable.Cell(i, 2).Range.Text, vbCr) - 1)
    If a = "D" Then
        objTable.Rows(i).Select
        Selection.Font.Bold = wdToggle
    End If
Next i

après ca dépend du nombre de tableau que tu as
c peut etre pas le premier qu'il faut prendre
par ailleurs j'ai utilisé une fonction pour éliminer les retours chariot (caractère de saut de ligne) qui peut être à adapter
rémi

[perophron]

Quand j'essaie de lancer ma macro, j'ai une fenêtre attention "les macros de ce projet sont désactivées. Référez-vous à l'aide en ligne ou à la documentation de l'application hôte pour savoir comment activer les macros."
J'ai beau regarder dans l'aide mais je ne vois pas ce que je peux faire.
Un coup de pouce?

[gruget]

Outils/macro/sécurité
sur moyen c pas mal
et qd tu ouvres ton fichier word qd il te demande de choisir d'activer ou non les macros choisi bien activer les macros
rémi

[perophron]

Ok super.
Ta combine et la macro fonctionnent parfaitement.
Mais comment est-il possible de faire disparaitre automatiquement la messagebox après execution de la macro et est-il possible de la faire apparaitre sous forme de bouton dans les barres d'outils?

[gruget]

Par messagebox je pense que tu voulais dire bouton de commande
alors je suis dsl mais je sais pas comment on fait pour masquer le bouton de commande sous word pasque sous Excel il y a la propriété

Code :

Commandbutton.visible= true ou false

mais ca marche pas sous word (enfin pas chez moi)
sinon je sais qu'il est possible d'ajouter des boutons dans la barre des taches
pour cela appelle ta macro d'un nom quelconque genre

Code :

sub mettre_en_gras()

et ensuite va dans Affichage/barre d'outils/personaliser
ajoute une nouvelle barre d'outil avec Nouvelle en faisant attention de mettre utilisable uniquement par ton fichier word et non pas par tous
puis dans l'onglet commande de la meme fenetre va dans macro et fait glisser vers ta barre d'outils la macro correspondante. Ca te créera un bouton qui lancera cette macro
rémi

[perophron]

Ma macro n'apparait pas dans la liste. pour l'instant c'est juste une fenêtre Userform. Est-ce que je dois la "compiler" ou quelque chose comme ça? Si oui comment faire?

[gruget]

Alors
si ta macro n'apparait pas ca doit être pasque tu l'as déclaré en private sub
déclare la en sub tout cours:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mettre_en_gras()
Dim objTable As Table
Dim i As Integer
Dim a As String
Set objTable = ThisDocument.Tables(1)
 
For i = 1 To objTable.Rows.Count
    a = Left(objTable.Cell(i, 2).Range.Text, InStr(objTable.Cell(i, 2).Range.Text, vbCr) - 1)
    If a = "D" Then
        objTable.Rows(i).Select
        Selection.Font.Bold = wdToggle
    End If
Next i
end sub

rémi

[Speedrman]

Tu dois appeler ta userform à partir d'un module dans le même projet

Code :

1
2
3
4
5
Public Sub mettre_en_gras()
 
UserForm.Show
 
End Sub

Si tu veux pouvoir fermer ta userform après avoir passer les lignes du tableaux en gras, il te faut mettre ça à la fin de ta procédure

Code :

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
'... ton traitement...
 
Unload Me
 
End Sub

[perophron]

Ok ça marche nickel chrome.
Merci beaucoup les gars.

[gruget]

et...
pense au

[perophron]

Voilà j'ai essayé la macro qui fonctionnait précédemment dans un fichier contenant du texte, des entêtes, ... et le fameux tableau mais la macro ne fonctionne plus avec ce document.
N'y a-t-il pas moyen, en sélectionnant manuellement le tableau, de faire les mêmes opérations?

[gruget]

mais la macro ne fonctionne plus avec ce document.

quel document?

en sélectionnant manuellement le tableau

c'est à dire??
quand tu fais

Code :

Set objTable = ThisDocument.Tables(1)

tu sélectionnes le tableau1 mais si yen a plus il faut trouver lequel est-ce
rémi

[perophron]

Le document que j'évoque est un fichier word dans lequel le tableau n'est qu'une partie. J'ai voulu voir si la macro fonctionnait aussi avec ce document, mais apparemment non.
Le fichier contenant en effet plusieurs types de tableaux, je me demandais s'il n'était pas plus simple de faire une sélection (du tableau) et de lancer ensuite la macro qui n'agirait que sur le tableau sélectionné.

[gruget]

Je t'avoue que la tu arrives à mes limites vba word je sais pas trop gérer la sélection d'un tableau en word
sous excel ca serait plus simple mais bon...
par contre en changeant le 1 dans

Code :

objTable = ThisDocument.Tables(1)

tu peux accéder à d'autres tableau
rémi

[perophron]

Oui j'ai essayé et ça marche.
Mais tu ne saurais vraiment pas comment définir le tableau sélectionné comme objet? Un truc du genre Dim Selection As Table ou objTable = Selection?
Sinon tant pis, ton aide m'a déjà été très précieuse et je t'en remercie