Afficher une couleur de la ligne à chaque changement de la toupie

Bonjour,

Peut-on avoir une couleur de fond à chaque clic de la toupie?

Comme l'image afin de suivre la ligne à modifier ou supprimer

merci

Bonjour,

Ceci, après sélection de la ligne avec la toupie, cliquez sur "recherche"

Private Sub RECHERCHE_Click() ' recherche une question
    If TextBox7.Value <> "" Then
        lig = TextBox7.Value + 1
        DerLig = Sheets("Ville").ListObjects("villeDept").DataBodyRange.Rows.Count
        Sheets("Ville").Range("A2:F" & DerLig).Interior.Color = RGB(104, 204, 228)
        Sheets("Ville").Range("A" & lig & ":F" & lig).Interior.ColorIndex = 6
        Call AfficheVille
    End If
End Sub

Cdlt

Bonjour Arturo83,

Merci pour ta rapidité

C'est super

Ce que j'aimerais avoir:

Quand je clic sur SpinButton1_SpinUp ou SpinDown la ligne devient jaune à chaque changement

et que la ligne recherchée soit visible à l'écran

Là, j'ai 47 lignes visibles de 1à47 si je recherche la 125ème je ne vois pas la ligne

j'ai ajouté ceci:

Cells.Find(What:=lig - 1).Activate

pas au point ma ligne il recherche sur toute la ligne

comment faire pour rechercher sur F?

je pense avoir trouvé, merci de me dire si c'est OK

Range("F" & lig).Find(lig - 1).Activate

pour info mon fichier d'origine contient 35000 lignes

merci

Bonsoir,

petite anomalie:

Si je saisie la dernière ligne, elle reste jaune

Merci pour ton aide

c'est vraiment sympa

Ge0ffroy

Alors ceci:

Private Sub SpinButton1_Change()
    On Error Resume Next
    If IsNumeric(CDbl(TextBox7.Value)) Then
        If CDbl(ComboBox.Value) > 0 And CDbl(TextBox7.Value) < Sheets("ville").Range("F" & Rows.Count).End(xlUp).Row Then Call AfficheVille
        lig = TextBox7.Value + 1
        DerLig = Sheets("Ville").ListObjects("villeDept").DataBodyRange.Rows.Count
        Sheets("Ville").Range("A2:F35000").Interior.Color = RGB(104, 204, 228)
        Sheets("Ville").Range("A" & lig & ":F" & lig).Interior.ColorIndex = 6
        If lig < 20 Then ActiveWindow.ScrollRow = lig Else ActiveWindow.ScrollRow = lig - 15
    End If
End Sub

et remettez la précédente comme à son origine:

Private Sub RECHERCHE_Click() ' recherche une question
    If TextBox7.Value <> "" Then
        Call AfficheVille
    End If
End Sub

Bonjour Arturo83,

Merci beaucoup, je fais les tests et te tiens au courant.

Désolé mais ce n'est pas bon, c'est décalé

La ligne demandée ne correspond pas à la ligne de la feuille'ville'

Et parfois ça n'avance pas

merci

Ge0ffroy