Passer d'une cellule à l'autre

[Christophe]

Bonjour,

Me voilà confronté à un nouveau petit soucis auquel vosu aurez, j'en suis sûr, une solution à me proposer.

Dès lors que je saisis une valeur en A1, est il possible de déplacer automatiquement le curseur en A3 par exemple ?

Merci par avance du coup de mains.


Christophe

 

[andré]

Salut Christophe,

Pour te donner une solution définitive et efficace, il faudrait savoir ce que contiennent les cellules que tu veux "sauter".

Exemple : si A1 et A3 sont des constantes et que A2 est une formule ou est vide, en d'autres mots que tu veux passer de constante en constante, alors tu fais F5 / Cellules / Constantes / OK et tu te déplaces au moyen de la touche TAB.
Idem si tu veux te déplacer de cellule vide en cellule vide, ou de formule en formule, tu coches sous la boîte de dialogue l'option retenue.

Si tes déplacements sont tout à fait aléatoires, je crains qu'il n'y ait d'autre solution que de protéger ta feuille en dévérouillant les cellules dans lesquelles tu veux te déplacer, et puis aussi employer la touche TAB pour te déplacer.

Si c'est encore autre chose, sois un peu plus explicite.
A binetôt.
Ândré.

 

[nicolas]

Bonjour à tous,

J'imagine que le problème doit être vu comme un formulaire. On remplit un champ et quand on clique sur entrée, on va directement dans la cellule suivante.
A priori, peut être une macro en VBA??

 

[Christophe]

Merci André et Nicolas de votre aide.

André a sans doute raison : je n'ai pas été suffisamment clair.
J'ai donc attaché un petit exemple dans lequel je souhaite passer directement de C2 à C5, dès qu'une valeur est entrée en C2.

Encore merci par avance.


Christophe

 

[andré]

Salut Christophe,

Il te faudra attendre, les pièces jointes ne sont plus acceptées.
Si tu veux une réponse plus rapide, il te faudra l'expliquer !

Ândré.

 

[Eric C]

Bonjour le forum
Bonjour Cristophe, André & Nicolas

En VBA uniquement pour la cellule C2 donc à adapter

Private Sub WorkSheet_Change (ByVal, Target as Excel.Range)
If not Application.Untersect(Target, Range("C2")) is Nothing Then
If Range("c2").value <> "" then
ActiveCell.Offset (3, -1).select
End if
End If
End Sub

@ ++ Eric C

 

[Christophe]

Bonsoir Eric, André et Nicolas,

Me revoilà sur le Forum (notre réseau avait planté et empêchait tout accès depuis hier soir).

J'ai essayé la solution d'Eric mais sans succès.
Le pb vient-il de chez moi ?

Merci par avance de votre coup de mains !

Bonne soirée.

Christophe

 

[Eric C]

Re le Forum
Re Cristophe, André & Nicolas

Pour ma part, si tu saisi en C2 une valeur ou autre et que tu actives la touche Entrer alors la cellule qui prend le focus est la C5. Si tu fais Entrer alors qu'aucune valeur n'est saisie alors c'est la cellule D2 qui prend le focus.
@ ++ Eric C

 

[Christophe]

Eric,

Merci pour ta persévérance.
Je viens à nouveau d'essayer. Sans succès.
Je dois avoir fait une "boulette" qqpart.

Peux-tu STP me renvoyer le fichier tel qu'il fonctionen chez toi ?

Par avance merci et bonen journée.

 

[Eric C]

Re le forum
Re Christophe

Milles Excuses : Il faut lire Intersect et non Untersect. Il est fort probable que l'erreur vienne de la.
I'm sorry.
@ ++ Eric C