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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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