XL 2019 filtre par numéro colonne A

[farid]

Bonsoir,
j'ai cherché sur site et autre à savoir :
Je souhaiterais lorsque je tape le numéro dans le textbox et un clic sur le bouton que je puisse aller sur la ligne du numéro choisi.
J'espère que ma demande est claire.
Merci par avance
Farid

 

[sylvanu]

Bonjour Farid,
Peut être plus convivial, il suffit de modifier la valeur en A1 pour y accéder, avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
         On Error GoTo Fin:
            Cells(1 + Application.Match(Target, [A2:A65000], 0), "A").Select
    End If
Fin:
End Sub

 

[farid]

Bonjour Farid,
Peut être plus convivial, il suffit de modifier la valeur en A1 pour y accéder, avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
         On Error GoTo Fin:
            Cells(1 + Application.Match(Target, [A2:A65000], 0), "A").Select
    End If
Fin:
End Sub

Bonjour Sylvanu, j'espère que vous allez bien depuis.
Merci pour ce retour qui fonctionne très bien, cependant je vais abuser, à savoir :
Est-ce possible que la cellule sélectionnée change de couleur, exemple en Orange.
Merci beaucoup

 

[sylvanu]

Bonjour,

Est-ce possible que la cellule sélectionnée change de couleur

Qu'est ce que vous voulez dire ?
Change de couleur quand ? Sur quelles conditions ?
Sinon, dans l'absolu, bien sur que c'est faisable. Yaka dire quand comment.
Reste t elle de la même couleur tant qu'on n'a pas fait une autre sélection ?

 

[sylvanu]

Re,
Un essai pour le fun en PJ.
Les deux couleurs sont définies ici :

Pour le fond   : .Interior.Color = RGB(0, 180, 80)  ' Vert par défaut'
Pour la police : .Font.Color = RGB(255, 255, 0)        ' Jaune par défaut'

A noter que la mise en forme reste en place jusqu'à un nouveau changement.

 

[farid]

Re,
Un essai pour le fun en PJ.
Les deux couleurs sont définies ici :

Pour le fond   : .Interior.Color = RGB(0, 180, 80)  ' Vert par défaut'
Pour la police : .Font.Color = RGB(255, 255, 0)        ' Jaune par défaut'

A noter que la mise en forme reste en place jusqu'à un nouveau changement.

Merci beaucoup, c'est nickel.
Bonne journée

 

[sylvanu]

Bonsoir,
Pour le futur lecteur, c'est la PJ correcte à mettre en vert, non votre réponse comme quoi c'est ok.