[Macro VB - Word] Changer la couleur d'un mot [Résolu]

[dodors57]

Bonjour à tous,

Voilà ce que j'aimerais faire, sachant que le VB est pour moi est très récent...

J'ai un tableau dans Word, la première colonne contient des mots, la 2e des "0" et des "1" (issus d'un publipostage pour signifier la présence ou l'absence de l'exposition professionnelle).

Ex :

1ere col / 2e col :
Amiante 1
Silice 0
HAP 1
Diesel 0
Beryllium 0
Chrome 1
Nickel 0
CoW 0
Cadmium 0
BCME 0
Arsenic 0
Peinture 0

J'aimerais à chaque fois qu'il y a "1" que le facteur associé s'écrive en rouge par exemple (dans l'exemple au dessus : Amiante, HAP et Silice deviendrait rouge).

1ere col / 2e col :
Amiante 1
Silice 0
HAP 1
Diesel 0
Beryllium 0
Chrome 1
Nickel 0
CoW 0
Cadmium 0
BCME 0
Arsenic 0
Peinture 0

Merci d'avance pour votre aide.

[Heureux-oli]

Le principe à utiliser est le suivant, on va en premier lieu vérifier le contenu de la cellule de la seconde colonne.
Si cette valeur est égale à 1, on va colorer le texte de la cellule de la première colonne.

Ce qui nous intéresse, c'est le nombre de lignes.
Ce nombre de ligne nous allons le stocker dans la variable i

Dans une cellule, on a toujous deux caractères inutiles.
On va les supprimer avec la fonction txtNet, on mesure la longueur de la chaîne, on lui enlève 2 et on retire les caractères de la cellules sans les deux derniers.

On va faire une boucle sur les cellules de la seconde colonne.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub colo()
Dim oTbl As Table
Dim i As Integer, j As Integer
 
Set oTbl = ActiveDocument.Tables(1)
i = oTbl.Rows.Count
 
For j = 1 To i
    If txtNet(oTbl.Cell(j, 2).Range.Text) = 1 Then oTbl.Cell(j, 1).Range.Font.Color = wdColorRed
 
 
Next j
 
End Sub
 
Function txtNet(stTemp As String) As String
txtNet = Left(stTemp, Len(stTemp) - 2)
 
End Function

[dodors57]

Merci pour ta réponse !!

J'ai bien compris le concept !

Mais j'ai une erreur d'execution du code 'erreur d'execution 13' : incompatibilité de type sur cette commande :

Code :

If txtNet(oTbl.Cell(j, 2).Range.Text) = 1 Then

Mon tableau aurait-il un problème ?

Merci !

[Heureux-oli]

Peux tu mettre ton document sur le forum.

c'est le contenu du tableua qui ne serait pas comme je le pense.

[dodors57]

Bien sur !

Voir doc ci-joint !

PS : J'ai mis les 2 premières fiches. Mais j'en ai 150 comme cela !

C'est toujours le même concept, c'est juste les 2 premières lignes avec les identifiants qui change !

Merci beaucoup !

[Heureux-oli]

Je suppose que toutes les fiches se suivant !

Dans ce cas, c'est l'indice de la table qui n'était pas bon!

On peut envisager de traiter toutes les tables du document.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub colo()
Dim oTbl As Table
Dim i As Integer, j As Integer
 
 
For Each oTbl In ActiveDocument.Tables
 
If UCase(txtNet(oTbl.Cell(1, 1).Range.Text)) = "NUISANCE" Then
Debug.Print "ici"
    i = oTbl.Rows.Count
 
 
    For j = 1 To i
    Debug.Print j
    If txtNet(oTbl.Cell(j, 2).Range.Text) = "1" Then oTbl.Cell(j, 1).Range.Font.Color = wdColorRed
 
 
    Next j
End If
Next oTbl
 
End Sub
 
Function txtNet(stTemp As String) As String
txtNet = Left(stTemp, Len(stTemp) - 2)
 
End Function

[dodors57]

Que dire...

Merveilleux !

Merci 1000 fois !!

C'est là que je me dis que vraiment, j'suis mauvaise de chez mauvaise en VB, faut vraiment que je m'y mette...