Discussion :

[UDSP50]

Salut la room

ca boom???

bon moi petit ennui je ne sais absolument pas comment ecrire ce que je veux:

alors

sur changement range A1

genre je tape toto

je voudrais kil regarde de b5 a B400
et s'il trouve toto quil m'affiche en A2 la valeur juste en face de toto qui se situe colonne C5 a C100

Merci de votre aide

[Daniel.C]

Bonsoir,

Mets cette macro dans le module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub
    If IsNumeric(Application.Match(Target.Value, [B5:B400], 0)) Then
        Application.EnableEvents = False
        [A2] = Application.Index([C5:C400], Application.Match(Target.Value, [B5:B400], 0), 1)
        Application.EnableEvents = True
    End If
End Sub