Discussion :

[dyd4_]

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!

[NVCfrm]

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

[dyd4_]

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?

[MarcelG]

Salut,

A adapter

Code :

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

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

[unparia]

Bonjour

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 :

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

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 ... )
voilà une autre de ces manières :

Code :

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

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).

[Docmarti]

Solution avec Match :

Code :

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

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