Discussion :

[ozaland]

Bonjour,

j'aimerais que la macro ci-dessous s'exécute dès que l'utilisateur modifie le contenu de la cellule E27.

Code :

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

1
2
3
4
5
Sub test()
    With Sheets("travail à la référence")
        .Range("F27").Value = WorksheetFunction.VLookup(.Range("E27").Value, Sheets("données histo graphes").Range("P2:Q32"), 2, False)
    End With
End Sub

pouvez vous m'aider?
merci

[pgz]

Bonjour.

Tu dois exploiter l'évènement Change de la Feuille "travail à la référence".

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Application.Intersect(Target, Me.Range("E27")) Is Nothing Then Exit Sub
 
Target.Offset(0, 1).Value = WorksheetFunction.VLookup(Target.Value, Sheets("données histo graphes").Range("P2:Q32"), 2, False)
 
End Sub

A placer dans le module associé à la feuille "travail à la référence".

Cordialement,

PGZ