Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[sefal]

Bonjour,

Je suis à la recherche d'une macro de comptage dans Word.

Je connais la manip pour compter les caractères, mots, avec et sans espace, mais ce n'est pas ça que je recherche.

Je m'explique :

J'ai plusieurs documents Word 2010 qui contiennent du texte en noir et du texte en bleu.

Je voudrais compter l'ensemble des caractères en bleus dans le texte (si possible avec les espaces au milieu) et afficher une boite de dialogue avec le comptage (Caractères totals, caractères noirs, espace noirs, caractères bleus, et espacex bleus).

Je voudrais ensuite coller cette macro dans un bouton de la barre de menu pour qu'elle soit accessible à tout moment. (Ca je pense que je sais faire)

Etant complètement novice en VBA je compte sur votre aide si précieuse pour moi.

D'avance merci beaucoup pour vos réponses et votre aide.

Séfal.