Discussion :

[Ds1tox]

Bonjour,

Suite à une recherche effectuée dans une combobox, je veux colorer la ligne trouvée.

La combobox ne recherche que la valeur dans la colonne A, et je veux colorier la ligne jusqu'à la colonne E.

Problème : La fonction Range ne permet de colorier que seulement deux cellules.

Quelle instruction puis-je utiliser pour colorier toute les cellules jusqu'à la colonne E ?

Mon bout de code :

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
Private Sub ComboBox1_Change()
 
    Application.ScreenUpdating = False
 
    Range("A3:A912").Interior.ColorIndex = 2
 
    If ComboBox1 <> "" Then
        For ligne = 3 To 912
            If Cells(ligne, 1) Like "*" & ComboBox1 & "*" Then
                Range(Cells(ligne, 1), Cells(ligne, 2)).Interior.ColorIndex = 43
            End If
        Next
    End If
 
End Sub

Merci d'avance

[Sebphyto]

salut ds1tox,

tu veux colorier de A à E?
donc ton erreur est ici

Code :

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

Range(Cells(ligne, 1), Cells(ligne, 2)).

si ligne=3
donc cells(3,1) = A3
et cells(3,2) = B3

Pour colorier jusqu'à E j'aurais fait

Code :

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

Range(Cells(ligne, 1), Cells(ligne, 5)).

donc ici cells(3,5) = E3

Où alors j'ai pas bien compris????
Seb

[sogedic]

Range(cell1,cell2) => cellules de cell1 à cell2
et non Cell1 et cell2

Cdlt

[Ds1tox]

Merci pour vos réponses, c'est exactement ça.

En revanche j'ai un soucis quand j'efface ce que je recherche dans la combobox, les colonnes restent coloriées...


J'ai tenté un ClearFormats qui ne marche pas.

Y'a t-il une fonction qui pourrait m'effacer la couleur des cellules quand : Combobox.value = "" ?

[Sebphyto]

Re,

Si comboxbox=""

Code :

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

Range(Cells(ligne, 1), Cells(ligne, 5)).Interior.Pattern = xlNone

seb

[Ds1tox]

J'ai essayé ça mais il tjrs pas. Y'a quelque chose que je dois zapper !

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
Private Sub ComboBox1_Change()
 
    Application.ScreenUpdating = False
 
    Range("A3:A912").Interior.ColorIndex = 2
 
    If ComboBox1 <> "" Then
        For ligne = 3 To 912
 
            If Cells(ligne, 1) Like "*" & ComboBox1 & "*" Then
            Range(Cells(ligne, 1), Cells(ligne, 5)).Interior.ColorIndex = 43
 
 
                    If ComboBox1.Value = "" Then
                    Range(Cells(ligne, 1), Cells(ligne, 5)).Interior.Pattern = xlNone
                    End If
 
            End If
 
        Next
    End If
 
End Sub

La fonction Range ne correspond peut-être pas à ce que je veux faire...