Discussion :

[MatthieuT42]

Bonjour à tous,

Mon problème :

je possède 2 listbox

Ma listbox1 possède un gros nombres d'éléments qui varient en fonction des éléments cochés précédemment,
lorsque un élément de la listbox1 et aussi un élément de ma colonne "H" feuil3
cette élément se cache dans la listbox 1 et apparait dans la listbox2.

Lorsque l'élément est supprimé dans la colonne H, il réapparaît dans la listbox1 et s'éfface dans la listbox2.

Merci pour votre attention et merci au forum.

Cordialement

[Philippe Tulliez]

Bonjour,
Pas certain d'avoir bien compris ta demande.
Voici un exemple d'un UserForm ayant deux contrôles ListBox nommés ListBox1 et ListBox2.
ListBox1 est chargé à l'initialisation du UserForm des étiquettes de colonnes de la liste de données se trouvant sur la feuille nommée [db] et ce à partir de la cellule A1.
En faisant un double click sur un des éléments de ListBox1, celui ci est supprimé de ListBox1 et s'ajoute dans ListBox2 et inversément

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Dim wkb As Workbook, sht As Worksheet, rng As Range
Const shtName As String = "db"
' ======
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 With ListBox1: ListBox2.AddItem .List(.ListIndex, 0): .RemoveItem (.ListIndex): End With
End Sub
' ======
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 With ListBox2: ListBox1.AddItem .List(.ListIndex, 0): .RemoveItem (.ListIndex): End With
End Sub
' ======
Private Sub UserForm_Initialize()
 Set wkb = ThisWorkbook: Set sht = wkb.Worksheets(shtName)
 Set rng = sht.Range("A1").CurrentRegion
 Dim c As Byte
 ' Charge la liste des étiquettes dans ListBox1
 With ListBox1
 .ColumnCount = 1
  For c = 1 To rng.Columns.Count: .AddItem sht.Cells(1, c): Next
 End With
End Sub

[MatthieuT42]

Salut, merci pour ta réponse, je comprends ce que tu as voulu faire et celà m'aide dans ma progression en VBa mais ce n'est pas tout à fait ce dont j'ai besoin.

Je vais t'expliquer mon programme.

Mon but est de réaliser une bibliothèque informatique qui référence les outils de métrologie et de pouvoir les emprunter et les rendres.

Pour celà, chaque opérateur possède un id (un nombre) qu'il rentre dans une première textbox
il clique sur OK et apparait son "nom et prenom"
ensuite une listbox lui demande de choisir son outil (=pied à coulisse, tampons, micromètre ....)
cette listbox est affecté à plusieur listbox qui permettent d'avoir sa désignation (=pied à coulisse : digital, à bec rond ...)
on clic sur celui que l'on veut, sur une autre listbox apparait ses dimensions (= 0 - 200 , 0 - 500 ...)

on clic et c'est ici qu'intervient mon problème :
dans ma listbox1 apparait le code outil (=PAC001, PAC002 ....) de chaque outil disponible. ----> listbox1 = objet disponible
(excel feuil 2,4,5,6,7,8 --> base de donnée qui référence tout mes outils avec désignation, dimensions , code)

La feuil3 excel est l'enregistrement de : ID ("B") , Nom Prénom ("C"), Outil ("D"), désignation ("E), dimensions ("F"), date ("G") ,code outil (colonne H)

si en feuil3 l'enregistrement du code est égal à celui de la listbox1, on le cache en listbox1 et il apparait en listBox2 ----> listbox2 = objet indispo

une autre macro me permet le rendu de l'outil qui supprime la ligne excel de l'enregistrement choisit, d'ou le code outil listbox1 redevient différent du code outil colonne H car il a été supprimé donc il réapparait listbox1 et n'existe plus dans la listbox2

J'espère avoir été plus claire, si ce n'est pas le cas je peux t'envoyer mon dossier par mail car il est supérieur à 2 Mo et je n'arrive pas à le télécharger : matthieu.therrat@gmail.com

longue vie au forum

[Philippe Tulliez]

Bonjour,
Dans ta question il y a en fait plusieurs donc idéalement tu devrais ouvrir plusieurs discussions traitant chaque fois d'un sujet sinon cela revient à demander de faire le travail à ta place.

J'espère avoir été plus claire, si ce n'est pas le cas je peux t'envoyer mon dossier par mail car il est supérieur à 2 Mo et je n'arrive pas à le télécharger :

Il n'est pas question comme préciser plus haut de faire ce travail.
Ce que tu demandes représente plusieurs heures de travail si tu souhaites que l'application soit pérenne, facilement maintenable et puisse être sans trop de difficultés améliorée.
La première chose est de faire une analyse de la gestion des données, une ou plusieurs feuilles représentant des tables, établissement d'une feuille avec les paramètres, etc.

Pour celà, chaque opérateur possède un id (un nombre) qu'il rentre dans une première textbox
il clique sur OK et apparait son "nom et prenom"

Cela équivaut à une gestion de table où l'on doit avoir la possibilité de créer, consulter, modifier et supprimer un enregistrement (CRUD est l'acronyme anglais)
Voir cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire.

Pour le reste, il faudrait avoir une explication plus explicite des tables qui alimenteront les contrôles LisBox.

• Est-ce la même liste pour tous ?
• Faut-il ouvrir un deuxième ListBox dépendant du choix fait dans le premier, etc. ?

Comme expliqué au début de ma réponse, décompose ton problème et pose chaque question sur des discussions distinctes, en commençant éventuellement dans la rubrique Conception si tu ne t'en sors pas dans l'analyse

[MatthieuT42]

Encore merci pour ta réponse.

Je dois vraiment ne pas savoir m'exprimé

Enfaite la casi totalité du programme est fait, mon seul problème apparait à la fin avec mes 2 listbox.

j'aimerai traduire cette phrase en expression Vba :
Si "un élément" rentré colonne H feuille 3 est similaire "un élément" en listbox1 alors cette "élément" disparait en listbox1 et apparait en listbox2.

[Philippe Tulliez]

Bonjour,

j'aimerai traduire cette phrase en expression Vba :
Si "un élément" rentré colonne H feuille 3 est similaire "un élément" en listbox1 alors cette "élément" disparait en listbox1 et apparait en listbox2

Plusieurs questions qui peuvent donner une réponse différente

• Le ListBox1 est alimenté comment ?
• L'encodage en Feuil3 (colonne H) est-il alimenté manuellement ou par le UserForm ?
• Si c'est manuellement, est-ce que le UserForm est modal ou pas ?

Ton problème me fait penser à une application de prêt de matériel ou autres donc je pencherais pour une feuille reprenant les mouvements de prêt avec une ou plusieurs colonnes qui indiquent le retour de la référence empruntée ainsi la gestion des contrôles ListBox sera plus aisée

[MatthieuT42]

Ton problème me fait penser à une application de prêt de matériel ou autres donc je pencherais pour une feuille reprenant les mouvements de prêt avec une ou plusieurs colonnes qui indiquent le retour de la référence empruntée ainsi la gestion des contrôles ListBox sera plus aisée

Je pense que oui !
(Ma feuille 3 reprend tout les mouvements de prêt)
si je te suis, il faudrait alors qu'au moment de la suppréssion de ma ligne excel correspondant au retour, cette référence s'enregistre ailleurs et permet de gérer mes 2 listbox ?

Ma listbox1 se rempli à l'aide de listbox (elles-mêmes alimentées par des feuilles excels)

La colonne H(feuil3) se rempli à l'aide de l'userform

encore une fois mille merci pour ton attention.

[Philippe Tulliez]

Bonjour,r

si je te suis, il faudrait alors qu'au moment de la suppréssion de ma ligne excel correspondant au retour, cette référence s'enregistre ailleurs et permet de gérer mes 2 listbox ?

Pourquoi supprimer une ligne plutôt que d'avoir la date du retour et/ou une colonne avec le statut du matériel Prêté, Revenu, etc.
Je suis partisan de conserver un historique car cela permet de revenir en arrière en cas de pépins et d'éventuellement tirer des statistiques.

Bonjour,
Partant du principe que toutes les données se trouvent dans une plage de données d'une seule feuille et qu'une valeur se trouvant dans une colonne sera le choix de placer la ligne où se trouve cette valeur dans le contrôle ListBox1 ou ListBox2, voici un exemple de procédures qui va lire les données se trouvant dans une plage de données se trouvant dans une feuille nommée [db] et qui placera dans le contrôle ListBox2 les données se trouvant dans la ligne où la valeur de la colonne 5 est égal à "F", les autres lignes allant dans le contrôle ListBox1
Code à placer en tête de module du UserForm

Code :

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

1
2
3
Option Explicit
Dim rng As Range, rng_Data As Range
Const shtName As String = "db"

Procédure événementielle Initialize

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
  InitData
  InitListBox
End Sub

Procédure nommée InitData

Code :

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

1
2
3
4
5
6
7
8
Private Sub InitData()
 ' Initialise les variables objets de type Range
 With ThisWorkbook.Worksheets(shtName)
  Set rng = .Range("A1").CurrentRegion
 End With
 ' Plage des données
 With rng: Set rng_Data = .Offset(1).Resize(.Rows.Count - 1): End With
End Sub

Procédure InitListBox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub InitListBox()
 ' Initialisation des contrôles ListBox1 et ListBox2
  Dim r As Long, c As Integer, ColWidth As String
  ColWidth = "0;50;50;50"
  With ListBox1
  .ColumnCount = rng.Columns.Count: .ColumnWidths = ColWidth
  End With
  With ListBox2
  .ColumnCount = rng.Columns.Count: .ColumnWidths = ColWidth
  End With
  With rng_Data
   For r = 2 To .Rows.Count
    If .Cells(r, 5) = "F" Then
      ListBox2.AddItem r
      For c = 1 To .Columns.Count
       ListBox2.List(ListBox2.ListCount - 1, c) = .Cells(r, c)
      Next
     Else
      ListBox1.AddItem r
      For c = 1 To .Columns.Count
       ListBox1.List(ListBox1.ListCount - 1, c) = .Cells(r, c)
      Next
    End If
   Next r
  End With
  With ListBox2
  .ColumnCount = rng.Columns.Count: .ColumnWidths = ColWidth
  End With
End Sub

[MatthieuT42]

Bonjour,

Ayant essayé en vain de faire fonctionner ton programme toute la matinée (InitData et InitListBox affiche erreur "9" dans mon programme et je ne comprends pas pourquoi)...

-------Bien sûr, je précise que j'ai commencé Vba il y a 5 semaines donc je débute--------

Je me suis aussi rendu compte que ma suppression de ligne était déjà en rapport avec mon rendu d'outil. En effet, quand l'opérateur rentre son ID, mon programme va chercher dans la liste des réservations les outils qui lui sont attribué. Donc si je ne supprime plus, il m'affichera aussi les outils déjà rendu.

J'ai repris ton idée d'historique sur une autre page car c'est une excellente idée.

Je pense que le plus facile serait que tu regardes mon programme par toi-même pour voir ou sont mes difficultés, mais je ne te force en rien.

ton aide m'a quand même permis d'avancer un peu, et je t'en remercie.

Bonne journée

Cordialement

[Philippe Tulliez]

Bonjour,
En tête de module, la ligne 3 est

Code :

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

Const shtName As String = "db"

A faire ou à vérifier

1. Soit tu remplaces la constante db par le nom de ta feuille, soit tu renommes ta feuille db
2. Les données de cette feuille commence t'elle bien en cellule A1 avec en ligne 1, les étiquettes de colonnes (Les titres)
3. Les données ne peuvent en aucun cas contenir de cellules fusionnées
4. Pas de lignes et/ou de colonnes vides
5. Et bien entendu, si tu as repris mon exemple, il faut avoir en cinquième colonne de cette liste de données des valeurs F

Si tu ne t'en sort pas, je publierai pour vendredi au plus tard, mon classeur exemple

[MatthieuT42]

bonjour,

je crois que la complexité vient du fait que mes bases de données sont sur 6 feuilles.
(j'ai 1600 références répartis par famille et sous-famille)

j'attends ton classeur exemple.

merci à toi.

[Philippe Tulliez]

Bonjour,

je crois que la complexité vient du fait que mes bases de données sont sur 6 feuilles.

C'est une nouvelle information par rapport à la demande initiale il me semble

Voilà le classeur qui m'a servi d'exemple.

J'ai prévu un double affichage de la feuille des données et celle de l'accueil où se trouve le bouton ActiveX qui déclenche le formulaire mais malgré mes multiples tests, il est possible que ce double affichage des fenêtres pose problème dans certain cas, le bouton bascule par exemple qui se placerait mal ou deux fois la même feuille affichée.

Le code d'initialisation des contrôles ListBox a été modifié pour permettre l'affichage des données sélectionnées dans des TextBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub InitListBox()
 ' Initialisation des contrôles lstMale et lstFemale
 Dim r As Long, c As Integer, ColWidth As String
 ColWidth = "0;0;50;50;20;20;50"
 With Me.lstMale
 .ColumnCount = rng.Columns.Count + 1: .ColumnWidths = ColWidth
 End With
 With Me.lstFemale
 .ColumnCount = rng.Columns.Count + 1: .ColumnWidths = ColWidth
 End With
 With rng_Data
  For r = 1 To .Rows.Count
   ' Splite les données vers lstFemale ou lstMale
   If .Cells(r, ColumnNumber) = ConditionValue Then
      Me.lstFemale.AddItem r  ' N° d'enregistrement (ligne)
      For c = 1 To .Columns.Count
       lstFemale.List(lstFemale.ListCount - 1, c) = .Cells(r, c)
      Next
     Else
      Me.lstMale.AddItem r   ' N° d'enregistrement (ligne)
      For c = 1 To .Columns.Count
       lstMale.List(lstMale.ListCount - 1, c) = .Cells(r, c)
      Next
    End If
   Next r
  End With
  With lstFemale
  .ColumnCount = rng.Columns.Count: .ColumnWidths = ColWidth
  End With
End Sub

[MatthieuT42]

Bonjour Philippe,

Sur une autre discution mon problème à été résolu par ce code.
Encore merci à toi et désolé du dérangement pour ton classeur exemple qui me servira peut être pour la suite.

Bonne journée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Me.ListBox1.Clear
  Me.ListBox2.Clear
 
  Select Case Me.ListBox3.ListIndex
    Case 0
      Set rngA = Range("D5:D14")
    Case 1
      Set rngA = Range("E5:E14")
    Case 2
      Set rngA = Range("F5:F14")
  End Select
 
  For Each rngB In rngA.Cells
    Set rngC = Range("J2:J6").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1.AddItem rngB
      Else
        Me.ListBox2.AddItem rngB
      End If
  Next rngB