Dim w as Worksheets

[Toutou]

Bonsoir à tous,
voici mon souci:

j'ai différentes informations dans un USF incluses dans des combobox, des textbox et un ListBox;
je voudrais ensuites insérer ces données dans une feuille excel qui dépend du contenu des textbox.
Plus clairement: selon le listindex du listbox, il faudrait que les infos s'insèrent dans telle ou telle feuille...
mais j'ai un problème de déclaration de variable.
Voici en exemple une partie de mon code:

Dim w As Worksheet
Dim Li As Long
private sub listbox1()
...
ElseIf ComboBox1.ListIndex = 4 Then

w = Worksheets('Hydraulique')

End If

Li = LB1.ListIndex + 4
ref.Text = w.Cells(Li, 2).Value
nombre.Text = w.Cells(Li, 3).Value
End Sub




Private Sub CommandButton4_Click()

With w
Li = LB1.ListIndex + 4
.Cells(Li, 2) = ref.Text
.Cells(Li, 3) = nombre.Text
End With

le problème vient du w=Worksheet('Hydraulique') je pense, mais je ne sais absolument pas coment le résoudre.
NB: toutes les feuilles appartiennent au meme classeur.
Pourriez vous m'aider, d'avnace merci.
@ +
toutou

 

[PascalXLD]

Bonjour

essaies avec

set w = Worksheets('Hydraulique')

car là c'est un objet

Bon courage

 

[Toutou]

Bonjour Pascal,
merci , ça marche,
mais pourrais-tu m'expliquer quand utiliser 'Set' et quand ce n'est pas la peine STP?
A quoi cela sert-Il?
Merci,
bonne journée
@ +
Toutou

 

[PascalXLD]

Bonjour

Comme le montre l'aide il faut

Utiliser l'instruction Set pour affecter une variable objet à un objet

Quand tu as des variables de type string byte integer boolean pas besoin de set mais quand il s'agit de variables objet de type worksheet workbook etc il faut l'affecter par set

Bon courage

 

[Toutou]

Ok,
merci bien,
excuse moi de t'avoir dérangé, a l'avenir je penserai a consulter l'aide, ce n'est pas encore un reflexe.
bonne après midi,
@ la prochaine,
Toutou