Erreur 1004 avec variable tableau

Version imprimable

Bonjour,
Je réalise une macro qui crée une liste de destinataire en fonction du service selectionné (pour envoi mail lotus notes). Les mails sont entrés sans des cellules d'une feuille excel nommée Personne.
J'ai donc crée ce code où je souhaite mettre les adresse mails dans ma variable tableau Dest(). Au moment de l'exécution j'ai un bug : erreur 1004.

Avez vous une idée? Ai je fais une erreur?
Merci d'avance
Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Option Explicit
Public LAOMax, LAOMin As Long
Public Nom_Fichier, NomRep, Chemin, DossierParent, Demandeur, Service As String
Dim LCP As Boolean
Dim Dest() As Variant
Public Sub Destinataires()
Dim i, j  As Byte
 
Service = Sheets("Formulaire").Range("C4").Value
 
'Procédure permettant de créer la liste de destinataire des mails
With Worksheets("Personne")
 
Select Case Service
    Case "R&D"
        i = .Range("j7").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(7, 10), Cells(7, i)).Value
    Case "Logistique"
        i = .Range("j3").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(3, 10), Cells(3, i)).Value
 
    Case "Production"
        i = .Range("j5").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(5, 10), Cells(5, i)).Value
 
    Case "STEP"
        i = .Range("j9").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(9, 10), Cells(9, i)).Value
 
End Select
 
End With
 
End Sub

3 remarques

Déclaration de ton tableau Dest
Affectation de ton tableau
Oubli du point de cells au sein de Range

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Dest As Variant
Public Sub Destinataires()
Dim i As Integer, j As Integer
 
Service = Sheets("Formulaire").Range("C4").Value
'Procédure permettant de créer la liste de destinataire des mails
With Worksheets("Personne")
    Select Case Service
        Case "R&D"
            i = .Range("J7").End(xlToRight).Column
            Dest = .Range(.Cells(7, 10), .Cells(7, i)).Value
        Case "Logistique"
            i = .Range("J3").End(xlToRight).Column
            Dest = .Range(.Cells(3, 10), .Cells(3, i)).Value
        Case "Production"
            i = .Range("J5").End(xlToRight).Column
            Dest = .Range(.Cells(5, 10), .Cells(5, i)).Value
 
        Case "STEP"
            i = .Range("J9").End(xlToRight).Column
            Dest = .Range(.Cells(9, 10), .Cells(9, i)).Value
    End Select
End With
End Sub

29/03/2012, 14h34
amelyfred

Merci mercatog de t'être penché aussi rapidement sur ma question.
Ca fonctionne nickel