Position sur ligne d'après cellule

[Michel_D]

Bonjour,

Malgré des recherches sur le forum, je n'ai pas trouvé ce que je cherche.
Dans le fichier joint, en colonne A j'ai une série de chiffres.
En B2, je rentre (avec une douchette) un chiffre et j'aimerais qu'en fonction de ce chiffre, la cellule correspondante ( il n'y en a qu'une ) en A soit sélectionnée.

Merci par avance.

Michel

 

[Cousinhub]

Re : Position sur ligne d'après cellule

Bonjour,

code à insérer dans l'évènement de feuille (clic droit sur le nom de l'onglet, Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Address = "$B$2" Then _
        Range("A" & Application.Match(Target, Columns(1), 0)).Select
End If
End Sub

Application.Match est l'équivalent VBA de la fonction EQUIV

 

[ERIC S]

Re : Position sur ligne d'après cellule

Bonjour

je pense qu'effectivement la solution passe par une macro
bhbh : sauf erreur plantage si la valeur n'est pas trouvée

If Target.Count = 1 Then
If Target.Address = "$B$2" Then _
If IsError(Application.Match(Target, Columns(1), 0)) Then MsgBox "erreur": Exit Sub
Range("A" & Application.Match(Target, Columns(1), 0)).Select
End If

 

[Michel_D]

Re : Position sur ligne d'après cellule

Re,

Superbe !
Les deux fonctionnent à merveille.
Outre le plaisir d'avoir une solution, je suis toujours étonné que pour vous...cela à l'air si simple !
Bravo et merci

Michel

A bientôt pour un simple problème