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