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.
code à insérer dans l'évènement de feuille (clic droit sur le nom de l'onglet, Visualiser le code)
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
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
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