Sélectionner une ligne en VBA Excel

Version imprimable

Bonjour,

J'ai créé ce bout de code qui me permet de sélectionner une cellule à partir d'une donnée saisie dans une InputBox et ça marche. Mais je souhaite y ajouter un code qui me permettrait de sélectionner la ligne correspondant à cette cellule et de la colorer en jaune.
Par exemple cellule A15 est trouvée, alors la ligne 15 est colorée en jaune.
Merci par avance pour votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton13_Click() Dim vVal As Single Dim vCell As Object Dim vSel As String Dim vLig As Long Range("A12").Select vVal = Val(InputBox("Quel enregistrement cherchez-vous ?")) Range("A13:A199").Cells.Select For Each vCell In Selection If vCell.Value = vVal Then vSel = vSel & vCell.Address & "," Next If Len(vSel) > 0 Then Range(Left(vSel, Len(vSel) - 1)).Select Selection.Activate End If End Sub

J'ai réussi à colorer la ligne avec ce code,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton13_Click()
Dim vVal As Single
Dim vCell As Object
Dim vSel As String
Dim vLig As Long
Dim col As Variant
Range("A12").Select
vVal = Val(InputBox("Quel enregistrement cherchez-vous ?"))
Range("A13:A199").Cells.Select
For Each vCell In Selection
    If vCell.Value = vVal Then vSel = vSel & vCell.Address & ","
    Next
    If Len(vSel) > 0 Then
    Range(Left(vSel, Len(vSel) - 1)).Select
    Selection.Activate
    ActiveCell.EntireRow.Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    End If
  End Sub

Par contre, je ne sais pas comment enlever la couleur après un click sur une autre cellule. Pouvez-vous m'aider pour cela s'il vous plait ?
Merci par avance

12/11/2008, 09h55
decondelite

Mémorisation de la dernière cellule que tu as coloré dans une variable, et lors d'un changement de sélection tu rétablis la couleur de la cellule référencée par la variable. ;)

Tout bêtement. :P
12/11/2008, 10h16
NEC14

Bonjour,

Mais ça je ne sais pas faire, aurais-tu un exemple à me fournir s'il te plait ?
Je suis débutant en VBA et il y a beaucoup de choses que je ne maîtrise pas.
Merci par avance

Indente correctement ton code: on n'identifie pas correctement les blocs. ;)

Code avec quelques corrections (je n'ai pas tout corrigé):

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
28
Private Sub CommandButton13_Click()
Dim vVal As Single
Dim vCell As Object
Dim vSel As String
Dim vLig As Long
Static derniere_cellule_coloree As Range
If Not derniere_plage_coloree Is Nothing _
Then derniere_plage_coloree.Interior.Colorindex = xlNone
Range("A12").Select
vVal = Val(InputBox("Quel enregistrement cherchez-vous ?"))
Range("A13:A199").Cells.Select
For Each vCell In Selection
    If vCell.Value = vVal Then vSel = vSel & vCell.Address & ","
Next
If Len(vSel) > 0 Then
    ' Vidage de l'ancienne ligne
    If Not derniere_plage_coloree Is Nothing Then
        derniere_plage_coloree.Interior.Colorindex = xlNone
    End If
    ' Remplissage de la nouvelle ligne
    Set derniere_plage_coloree = _
    Range(Left(vSel, Len(vSel) - 1)).EntireRow
    With derniere_plage_coloree.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End If
End Sub

A tester.

12/11/2008, 14h39
NEC14

ça veut dire quoi "indente" ???? :oops:

J'ai remplacé ce bout de code :

Code:

Static derniere_cellule_coloree As Range

par celui-ci

Code:

Static derniere_plage_coloree As Range

et cela fonctionne.
Par contre, j'ai un problème lorsque j'appuie sur le bouton "annuler" de l'InputBox, le message suivant apparaît :
"Erreur d'éxécution '1004'. La méthode Range de l'Objet_'Global' a échoué."
Qu'est-ce que cela veut dire ? et comment y remédier ?
Merci

J'ai trouvé la solution.
Merci
12/11/2008, 15h28
decondelite

Oups désolé: j'étais parti sur "cellule" avant de me raviser plus tard pour "plage", qui me semblait plus explicite.

Sinon chuis content que ça marche du premier coup.

N'oublie pas de cliquer sur :resolu: si c'ets le cas. ;)