Macro gestion des mouvements du curseur
Salut à tous
Avant de poser mon problème, je tiens à souhaiter bonne fête du travail à tous les travailleurs de ce forum.
J'ai une macro qui permet de guider les mouvements du curseur d'une plage de donnée.
Tout fonctionnait bien jusqu'à ce que je fasse une petite modification et depuis la macro ne fonctionne pas comme souhaité.
Ci-dessous la condition ajoutée :
ElseIf (InStr(1, Range("b10"), "COMPTE ACHAT")) > 0 ThenMerci de voire ce qui ne va pas svp!
Bonne suite de programme à toutes et à tous.
Bonjour Zombe
Dans ton ElseIF tu ajoutes une condition If, à cette condition il faut ajouter un Endif
ou mettre le code sur une même ligne
ElseIf Range("B4").Value = "ANCIENS CHOCOLAT" Then
If Target.Address = "$B$5" And Target.Value <> "" Then
Range("B7").Select
End Ifou
ElseIf Range("B4").Value = "ANCIENS CHOCOLAT" Then
If Target.Address = "$B$5" And Target.Value <> "" Then Range("B7").SelectLorsque tu demandes la compilation de ton projet Excel te l'indique
Menu -> Débogage -> Compiler
A+
Salut BrunoM45
Merci pour votre feedback.
J'ai essayé de faire les corections proposées mais ca ne marche pas comme je le souhaite.
Pouvez-vous revoir un peu?
Encore merci pour votre soutien
Bonsoir
Je pense que nous n'y arriverons pas comme ça ...
Peux-tu mettre également le premier fichier qui fonctionnait et nous expliquer exactement ce que tu souhaites faire ?
A+
Salut BrunoM45 et les autres membres
Ok j'exique ce que je recherche exactement.
Les codes codes macros me permettent normalement de personnaliser les mouvements du curseur en fonction des conditions définies.
En fonction de la valeur que prend B4, les mouvements du curseur sont guidés.
OK Non fonctionnel
ANCIEN CADEAU ANCIEN BONBON
CHOCOLAT ANCIEN CHOCOLA
CADEAU BONBON
Quand je choisis dans la liste deroulante de la cellule B4 (ANCIEN CADEAU, CHOCOLAT ou CADEAU) tout fonctionne correctement mais quand je prend (ANCIEN BONBON, ANCIEN CHOCOLA, OU BONBON) ca ne fonctionne pas bien.
Un exemple : lorsque je choisis dans B4 "ANCIEN CADEAU" , ensuite je renseigne B5 d'un valeur quelconque; en faisant entrée, le curseur devrait se positionner sur la cellule B7; ce qui n'est pas le cas.
Si mes explications ne facilitent pas votre compréhension, je suis prêt à revoir.
Merci pour vos contributions
Bonjour
Dans la macro
Il faut BONBON au singulier
Il faut ANCIENS CHOCOLAT sans le S à ANCIEN
Il faut ANCIENS BONBONS sans le S à ANCIEN ni le S à BONBON
Les mouvements seront conformes
Salut Banzaï64
C'est bien ce que j'ai fais.
Rien ne contient S.
Avez-vous testez le fichier? Si possible tester le et vous verrez certainement la ou ca coince.
J'ai l'impression que la macro fait une confusion lorsque 2 mots ayant les même 1er termes se suivent.
Ex : ANCIEN CHOCOLAT, ANCIEN CADEAU, ANCIEN BONBON (tous les 3 mots ont un point commun qui est ANCIEN).
C'est ma deduction.
Merci pour le soutien
Bonsoir Zombe
Je reviens sur
Un exemple : lorsque je choisis dans B4 "ANCIEN CADEAU" , ensuite je renseigne B5 d'un valeur quelconque; en faisant entrée, le curseur devrait se positionner sur la cellule B7; ce qui n'est pas le cas.
Chez moi ça fonctionne très bien
B4 = ANCIEN CADEAU
B5 = fdqsfsdf
Mon curseur se déplace en B7 avec un petit message "FAIRE SIGNER les CONDITIONS ..."
A+
Salut BrunoM45
Merci pour votre réponse.
Dans mes explications j'ai bien dis que d'autres fonctionnent dont ce que vous avez testé.
Essayé les cas suivants :
ANCIEN BONBON
ANCIEN CHOCOLAT
BONBON
Vous constaterez que ca ne fonctionne pas.
Merci pour l'essai
Bonjour
Je dois rêver peut être
ElseIf Range("B4").Value = "BONBONS" ThenElseIf Range("B4").Value = "ANCIENS CHOCOLAT" ThenElseIf Range("B4").Value = "ANCIENS BONBONS" ThenFais les modification que j'ai dit
Tes données de la liste déroulante sont au singulier
Salut Banzaï64
Vous avez parfaitement raison.
Ca marche bien mai je ne sais pas pourquoi mon cas réel ne fonctionne pas.
Je souhaite vous l'envoyer en privé mais quand je saisi votre adresse ca marque inexistant.
comment faire?