Discussion :

[NEC14]

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 :

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

[NEC14]

J'ai réussi à colorer la ligne avec ce 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
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

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

[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