Bonjour,
Merci JM27, les 2 combobox fonctionnent bien, mais du coup comme tu as renommé les 2 combo (ex Textbox9 et Textbox10), je rencontre des bug
quand je cliques sur "Créer" d'une part, et d'autre part la sélection "recherche n° MF" (combo1 en jaune) ne recherche plus dans la liste des "Matériels".
J'ai essayé d'ajouter ce qui doit normalement faire fonctionner la macro, à savoir :
1/ Ajout dans la macro "Private Sub UserForm_Initialize()" :
Label27.Caption = "mode : création"
initialisecombo
2/ Ajout de la macro "Public Sub initialisecombo()" qui va rechercher "initalisecombo" et permet de faire normalement fonctionner la combobox1 "recherche n° MF" :
Public Sub initialisecombo()
Dim i As Integer
With ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "50;0"
End With
With Sheets("MATERIEL")
For i = 2 To .Range("a65536").End(xlUp).Row
ComboBox1.AddItem
ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 1) & " " & .Cells(i, 2)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
Next i
End With
End Sub
Malgré cela, la macro bug car après plusieurs tests, cela vient du renommage des 2 combobox que j'avais baptisé "Textbox9" et "Textbox10" et que tu as renommé "ComboMarque" et "ComboType". J'ai essayé de tout renommer en Textbox, mais çà bug....
Il doit falloir je penses que la macro reconnaisse également les combobox, mais je n'y arrive pas...
Peux-tu m'aider STP.
Merci.
Bonne journée.