Discussion :

[MasterChief78]

Bonjour tout le monde,
Alors j'ai une erreur que je comprends pas du tout :
J'ai un tableau de référence, je boucle pour chacune de référence, je filtre une feuille excel et fais la somme d'une des colonnes pour obtenir le total.
Jusque là tout vas bien, mais il se trouve que pour une des valeurs du tableau, le fait d'appeler : Application.WorksheetsFunction.Sum ou même .Count fait planté le script.
J'ai essayer de mettre cette valeur au début, au milieu, a la fin du tableau rien ne change...
Voici le code si ça peut aider :

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
or cptCondi = 1 To nbCondi Step 1
 
    MsgBox tabCondi(cptCondi)
 
    'AutoFilter FN3 correspondant
    lignesSheet.AutoFilter
    lignesSheet.AutoFilter Field:=20, Criteria1:="=" & tabCondi(cptCondi)
    'MsgBox tabCondi(cptCondi)
    'Somme de toutes les lignes sur l'année
    'somme = WorksheetFunction.Sum(lignesSheet.CurrentRegion.Columns(28).SpecialCells(xlCellTypeVisible))
 
    MsgBox "TEST"
    MsgBox Application.WorksheetFunction.Sum(lignesSheet.CurrentRegion.Columns(28).SpecialCells(xlCellTypeVisible))
 
'Condi suivant
Next cptCondi

[mercatog]

bonsoir,
ton code n'est pas tronqué?
fais une gestion d'erreur type:

Code :

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

1
2
3
4
5
6
7
8
On Error GoTo Errorcatch
 
ton code
 
exit sub
 
Errorcatch:
MsgBox Err.Description

et reporte ce que donne

[MasterChief78]

ça m'affiche rien, ça me saute l'étape c'est tout, et ça m'en saute qui marchait...
>< merci pour votre aide, je craque !

[aalex_38]

Bonjour,

Il faut toujours gérer les erreurs avec specialcells, car si la condition n'existe pas tu as forcément une erreur.

Vérifie ce que tu obtiens, et si c'est possible ignore les erreurs avant la fonction :

Code :

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

1
2
3
on error resume next
'ta fonction
on error goto 0