Je ne comprends pas quel est l'erreur dans ce code Résolu

Question

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

Gyrus · Answer

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+

pijaku · Answer

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

Je ne comprends pas quel est l'erreur dans ce code

2 réponses

Discussions similaires

Newsletters