Discussion :

[crnico]

Bonjour,

Je cherche a faire la manipulation suivante dans VBA mais sans succès :

j'ai une colonne A qui contient des valeurs égales soit a "" soit a "X"
Pour chaque cellule de la colonne A = "X" alors
je souhaite que la cellule de la même ligne de la colonne B soit mise en forme en gras et bleu.

Quelqu'un sait il coder ça en VBA?

Nicolas

[kaze78]

Bonjour

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
 
dim i as integer
 
i = numéro de ligne à partir duquel le code commence
 
do until i = (nombre max de ligne que tu dois balayer)
 
'condition pour verifier que ta cellule est égale à X ou non
if Sheets("MaFeuille").Range("A" & i).Value = "X" then
 
Sheets("MaFeuille").Range("B" & i).font.bold = true
Sheets("MaFeuille").Range("B" & i).font.interior.colorindex = "Numéro du code pour le bleu"
 
end if
 
'passe à la ligne suivante
i = i +1
 
loop

un truc comme ca

[crnico]

Bonjour

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
 
dim i as integer
 
i = numéro de ligne à partir duquel le code commence
 
do until i = (nombre max de ligne que tu dois balayer)
 
'condition pour verifier que ta cellule est égale à X ou non
if Sheets("MaFeuille").Range("A" & i).Value = "X" then
 
Sheets("MaFeuille").Range("B" & i).font.bold = true
Sheets("MaFeuille").Range("B" & i).font.interior.colorindex = "Numéro du code pour le bleu"
 
end if
 
'passe à la ligne suivante
i = i +1
 
loop

un truc comme ca

Super ça fonctionne très bien

Merci beaucoup!