Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 filtre par numéro colonne A

farid

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

Pièces jointes

  • test-1.xlsm
    17 KB · Affichages: 6
Solution
Re,
Un essai pour le fun en PJ.
Les deux couleurs sont définies ici :
VB:
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.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Farid,
Peut être plus convivial, il suffit de modifier la valeur en A1 pour y accéder, avec :
VB:
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
 

Pièces jointes

  • test-2.xlsm
    16.6 KB · Affichages: 3
Dernière édition:

farid

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

XLDnaute Barbatruc
Supporter XLD
Re,
Un essai pour le fun en PJ.
Les deux couleurs sont définies ici :
VB:
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.
 

Pièces jointes

  • test-3.xlsm
    330.5 KB · Affichages: 3

Discussions similaires

Réponses
2
Affichages
353
Réponses
9
Affichages
288
Réponses
16
Affichages
463
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…