CODE POUR REVENIR A UNE CELULLE

[bennisay]

Bonjour le forum
j ai une tableau avec plain de code
mais ce que je veux c est une fois je clic sur entre apres la saisie de la quantite le curseur se met sur une autre cellule
je met une piece joint pour bien éclairssir
et merci d avance

 

[CISCO]

Bonjour

Est-ce que ce retour automatique sur la colonne C ne doit fonctionner qu'après avoir rentré une valeur dans la colonne H, ou est-ce que cela doit fonctionner dans d'autres cas ?

@ plus

 

[bennisay]

REB
oui c est ca. uniquement apres avoir rentré une valeur dans la cellule de saisie de la colonne H

 

[CISCO]

Bonsoir

Pour le moment, je n'y arrive pas : La macro sélectionne bien la bonne cellule dans la colonne C, mais sans nous laisser le temps d'écrire quelque chose dans la colonne H !!!! Grrrr.

If Not Intersect([H7:H35], Target) Is Nothing Then
Application.OnKey Key:="{ENTER}", procedure:=ActiveCell.Offset(1, -5).Select

End If

@ plus

 

[CISCO]

Bonjour

Ca fonctionne en mettant dans la feuille LIVRAISON le code

If Not Intersect([H7:H35], Target) Is Nothing Then
Application.OnKey Key:="~", procedure:="retour_colonneC"
End If

et dans un module

Sub retour_colonneC()
ActiveCell.Offset(1, -5).Select
Application.OnKey Key:="~" ' redonne à la touche ENTRER sa fonction normale
End Sub

@ plus

 

[Modeste]

Bonjour bennisay,
Salut CISCO

Si les autres colonnes ne sont pas destinées à faire de l'encodage, on peut aussi déverrouiller les cellules des colonnes C et H, puis protéger la feuille: on passerait alors automatiquement d'une cellule de la colonne C à celle sur la même ligne en colonne H, puis à la ligne suivante, en colonne C, et ainsi de suite.

 

[bennisay]

bonjour modeste le forum
j ai mis le code mais ca marche ps je ne sais pas ou il y a le probleme
vous avez deja tester le code sur mon fichier?

 

[bennisay]

re
avec koi je dois commencer le code
expl rivate Sub Worksheet ....

 

[bennisay]

re desole j ai voulu dire DISCO
je suis ps un expert du visual basic
donc svp donnes moi les etapes a faire et merci pour votre gentillesse

 

[CISCO]

Bonjour

Cf. en pièce jointe.

Alt+F11 pour ouvrir l'éditeur VBA.
Double-clic sur Feui1 (LIVRAISON) pour obtenir la fenêtre ci-dessous

Double-clic sur Module 9 pour voir le code complet du SUB retour_colonneC.

@ plus

 

[bennisay]

BONJOUR LE FORUM CISCO
Merci pour le travail que vous m avez fait
mais en testant la piece joint que vous m avez mis en piece joint ca n a ps focntionner
normalement pour saisir un nouveaux bon livraison je dois commencer par un clic sur le bouton NOUVEAUX en haut situe a cote de ENREGISTER pour vider la page de l encienne saisie
et apers je commence par cellectionner un article en cliquant sur la premiere cellule " C7" et mettere la quantite desirée sur la cellule "H7"
puis clic sur entrer pour revenir au deusieme article c esr comme ca que ca fonctionne
svp vous pouvez reffaire ces etapes pour s assuer le bon fonctionnement de votre code
je suis vraiment tres navre de demander encore plus de votre part
mais j ai vraiment besoin de ce code et de votre cooperation
MERCI INFINIMENT

 

[CISCO]

Bonjour

Quand tu écris "clic sur entrer", tu veux plutôt signifier "appui sur la touche Entrer du clavier", non ?

Chez moi, cela fonctionne sans problème.

@ plus

 

[bennisay]

oui c est ca " appui sur la touche Entrer du clavier "
vous avez deja appuiye sur NOUVEAUX pour relancer un nouveaux et vous avez saisi un nouveu produit et une qauntite dan sla cellule H7

 

[bennisay]

re SISCO
Bizar j ai essaye le fichier que vous m avez envoye mais cela semble ne ps fonctionner

 

[CISCO]

Bonsoir

oui c est ça " appui sur la touche Entrer du clavier "
vous avez déjà appuyé sur NOUVEAUX pour relancer un nouveaux et vous avez saisi un nouveau produit et une quantité dan la cellule H7

Oui, j'ai fait tout cela et cela fonctionne...

Tu vas faire un test :
Fait comme tu dis : NOUVEAUX puis sélection d'un produit dans la liste déroulante dans la colonne C. Puis sélection de H7. Puis Alt+F11. Double-cliques sur Module 9. Puis F8. Regarde ce qui se passe dans le code. Recommence avec F8.

Et dis moi où cela bloque et le message d'erreur que tu obtiens.

@ plus