Discussion :

[Stromber]

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

[SfJ5Rpw8]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Stromber]

Merci pour ta réponse rapide.