Gérer listbox

[RONIBO]

Bonjour le forum,

Je viens vers vous concernant un problème que je n'arrive pas à résoudre,

j'ai crée une listbox de mes factures, sélectionner les factures souhaités et en faire une attestation de tva.

Mon problème est que mon attestation prends maximum 6 factures.

J'aimerais bloquer la listbox à six factures sélectionnées et afficher un msgbox (vous pouvez sélectionner six factures maximum), afficher ce message des qu'on essaye de sélectionner la 7 factures

Et la possibilité de décoché une facture sélectionné auparavant pour en choisir une autre. (au cas ou l'on se trompe)


J'espère que je me suis fait comprendre.

Je vous mets un bout de mon fichier (à extraire dans c: svp)

A bientôt

 

[pierrejean]

Re : Gérer listbox

Bonjour RONIBO

Vois si cela te convient

 

[RONIBO]

Re : Gérer listbox

Bonjour pierrejean,


Merci pour le fichier, je rencontre un petit bug, une fois le msgbox affiché, juste après il me sélectionne la case, on peut bloqué cela?

A+

 

[pierrejean]

Re : Gérer listbox

RE

Je n'ai pas ce phénomène !!!!
Peux-tu être plus précis sur ce qu'il se passe exactement ??

 

[RONIBO]

Re : Gérer listbox

Re,

Oui bien sur,

Une fois mes six factures selectionnees, j'essaye de sélectionner la septième facture et la comme convenu le msgbox s'affiche, une fois cliqué sur le bouton OK (Du msgbox), la septième facture que j'ai essayé de cocher auparavant reste coché, je voulais savoir si l'on pouvait bloquer la sélection des factures une fois le msgbox affiché

En faite j'ai toujours la possibilité de sélectionner des factures après le msgbox afficher, j'aimerais bloqué la sélection au delà de 6 facture.

A+

 

[pierrejean]

Re : Gérer listbox

Re

Voila le mieux que je puisse faire
Au delà il te faudrait trouver des utilisateurs au QiI un peu plus developpé

 

[Si...]

Re : Gérer listbox

salut

et ainSi... ? (pas question de QI pierrejean 😀)

Private Sub Liste_Change()
  If nb_sel > 6 Then
   'message peu utile s'il est copié dans ControlTipText
    MsgBox "Rappel : le nombre de choix est limité à 6 ! ", vbCritical, "Choix refusé..."
    Liste.Selected(Liste.ListIndex) = 0
  End If
End Sub

 

[RONIBO]

Re : Gérer listbox

Bonsoir,

C'est super merci à vous deux 🙂

a+