Taper une valeur puis atteindre cellule dans une colonne automatiquement

Bonjour à tous

Je coince sur un truc qui me parait pourtant bien simple! si qqn peut m'aider svp !

J'ai une colonne de chiffres dans Excel de 1 à 800 (donc 800 lignes)
dans une case à part, je veux taper une valeur comprise entre 1 et 800, et qu'après avoir fait "Entrée", cela nous amène à la cellule correspondante à la valeur!

merci pour votre aide!

La lettre de la colonne suivie du n° de ligne souhaitée dans la zone nom contiguë à la barre de formules.

pourquoi pas mais pas très pratique et sachant qu'il y a une ligne de titres...
aucune solution avec l'idée de la case à remplir d'un chiffre et qu'après avoir "Entrée" on soit positionner sur la ligne où la valeur de colonne corresponde à la valeur tapée?

Salut,

A adapter

Code:

---

1 2 3 4 5 6 7

Option Explicit   Sub essai() Dim laligne As Integer laligne = InputBox("Choisissez la ligne à traiter", "Choix du traitement") ThisWorkbook.Worksheets("ma_wks").Range("B" & laligne).Select End Sub

---

Bonjour

Citation:

---

pourquoi pas mais pas très pratique et sachant qu'il y a une ligne de titres...
aucune solution avec l'idée de la case à remplir d'un chiffre et qu'après avoir "Entrée" on soit positionner sur la ligne où la valeur de colonne corresponde à la valeur tapée?

---

Curieuse démarche, mais je suppose que tu en fais un petit exercice ..
C'est bien évidemment possible, de manière d'ailleurs très rudimentaire
Exemple avec des données de 1 à 800 en colonne A et saisie en colonne C1 de ce que tu veux atteindre -->>

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$1" Or Val(Target.Text) = 0 Then Exit Sub nbentetes = 2 'si deux lignes d'entete ' indique ici le nombre de lignes qui sont utilisées à des entêtes Range("A" & Target.Value + nbentetes).Select End Sub

---

EDIT : et s'il ne s'agit que d'un exercice que tu t'imposes, invente donc d'autres manières (il y en a autant que tu peux en imaginer ... :D)
voilà une autre de ces manières :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$1" Or Val(Target.Text) = 0 Then Exit Sub nbentetes = 2 'si deux lignes d'entete Range("A1").Offset(Target.Value + nbentetes - 1).Select End Sub

---

A toi de jouer (invente d'autres façons d'utiliser des connaissances de base de chez base).

Solution avec Match :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address <> "$C$1" Then Exit Sub   Set r = Range(Cells(2, 1), Cells(802, 1)) Var = Application.Match(Range("$C1").Value, r, 0)   If IsError(Var) Then Else On Error Resume Next Cells(Var + r.Row - 1, 1).Select End If   End Sub

---