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

[herve80]

Bonjour à tous et à toutes,

Excel est un outil formidable, tant pour mon travail professionnel que pour mon épanouissement.

Donc : j'aimerais qu'en tapant un nombre dans la colonne A, Excel efface ce nombre et me renvoie automatiquement dans la cellule avec le nombre, mais en colonne B.

Ex: si je tape "105" en A5 (ou A17, ou A180, etc), Excel efface "105" et me place directement en B105.

Si la question a déjà été posée, je vous prie de m'excuser.

Bonne fin de journée.

 

[tototiti2008]

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

Bonjour hervé,

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

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

 

[herve80]

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

Bonjour hervé,

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

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

Alors là, je suis bluffé. Vraiment. Je t'envoie un message privé pour te remercier de manière plus chaleureuse.

En tout cas, chapeau pour la rapidité et l'efficacité.

 

[tototiti2008]

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

Re,

De rien

au passage, si tu veux te déplacer rapidement dans une cellule, tu peux aussi taper son adresse dans la zone nom (au début de la barre de formule)
tu cliques dedans
tu tapes B125
+ Entrée