Rechercher un N° dans une cellulle

[maval]

Bonjour
J'ai sur mon classeur les N° de département de 01 à 976 dans la colonne "C"

01
01
01
02
02
02
02
02
03
03
03
Et.....
Je souhaiterai afficher dans la cellule "G2" un N° et que le code m'envoie directement sur la première cellule avec le N° choisie.
Je joint mon fichier

Je vous remercie d'avance

Cordialement

Max

 

[Victor21]

Bonjour.

Le filtre automatique sur la colonne C ne convient pas ?

 

[phlaurent55]

Bonjour à tous,

avec ce 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

 

[maval]

Salut Philippe

Pourquoi les chiffres 971 à 976 il est prend pas?

Je te remercie et te souhaite une bonne soirée

Max

 

[Victor21]

Bonsoir.

Salut Philippe

Pourquoi les chiffres 971 à 976 il est prend pas?

Je te remercie et te souhaite une bonne soirée

Max

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

 

[phlaurent55]

Re,

Salut Philippe

Pourquoi les chiffres 971 à 976 il est prend pas?

Je te remercie et te souhaite une bonne soirée

Max

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

remplace le code par celui-ci

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

 

[maval]

Re,

Je te remercie Nickel

Bonne soirée

Max