XL 2013 Aide sur création d'une ListBox

youky(BJ)

XLDnaute Barbatruc

• 26 Octobre 2020

• #16

Une autre façon donc,
Bruno

 

Pièces jointes

• ESSAI_RENTRER-DES-NUMEROS2.xlsm

  16.6 KB · Affichages: 8

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #17

Tu as mis le bouton "clear'....effectivement je l'avais demandé également en premiere instance du fil de discussion, donc il me resterais le bouton "effacer le dernier numéro cliqué "si par exemple je me trompe.....et pouvoir re saisir un nouveau numéro.
Autrement c'est parfait super

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Octobre 2020

• #18

Le code pour effacer le dernier N° est . . .
ListBox1.RemoveItem (0)

Bruno

 

Vote positif 0 Vote négatif

Solution

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #19

Eh bien Bruno.....travail rondement mené...j'ai vraiment ce que j'attendais ,parce que j'ai cherché partout un exemple. En vain.
Je vais pouvoir continuer le code ,pour finaliser une partie de mon projet final.
Je te remercie pleinement, ainsi que les autres intervenants .
Cordialement .
Pat90

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2020

• #20

re
et ben dis donc
on va faire simple vous voulez bien
1° je prends donc ton userform et je lui met 36 boutons et dans leur tags je met"-"
(c'est pour les repérer dans le activate (voir pourquoi ci dessous après la capture)


jusque là rien de compliqué

2° maintenant je vire tout le code

maintenant je met ce code

VB:

Public WithEvents bt As MSForms.CommandButton
Dim cls() As New UserForm1
Public u As Object
Private Sub bt_Click()
    With bt
        If .Tag = "" Then
            u.ListBox1.AddItem bt.Caption: bt.Tag = u.ListBox1.ListCount - 1: .BackColor = &H8000000A
        Else
            With u.ListBox1
                .Value = bt.Caption
                .RemoveItem .ListIndex: bt.Tag = "": bt.BackColor = &H8000000F
             .ListIndex = -1
            End With
        End If
    End With
End Sub

Private Sub UserForm_Activate()
   Dim ctrl, i&
   For Each ctrl In Me.Controls
        If ctrl.Tag = "-" Then
            i = i + 1: ReDim Preserve cls(1 To i): Set cls(i).bt = ctrl: Set cls(i).u = Me: ctrl.Tag = ""
        End If
    Next
End Sub

c'est pas bien lourd vous en conviendrez

ben maintenant y a plus qu'a
demonstration



ET ON PEUT L ENLEVER ET REMETTRE A L INFINI

 

Pièces jointes

• ESSAI_RENTRER-DES-NUMEROS2 WAGADOUGOU .xlsm

  17.6 KB · Affichages: 4

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2020

• #21

RE
j'oubliais!!!
vous le voulez toujours ajouté en position 0
ben
u.ListBox1.AddItem bt.Caption,0: bt.Tag = u.ListBox1.ListCount - 1: .BackColor = &H8000000A
ça change rien

 

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #22

Re bonjour Patrick
Excellent,mais..y'a toujours un mais.....(1)quand je rentre des numéros "exemple deux fois le 20....le premier s'affiche et en rentrant le deuxième ,le premier s'en va)...la ca va pas.
(2)quand tous les numéros ont étés cliqués on ne peux pas continuer à en rentrer à la suite......le but par la suite sera de créer une base de données suite a des sorties aléatoires de numéros compris entre 0 et 36.
(3)la liste doit être inversée......quand on rentre 1.2.3.4/l'affichage doit être 4.3.2.1 du haut vers le bas.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2020

• #23

d'accord
pour ton (3) j'ai deja répondu
donc si je comprends bien
tu clique ca met le numero
tu reclique tout de suite ca t'envoie ballader
apres avoir mis un ou plusieurs autre numero tu revient sur un bouton qui a deja été mis et ca l'ajoute quand même
c'est bien ça ?
(pour moi c'est ok et réalisable)sans problème

mais problème comment cliquer sur le bouton pour supprimer par exemple le 22 quand il y a plusieurs 22 c'est le quel qui doit être supprimé (tu vois ou je veux en venir)

 

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #24

Résumons
**Je clique 19...il s'affiche ....je re clique 19 l'autre disparait.
Donc par définition.....en faisant les essais....quand j'ai grisé tous les numéros..........ils s'efface un par un au fur et à mesure que je continue.Le but c'est qu'ils restent tous.

"""apres avoir mis un ou plusieurs autre numero tu revient sur un bouton qui a deja été mis et ca l'ajoute quand même """Réponse non

Pour ton text en gras......y'a pas à se poser la question de quel 22.....ce que je désirerais...c'est par un bouton "effacer simplement le dernier numéros que j'aurais saisi par erreur(en haut de la liste.
Ce que j'ai specifié dans mon premier post....ainsi qu'un "clear total"
Cordialement.....
Si pas clair ,je suis la

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2020

• #25

ben voila là on a compris c'est un remplacement d'index que tu veux
puré tu nous aura fait courir toi
ok je vois ca

 

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #26

Merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2020

• #27

voila Mr

 

Pièces jointes

• ESSAI_RENTRER-DES-NUMEROS2 WAGADOUGOU V2.0 .xlsm

  18.1 KB · Affichages: 5

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #28

je ne peux toujours pas en cliquer deux memes d'affilé......

 

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #29

exemple le 34 ds la piece jointe....impossible de remettre un 34 derriere

 

Pièces jointes

• saisie.png

  40.5 KB · Affichages: 8

Vote positif 0 Vote négatif

P

pat90

XLDnaute Nouveau

• 26 Octobre 2020

• #30

Impérativement ....tous les numéros que l'on saisis doivent rester...en double ..en triples....tous

 

Vote positif 0 Vote négatif