Rechercher un N° dans une cellulle

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Mai 2017

• #2

Bonjour.

Le filtre automatique sur la colonne C ne convient pas ?

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Mai 2017

• #3

Bonjour à tous,

avec ce code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G2")) Is Nothing Then
For Each cellule In Range("C6:C2604")
If cellule = Target Then
cellule.Select
Exit Sub
End If
Next cellule
End If
End Sub

à+
Philippe

Edit:
il vaut mieux figer les premières lignes afin d'avoir la cellule G2 toujours visible

 

Pièces jointes

• 111.xlsm

  29.1 KB · Affichages: 25

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Mai 2017

• #4

Salut Philippe

Pourquoi les chiffres 971 à 976 il est prend pas?

Je te remercie et te souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Mai 2017

• #5

Bonsoir.

maval à dit:

Salut Philippe

Pourquoi les chiffres 971 à 976 il est prend pas?

Je te remercie et te souhaite une bonne soirée

Max

Cliquez pour agrandir...

Parce qu'à partir de la ligne 2480, vos données sont au format texte.

Remplacez : If cellule = Target Then
par If cellule+1 = Target+1 Then
😉

 

Dernière édition: 22 Mai 2017

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Mai 2017

• #6

Re,

maval à dit:

Salut Philippe

Pourquoi les chiffres 971 à 976 il est prend pas?

Je te remercie et te souhaite une bonne soirée

Max

Cliquez pour agrandir...

Parce que, de 971 à 976, les chiffres sont au format "texte" et pas au format "nombre"

remplace le code par celui-ci

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G2")) Is Nothing Then
For Each cellule In Range("C6:C2604")
If cellule * 1 = Target Then
cellule.Select
Exit Sub
End If
Next cellule
End If
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Mai 2017

• #7

Re,

Je te remercie Nickel

Bonne soirée

Max

 

Vote positif 0 Vote négatif