C'est à l'initialisation du dispositif qu'il convient de renseigner sa List avec un tableau ne contenant que des textes. Les contrôles c'est du String, les Value de cellules ça peut en être aussi mais surtout, quand il le faut, ça doit être Double, Date, Currency, Boolean, Empty ou Error.
Bonjour, je reviens vers vous si vous voulaez bien m'aider, car vu le nombre de combobox que j'ai à formater, j'ai voulu une utiliser une boucle pour le formatage de mes combobox contenant des heures (celles de la discussion plus haut). j'ai pensé déclencher la subroutine au changement du userform au lieux qu'elle se déclanche au lancement, car au lancement les combobox ne sont pas séléctionées. Je n'ai aucun message d'erreur à l'exécution. mais j'ai l'impression qu'il ne s'exécute pas mes valeurs sont toujours en décimale.Voici le code: (Userform page EHDAA 1/3 TEMPS)
Private Sub UserForm_Change()
Dim j As Integer
Dim i As Integer
' Parcourir les CheckBox de 143 à 150
For j = 143 To 150
' Vérifier si la CheckBox est cochée
If Me.Controls("CheckBox" & j).value = True Then
' Parcourir les ComboBox de 300 à 315
For i = 300 To 315
' Formater la valeur de la ComboBox
Me.Controls("ComboBox" & i).value = Format(CDate(Me.Controls("ComboBox" & i).value), "hh:mm")
Next i
End If
Next j
End Sub
Voici ce que j'ai ecrit pour une seule combobox et qui marche :
Private Sub Durée1_Click()
Durée1 = Format(CDate(Durée1.value), "hh:mm")
End Sub
Je joins le fichier églament.
Merci!