Discussion :

[Olivierporcinet]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
Private Sub CommandButton17_Click()
valeur = InputBox("Donner la valeur à chercher", "Recherche")
Range("F3:F900").Find(valeur, LookIn:=xlValues).Select
 
End Sub

J'aimerais rajouter les éléments suivants afin de colorer la cellule adéquate

Code :

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

1
2
3
If IsNumeric(c) Then
            Cells(c, 1).Select
            Cells(c, 1).Interior.ColorIndex = 8

Des idées ?
Belle journée.
Merci.

[jurassic pork]

Hello,
si ton but est seulement de colorer la cellule trouvée par la recherche ce code suffit :

Code :

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

1
2
3
4
Private Sub CommandButton17_Click()
valeur = InputBox("Donner la valeur à chercher", "Recherche")
Range("F3:F900").Find(valeur, LookIn:=xlValues).Interior.ColorIndex = 8 
End Sub

Seulement, la première cellule trouvée sera colorée.

Ami calmant, J.P

[Olivierporcinet]

Merci.

Vu que le tableau est long, est-t-il possible d'afficher uniquement la ligne concernée car je ne peux pas voir la cellule colorée des dizaines de lignes plus bas.

Merci

J'ai essayé (mais cela ne fonctionne pas) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton17_Click()
valeur = InputBox("Donner la valeur à chercher", "Recherche")
Range("F3:F900").Find(valeur, LookIn:=xlValues).Interior.ColorIndex = 8
For Each c In Worksheets("Interventions techniques").Range("$F3:$F900")
        With c
                .EntireRow.Hidden = False
                If .DisplayFormat.Interior.Color = 8 Then .EntireRow.Hidden = True
        End With
Next c
 
 
End Sub

[Philippe Tulliez]

Bonjour,
Ne serait-ce pas plus simple de passer par une mise en forme conditionnelle, sans VBA ?

[Olivierporcinet]

je dois rechercher le n° avec une InputBox au départ

[jurassic pork]

En sélectionnant d'abord la cellule trouvée , on se positionne dessus :

Code :

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

1
2
3
4
5
Private Sub CommandButton17_Click()
valeur = InputBox("Donner la valeur à chercher", "Recherche")
Range("F3:F900").Find(valeur, LookIn:=xlValues).Select
Selection.Interior.ColorIndex = 8 
End Sub

[Olivierporcinet]

la sélection se fait mais j'aimerais avoir uniquement la ligne concernée (mon code ne fonctionne pas) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton17_Click()
Application.ScreenUpdating = False
valeur = InputBox("Entrer le n° ")
Range("F3:F900").Find(valeur, LookIn:=xlValues).Select
Selection.Interior.ColorIndex = 8
For Each c In Worksheets("Interventions techniques").Range("$F3:$F900")
        With c
                .EntireRow.Hidden = False
                If .DisplayFormat.Interior.Color = 8 Then .EntireRow.Hidden = True
        End With
Next c
 
Application.ScreenUpdating = True
End Sub

ou alors, ne pas mettre de couleur.
Juste afficher toute la ligne suivant la InputBox