Si je tape nombre x, Excel va en cellule B x

tototiti2008 à dit:

Bonjour hervé,

un essai (à placer dans le code de la feuille concernée)

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A65536")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target.Value) And Target.Value <> "" Then
Range("B" & CLng(Target.Value)).Select
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End If
End Sub

Cliquez pour agrandir...