OptionButton & ListBox

[PAD]

Bonjour à tous,

J’ai une erreur de type 1004 dans le code ci-dessous, sur la ligne soulignée.
Qui peux m’expliquer pourquoi et comment la supprimer.

Merci d’avance,
Dans l’attente,

Bonne journée à tous

A+ PAD


Private Sub OptionButton1_Click()
Dim r
List1.Clear
titre = List1.ListIndex * 20 + 2
For r = titre To titre + 19
If Feuil5.Cells(r, 2) = '' Then Exit Sub
List1.AddItem Feuil5.Cells(r, 2)
Next

 

[PascalXLD]

Bonjour

Puisque tu clear ta listbox ton listindex est obligatoirement -1

si je le multiplie par 20 puis +2 j'ai -18

et une ligne -18 ça n'existe pas

sinon il faut déclarer les variables dim r as integer ou byte ou long mais déclare là avec un type c'est mieux

 

[Ti_]

Salut
La première explication qui vient à l'esprit c'est une erreur due au Listindex de ton controle : si ton Listindex est à -1 (c'est à dire que la liste est vide ou qu'aucune valeur n'est séletionnée) alors tu renvoies une adresse négative, ce qu'Excel n'apprécie pas.
Si ça n'est pas ça, alors il faudrait voir avec la macro dans son contexte...

en plus je n'avais même pas vu que tu avais mis un Clear en début de macro (heureusement que tu étais là Pascal 😉) . Bon ben alors ne cherche plus

Message édité par: Ti_, à: 28/02/2006 08:28

 

[PAD]

Bonjour Pascal, Ti et re tous,

Mon problème est que dans des feuilles de données, je veux sélectionner la colonne B qui comporte les intitulés alors que dans la colonne A les titres, donc j’ai imaginé dans un UserForm des boutons pour sélectionner les feuilles de données qui quand je clique dessus afficherai le contenue de la colonne A de la feuille sélectionnée, par contre les titres de la colonne A sont tout les 20 cellules d’espacement.
Et la solution que vous me donnez, j’ai donc effacé List1.clear ce qui m’affiche tous les titre de toutes les feuilles dans la ListBox1.

Donc je vais creusé encore !
Merci de vos réponses et de votre aide


A+ PAD