Erreur dans code VBA - Userform Modification

[Antho35]

Bonjour,

J'ai un petit probléme avec le fichier ci joint. Je n'arrive pas à afficher mes valeur dans ma listebox, ça bloc à partir de la colone 10.

De plus mes textbox, combobox et autres ne sont pas allimenter, pour que je puisse les modifié.

Merci pour votre aide.

 

[kjin]

Re : Erreur dans code VBA - Userform Modification

Re,
Faut pas que ça t'empêche de répondre [thread=149658]ICI[/thread]
Dans ton formulaire tu as 2 fois motifs, vire en un sur les deux et remet de l'ordre dans les contôles 🙄
Tu veux alimenter à partir de la colonne1 qui est vide ?!

Private Sub UserForm_Initialize() 'solution déjà donnée sur l'autre fil
With Sheets("Feuil1")
    T = .Range("A2:M" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With

With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, [COLOR="Blue"]5[/COLOR]) = Format(.List(i, [COLOR="Blue"]5[/COLOR]), "hh:mm")
    Next
End With

End Sub

Private Sub ListBox1_Click()
With ListBox1
    TextBox1.Value = .List(.ListIndex, 0)
    TextBox2.Value = .List(.ListIndex, 1)
    TextBox3.Value = .List(.ListIndex, 2)
    TextBox4.Value = .List(.ListIndex, 3)
    TextBox5.Value = .List(.ListIndex, 4)
    ComboBox1.Value = .List(.ListIndex, 5)
    ComboBox2.Value = .List(.ListIndex, 6)
    ComboBox3.Value = .List(.ListIndex, 7)
    CheckBox1.Value = IIf(.List(.ListIndex, 8) = "[COLOR="Blue"]x[/COLOR]", True, False) '[COLOR="Blue"]x minuscule ![/COLOR]
    CheckBox2.Value = IIf(.List(.ListIndex, 9) = "x", True, False)
    TextBox6.Value = .List(.ListIndex, 10)
End With

End Sub

kjin

 

[Antho35]

Re : Erreur dans code VBA - Userform Modification

Oui j'ai fais une petite erreur avec deux fois "motif" mais c'est un exemple donc...

Cependant, il manque un bouton ok pour que les modif se repercute.

Comment faire pour que ça réalimente mon tableau avec la mention "Modifié le jj/mm/aaa à hh:mm:ss

Merci