Pb de variable

[Tony]

Bonjour à tous
Ma macro plante, je n'arrive pas a resoudre le
pb. Dans un userform avec une combobox je
recupére le nom des onglets d'un autre classeur
pour en suite mettre le résultat dans une listbox. C'est là que ça plante et je sèche. Un pb de variable sur Cel

Private Sub CommandButton3_Click()
Dim i As Integer
Dim cel As Range
With Workbooks('M_ImportEtTriFichier.xls')
For i = 1 To .Sheets.Count
If .Worksheets(i).Name = ComboBox1.Value Then
Me.ListBox1.AddItem cel(2, 2).Offset(0, -1).Value
Me.ListBox1.Column(1, i) = cel(2, 2).Offset(0, 1).Value
Me.ListBox1.Column(2, i) = cel(2, 2).Offset(0, 2).Value
Me.ListBox1.Column(3, i) = Cel(2, 2).Offset(0, 3).Value * TextBox31.Value
i = i + 1
End If
Next i
End With
End Sub

Pouvez-vous m'aider.Merci

Tony.

 

[michel_m]

Bonjour,

Convertis textbox1.value en numérique avec les fonctions de conversion
Par exemple: Cint(textbox1;value)

A+
Michel_M

 

[Tony]

Re
Excuse moi, je ne comprends pas ce que tu veux que je convertis,peux-tu me donnée plus de détail.Mon niveau en VBA n'est pas très élevé.
merci
Tony

 

[michel_m]

Re,

la propriété value de textbox te renvoie du texte meme si tu as un nombre d'inscrit.

Il faut donc convertir cette donnée en numérique

Cint te transforme le texte 45 par exemple en nombre entier
Regarde dans l'aide VBA à la rubrique 'conversion'

A+
Michel_M

PS; il est intéressant pour avoir une réponse que tu puisse indiqué à quelle ligne ta macro plante.

 

[PascalXLD]

Bonjour

Excuse moi mais ton code est pas clair

En plus de l'erreur que te signale Michel

Tu ne feras qu'une feuille sur 2 puisque tu fais i=i+1 et que ton code fera lui aussi un next i

De plus il sort d'où ton cell(2,2) ??

Bon courage

 

[Tony]

Re
la macro plante sur
Me.ListBox1.AddItem cel(2, 2).Offset(0, -1).Value
je l'ai transformé en
Me.ListBox1.AddItem CInt(Cel(2, 2).Offset(0, -1).Value)
mais çà ne change pas.Ce sont des codes que j'ai recupéré un peu par tout et que j'esseye d'adapté,et là je suis perdu.Je ne peux malheureusement pas joindre les fichiers(58Ko)
Précition:je recupère dans une listbox les info d'un autre classeur
A+
Christian

 

[PascalXLD]

re

ton cel(2,2) ne veut strictement rien dire dans ta macro il est normal que ça plante

explique ce que tu veux faire

 

[Tony]

Re
Dans le classeur1, j'ai x onglets.
Dans un combobox1(Uf,Multipage) du classeur2 je recupère le nom des onglets du classeur1(çà s'a marche).En selectionnent le nom d'un des onglets ds le combobox1 je veux recupérer le contenu de cette feuille dans une listbox1(toutes les lignes sur 3 colonnes a partir de la cellule B2).

Cdlt

Christian