Remplir une cellule en VBA

Version imprimable

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:

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

10/03/2016, 21h09
clementmarcotte
Bonjour,

Je te dirais de désactiver ta gestion d'erreur. Ensuite le programme devrait s'arrêter pile sur la bonne ligne. En sachant quelle ligne plante exactement, ce devrait être plus facile de t'aider.

Ceci dit, en regardant de nouveau ton code, je ne suis pas sûr que l'on puisse utiliser Null de cette façon dans ces deux lignes:
Code:

1 2 var1 = IIf(ActiveSheet.Range("E1") <> Null, ActiveSheet.Range("E1"), 0) var2 = IIf(ActiveSheet.Range("E2") <> Null, ActiveSheet.Range("E2"), 0)
Tu pourrais essayer de cette façon:
Code:

1 2 var1 = IIf(ActiveSheet.Range("E1") <> "", ActiveSheet.Range("E1"), 0) var2 = IIf(ActiveSheet.Range("E2") <> "", ActiveSheet.Range("E2"), 0)
11/03/2016, 12h20
DMboup

Merci de la réponse.

La gestion des erreurs c'est juste pour savoir le type d'erreur qui survient afin de faire des recherches.

la ligne qui pose probléme c'est

Code:

Cells(1, 5).Value = var1 + 1

et même en mettant

Code:

Range("E1").Value=var1+1

j'ai la même erreur.