XL 2019 vba combobox

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é !?

@+

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

Re,

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

Ce dont je veux parler, c'est ça


@+

BrunoM45 à dit:

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

@+

Cliquez pour agrandir...

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....

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


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

patricktoulon à dit:

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

VB:

'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

Cliquez pour agrandir...

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

BrunoM45 à dit:

Re,

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

@+

Cliquez pour agrandir...

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 !