Objet requis avec Variable type

Bonjour à tous,

Je tourne en rond depuis ce matin sur une erreur sans trouver de solution, je me remet donc à vous.

J'ai un module dans lequel je déclare des variables globales et une variable type.
Code:

1 2 3 4 5 6 Global tableau() Type Col_tab artdes As Integer artdesabr As Integer artDesCou As Integer End Type
Puis dans une macro, j'ai le code suivant...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public Sub Recopie() Sheets("Donnees").Activate NbRef = Range("A" & Rows.Count).End(xlUp).Row With ActiveSheet.Range("LISTE").CurrentRegion ReDim tableau(NbRef, .Columns.Count) tableau = .Value End With For i = 1 To 43 Select Case (tableau(2, i)) Case "art.des" Col_tab.artdes = i Case Else MsgBox "lala" End Select Next i End Sub
Lorsque qu'arrive sur la ligne Col_tab.artdes = i, j'ai une erreur "Erreur d’exécution 424, Objet requis."

Avez-vous une explication à me donner?

Je vous remercie pour votre aide

Bonjour,

Col_Tab est un type personnalisé de variable .. il te faut aussi déclarer une variable de ce type ..
Code:

1 2 3 4 5 6 Dim mCol_Tab as Col_Tab (..) mCol_tab.artdes = i (..)

regard ça et dis moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Recopie()
    tableau() = Sheets("Donnees").Range("LISTE").CurrentRegion.Value
    For i = 1 To 43
        Select Case (tableau(2, i))
          Case "art.des"
          Col_tab.artdes = i
          Case Else
            MsgBox "lala"
 
     End Select
    Next i
End Sub

Merci pour ta réponse rapide.