Discussion :

[GALOY]

grâce à bob78280, j'ai pu avancer, encore besoin d'aide pour achever ma macro :
-faire correspondre la listes des médicaments (Combobox CBmedicament) avec les prix de vente (ComboBox Cbvente) que vous trouverez dans la feuille DONNEE
-ajouter la date, le n°, la listes des médicaments, le prix de vente et montant dans la listbox1, ce qui a été déjà fait
-afficher le total du montant dans le textbox "TOTAL" lors du Click sur le bouton "valider"
-Effacer des lignes de la listbox1 grâce au bouton "effacer"
-quitter et ouvrir un nouveau formulaire grâce au bouton "QUITTER"
-faire correspondre la feuille ordonnance qui doit s'ajouter à la feuille HISTORIQUE_ORDO à chaque fois qu'on clique sur quitter
-démarrer avec le formulaire lorsque je clique sur le classeur excel
-Ne pas retrouver de doublon de médicament dans la feuille HISTORIQUE_ORDO
merci d'avance

[Invité]

Bonsoir,

aidez moi à trouver les codes pour ma macro svp

C'est souvent le cas sur un site d'entraide consacré aux macros.

Présentes succinctement le but de da demande pour attirer des experts sensibilisés à ta problématique.

[GALOY]

OK compris
Je voudrais en cliquant sur le bouton quitter, mon formulaire s'enregistre au niveau de la feuille historique ordonnance

[GALOY]

j'ai crée une macro ou je n'arrive pas à supprimer des lignes dans ma listbox, j'ai suivi différents étapes sur le net, mais malheureusement, je n'arrive toujours pas

[Menhir]

Pour info, de nombreux participants à ce forum n'ouvrent pas les fichiers joints pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

Comme ta demande n'est pas compréhensible sans ouvrir tes fichiers, ça limite les possibilités de réponses.

[GALOY]

Après plusieurs recherches sur le net, voici le code que j'utilise pour supprimer une ligne dans ma listbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i as integer 
For i = 0 to listbox1.listcount-1
If listbox1.selected(i)=true then 
Listbox1.list(i)=""
End if 
Next i
For i =listbox1.listcount -1 to 0 step -1
If listbox.list(i) = "" then listbox1.removeitem(i)
Next
End sub

Mais après exécution une erreur apparait (impossible de définir la propriété list. Accès refusé.
L'erreur est sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listbox1.list(i)=""

Je suis vraiment très novice en vba