Aide à completer ma macro avec certaines condition

[INFINITY100]

Bonjour tous le monde

Voila encore une fois je suis face à un problème de macro, en effet je suis parvenus à réaliser une partie de ma macro qui semble fonctionner bien mais il me reste à la compléter et c'est là que je me bloque.

Voila pour être claire je joins le fichier

Merci mes amis

Cordialement

 

[mapomme]

Re : Aide à completer ma macro avec certaines condition

Bonjour INFINITY100,

Un essai dans le fichier joint.

Un nom dynamique a été créé pour alimenter la liste déroulante de la feuille "Feuil1":
Nom: Produits ; Définition : =DECALER(Feuil2!$A$1;1;0;NBVAL(Feuil2!$A:$A)-1;1)

Seul le UserForm AjoutArticle a été modifié et complété :

• On a rajouté une liste ListBox qui permet de voir les articles commençant par les mêmes caractères de la saisie dans désignation. Un clique sur un élément de cette liste transfère l’élément cliqué de la ListBox vers la zone de texte désignation qu'on pourra ensuite modifier.
• La touche Escape est équivalente à cliquer sur le bouton Annuler.
• La touche Entrée est équivalente à cliquer sur le bouton AJouter.

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Merci Beaucoup mapomme

Grâce à toi tout est rentré dans l'ordre il reste la deuxième étape de ma question je suis entrain de formuler ma demande lol

Merci encore

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Re salut mapomme

à l'essai je découvre une erreur en effet quand je vide la liste des produits et que je recommence à la remplir de nouveau Excel me renvoi une erreur à la ligne suivante dès que j'essaye de saisir un nouveau produit

For Each Produit In Range("Produits").Value

Dans ce code

Private Sub DesignationBox_Change()
Dim Produit
  ListBox1.Clear
  DesignationBox = LTrim(DesignationBox)
  If Len(DesignationBox) > 0 Then
    For Each Produit In Range("Produits").Value
      If Produit Like DesignationBox & "*" Then ListBox1.AddItem Produit
    Next Produit
  End If
End Sub

D'autant plus j'aimerai bien vider DesignationBox de son contenu après le message MsgBox "L'Article <" & DesignationBox & "> a été ajouté" dans la première Macro

Merci

 

[mapomme]

Re : Aide à completer ma macro avec certaines condition

Bonsoir INFINITY100,

(...) à l'essai je découvre une erreur en effet quand je vide la liste des produits et que je recommence à la remplir de nouveau Excel me renvoi une erreur à la ligne suivante dès que j'essaye de saisir un nouveau produit (...)

j'aimerai bien vider DesignationBox de son contenu après le message MsgBox "L'Article <" & DesignationBox & "> a été ajouté" dans la première Macro (...)

Est-ce mieux avec la v2 ?

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Merci beaucoup Mapomme

C'est ce que j'appel un travail de pro soigneusement fini

Maintenant je sollicite une aide pour la deuxième tranche de la question détaillée dans le fichier joins

Merci à vous tous

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Slt mes amis

Quelqu'un aurai une solution à mon deuxième soucis ?

Merci

 

[mapomme]

Re : Aide à completer ma macro avec certaines condition

Bonsoir INFINITY100

Slt mes amis

Quelqu'un aurai une solution à mon deuxième soucis ?

Merci

Minute papillon! On y travaille...

Voici la version v3 avec le second formulaire AjoutOperation pour ajouter des opérations ainsi que le filtrage de la feuille Feuil5.

Le code se trouve dans les modules de code:

• de la feuille Feuil1
• de la feuille Feuil5
• de ThisWorkbook
• du Userform AjoutOperation
• du Module1

Avertissement :

• vérifier si les vérifications des saisies sont opportunes sinon les passer en commentaire ou les modifier
• vérifier l'affichage des opérations, en particulier les signes des valeurs numériques

car je me suis peut-être un peu emmêlé les pinceaux .

Nota : les codes sont commentés.

Edit : v3a (corrigé un manque de mise à jour des Combobox de Feuil1 & Feuil5)

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Bonsoir Mapomme

Merci beaucoup c'est très gentil de ta part le fichier est super génial un travail de luxe

Voila en premier j'ai beaucoup la présence de la pomme dans la feuil3 car elle est indispensable hhhh

Quant aux codes commentés chapeau tu as lu dans mes pensées car j'allais te demander cela

Maintenant il reste un dernier truc que j'ai expliqué dans le fichier joins puis le fichier sera complet

Cordialement

Ps : voir aussi qu'est ce qui cloche avec le bouton "ajouter une opération" car en le déplaçant je crois que quelque chose a décalée

 

[mapomme]

Re : Aide à completer ma macro avec certaines condition

Bonjour INFINITY100,

Voir le fichier v3b joint.

• peux-tu préciser "recherche intuitive" ?

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Bonjour Mapomme


Voici le fichier v3b joint un exemple de "recherche intuitive".

• Dans la feuille nommée recherche ainsi que sa macro

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

slt

Du nouveau mes amis ?

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

SLT Mapomme et tout les autres

une solution pour mon problème ?

 

[mapomme]

Re : Aide à completer ma macro avec certaines condition

Bonjour INFINITY100

slt

Du nouveau mes amis ?

Pas eu le temps de finaliser. Un début dans le fichier joint (voir Feuil5) pour patienter

 

[INFINITY100]

Re : Aide à completer ma macro avec certaines condition

Bonsoir Mapomme et tous les membres

Merci pour le réponse voila après la patiente je te retourne le fichier avec quelque précisions et avec un autre fichier complémentaire pour que l'idée soit bien claire

Merci encore et on est presque de venir à bout lol