Bonjour

j'ai un soucis pour donner une valeur à une cellule.

le message d'erreur que je reçois est le suivant : Application-defined or object-defined error number 1004


la fonctions
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Function myIndice(myGrp) As Integer
 
On Error GoTo Indice_err
 
Dim TabGrp1 As Variant, TabGrp2 As Variant
Dim var1 As Integer, var2 As Integer
Dim MonClasseur As Workbook
Dim maFeuille As Worksheet
 
Set MonClasseur = ActiveWorkbook
Set maFeuille = MonClasseur.ActiveSheet
 
TabGrp1 = Array(1728, 2447, 2358)
TabGrp2 = Array(825, 1035, 1357)
 
var1 = IIf(ActiveSheet.Range("E1") <> Null, ActiveSheet.Range("E1"), 0)
var2 = IIf(ActiveSheet.Range("E2") <> Null, ActiveSheet.Range("E2"), 0)
 
 
If myGrp = "I" Then
    If UBound(TabGrp1) = var1 Then
       Cells(1, 5).Value = 0
    Else
        Cells(1, 5).Value = var1 + 1
    End If
    myIndice = TabGrp1(var1)
Else
    If UBound(TabGrp2) = var2 Then
        Cells(1, 5).Value = 0
    Else
        Cells(1, 5).Value = var2 + 1
    End If
    myIndice = TabGrp2(var2)
End If
 
 
Indice_err:
    MsgBox ("Erreur : " & Err.Description & " number : " & Err.Number)
End Function
Merci