Je ne comprends pas quel est l'erreur dans ce code
Résolu
Bonjour,
Ci-dessous le code:
Le problème se situe au niveau des lignes de la Listbox1.List(i)
Pouvez vous m'aider?? Merci.
Ci-dessous le code:
Public Maj As Boolean
Private Sub OptionButton1_Click()
Maj = True
End Sub
Private Sub OptionButton2_Click()
Maj = False
End Sub
Sub Ecrire()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If Maj = True Then
'Majuscule
ListBox1.List(i) = UCase(ListBox1.List(i))
Else
'Majuscule
ListBox1.List(i) = LCase(ListBox1.List(i))
End If
Next i
End Sub
Le problème se situe au niveau des lignes de la Listbox1.List(i)
Pouvez vous m'aider?? Merci.
2 réponses
-
Bonjour,
Le code ne contient pas d'erreur.
Par contre, si tu spécifies la source de données en fournissant une liste avec la propriété RowSource, le code génèreras naturellement une erreur 70.
En utilisant la méthode Additem pour remplir la liste, il n'y a plus de problème.
A+ -
ModérateurBonjour,
En complément de la réponse de Gyrus (salutations), si ta listbox est effectivement remplie grâce à sa propriété RowSource, il convient de changer (passer en majuscule ou minuscule), les valeurs contenues dans le Range source de la liste.
