Cellule "active" fixe

[themeepmeep]

Bonjour tout le monde, je n'arrive pas à faire une petite macro pourtant toute simple 🙁 en utilisant la fonction "activecell.offset(-1,0).select" de manière à ce que quand je valide une entrée, la cellule active reste la même en faisant remonter d'une case vers le haut la cellule active.
En gros je tape une valeur, avec une recherche V etc ça m'indique par exemple un nom et un stock.
Ensuite je veux pouvoir taper la valeur suivante, sans avoir à remonter d'une case vers le haut, et ceci uniquement pour une feuille de calcul du classeur...
Si quelqu'un peut m'aider ce serait bien sympa.

 

[Dranreb]

Re : Cellule "active" fixe

Bonjour.
Il y a une option à décocher: sur Excel 2003: Outils, Options, Modification, Déplacer la sélection après validation.
Cordialement.

 

[ERIC S]

Re : Cellule "active" fixe

Bonjour

code à mettre dans la feuille (pas dans un module)

Private Sub Worksheet_Change(ByVal Target As Range)
'si plusieurs cellules sélectionnées = sortie
If Target.Count > 1 Then Exit Sub
'si pas en B2 = sortie
If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
ActiveCell.Offset(-1, 0).Select
End Sub

edit : Bonjour Dranreb. le pb de l'option c'est que c'est vrai partout, pas sur une cellule seulement

 

[mromain]

Re : Cellule "active" fixe

Bonjour themeepmeep, Dranreb, ERIC S, le forum,


Une autre solution serait de valider la saisie par <Ctrl> + <Entrée> (et nonseulement<Entrée>).
Cela évite de changer de cellule lors de la validation.

A+

 

[themeepmeep]

Re : Cellule "active" fixe

Bonjour, merci pour ces informations. Je vais voir comment je vais bidouiller mon bazar.

 

[ROGER2327]

Re : Cellule "active" fixe

Bonjour à tous

Ceci peut-être ?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$5" Then Target.Select
End Sub

Une validation en B5 conserve cette cellule comme cellule active. Mais ai-je bien compris le problème ?​

ROGER2327
#5311

Samedi 21 Merdre 138 (Sainte Pyrotechnie, illuminée - fête Suprême Quarte)
19 Prairial An CCXIX, 6,0852h - tilleul
2011-W23-2T14:36:16Z