Discussion :

[maxxxime]

Bonjour,

Je voudrais mettre en rouge les cellules contenant un montant supérieur à 100 000. Mais il faut sélectionner uniquement les cellules situées sur une ligne où il y a dans une autre colonne de cette ligne un montant commençant par "6".

Cela me faciliterait le travail car j'ai une vingtaine de tableau excel à traiter.

Merci de vos réponses!

[Fvandermeulen]

Salut et bienvenue sur le Forum,

Tu n'as pas spécialement besoin d'une macro pour ça, tu peux utiliser la partie formule des formats conditionnels.
En admettant les chiffres commençant éventuellement par 6 dans la colonne A et les chiffres éventuellement supérieurs à 100.000 en colonne B.

Tu peux par exemple utiliser ceci (donc à mettre dans la partie formule du format conditionnel

Code :

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

=IF(LEFT(A1)="6";IF(B1>100000;1;0);0)

En français:

Code :

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

=SI(GAUCHE(A1)="6";SI(B1>100000;1;0);0)

A appliquer ensuite sur toute ta colonne.

A+

[le_dilem]

Salut voici la macro

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
28
29
30
31
32
33
34
35
Sub Hello()
 
Dim i, j
 
i = 3  'je suppose que mon tableau commence par la ligne No 3
j = 3
 
While Range("A" & i) <> ""    ' si je trouve un vide dans la colonne A la boucle S'arrete
 
 
    If Left(Cells(i, 8), 1) = 6 Then  ' je suppose  que ta colonne qui contient un 6 est la Colonne H
 
    For j = 1 To 50
 
     If Cells(i, j) > 100000 Then ' le test
 
    Cells(i, j).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
 
     End If
 
    Next j
    j = 1
 
     End If
     i = i + 1
    Wend
 
End Sub

[maxxxime]

Merci pour vos réponses rapides!

Je n'ai pas encore testé la macro je n'ai pas le temps.
Mais la formule "SI" marche nikél!

Merci!