XL 2019 vba combobox

[Muhadini]

Bonsoir à tous

Impossible de mettre ma liste de nom du tableau dans ma combobox, qui sois également attaché au numéro de vestiaire (important) !!

cela fait 2 heures que je suis deçu !!! Et je n'arrive pas à comprendre mon erreur, je suis débutante d'accord, mais enfin.... !!!

Merci d'avance...

 

[Compte Supprimé 979]

Bonsoir Muhadini,

Mais ou est le code pour alimenter la combo à l'ouverture !?

Pourquoi utiliser un combobox pour le nom en face du vestiaire, tu n'as qu'une possibilité !?

@+

 

[Muhadini]

Bonsoir Bruno,

Quand vous cliquez sur ajouter/modifier vous avez l'ouverture du formulaire...

Et mon code est dans la feuille pour l'ouverture du formulaire

 

[Compte Supprimé 979]

Re,

Ne vous inquiétez pas pour moi, je sais ou se trouve le code

Ce dont je veux parler, c'est ça

@+

 

[Muhadini]

Re,

Ne vous inquiétez pas pour moi, je sais ou se trouve le code

Ce dont je veux parler, c'est ça
Regarde la pièce jointe 1097761

@+

Pardonnnn.... autant pour moi !

Le commandbutton2_click, je ne l'ai pas encore programmé (par la suite j'essaierai de le programmé pour vider un vestiaire ).

Le private sub à la base il y avait le code pour alimenter ma combobox pour le nom,prénom et également le numéro de vestiaire (les deux sont liés).

private sub formulairevestaire_Initialize() - je l'ai fait parce que ma privat sub userforme_initialize() ne marchait pas !

dans ma user forme initalize () il y avait ça:
__________________________________________________________

Application.ScreenUpdating = False
ListBox1.Clear

If ComboBoxnom <> "" Then
For Ligne = 1 To 24
If Cells(Ligne, 1) Like "*" & ComboBoxnom & "*" Then
ListBox1.AddItem Cells(Ligne, 3)
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(Ligne, 3)
ListBox1.List(ListBox1.ListCount - 1, 2) = Format(Cells(Ligne, 4), "0# ## ## ## ##")
End If
Next
End If
Application.ScreenUpdating = True
_________________________________________________________________--

ensuite je l'ai rattaché directement sur le bouton.... enfin voilà le bordel quoi....

 

[patricktoulon]

Bonsoir
toujours j'ajoute une colonne pour mémoriser les lignes (c'est plus simple que de rechercher la la ligne correspondante apres
libre a toi de la masquer en débloquant la ligne

'Private Sub Formulairevestiaire_Initialize()
'End Sub
Private Sub UserForm_Activate()
    reliste
End Sub
Sub reliste()
    Dim F
    Set F = Sheets("vestiaire")
    With ComboBoxnom: .List = F.Range("B3:c" & F.Cells(Rows.Count, "B").End(xlUp).Row).Value
        For i = 0 To .ListCount - 1: .List(i, 1) = i + 3: Next
       '.columnwidth="100;0"   
 End With
End Sub

dans si peu de code il y a trop de bévues et méprises pour comprendre tes intentions
revois un peu ta conception si tu veux que l'on t'aide

 

[Compte Supprimé 979]

Re,

Bon un peut de modifications, après à voir pour adapter pour vos besoins

@+

 

[Muhadini]

Bonsoir
toujours j'ajoute une colonne pour mémoriser les lignes (c'est plus simple que de rechercher la la ligne correspondante apres
libre a toi de la masquer en débloquant la ligne

'Private Sub Formulairevestiaire_Initialize()
'End Sub
Private Sub UserForm_Activate()
    reliste
End Sub
Sub reliste()
    Dim F
    Set F = Sheets("vestiaire")
    With ComboBoxnom: .List = F.Range("B3:c" & F.Cells(Rows.Count, "B").End(xlUp).Row).Value
        For i = 0 To .ListCount - 1: .List(i, 1) = i + 3: Next
       '.columnwidth="100;0"  
End With
End Sub

dans si peu de code il y a trop de bévues et méprises pour comprendre tes intentions
revois un peu ta conception si tu veux que l'on t'aide

Ouai, faut vraiment que je regarde plus de tuto et de documentation... Merciiii !

 

[Muhadini]

Re,

Bon un peut de modifications, après à voir pour adapter pour vos besoins

@+

Re bruno,

Merci, je viens de regarder ton code et effectivement c'est plus structuré ! Faut que je le garde comme modèle... Merci encore, je te souhaite une bonne soirée !