Je ne comprends pas quel est l'erreur dans ce code
Résolu
Jalalrid
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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.
A voir également:
- Je ne comprends pas quel est l'erreur dans ce code
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
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+
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+
@+