Bonjour,

Dans mon sheet "zatox" je cherche à faire la soustraction suivante et pour chaque ligne non vide via un tableau pour éviter un temps de traitement trop long:

C1 - D1 = résultat en F1
C2 - D2 = résultat en F2
etc..

Cependant, j'ai une erreur sur la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Tableau(6, z) = Tableau(3, z) - Tableau(4, z)
Excel me dit « Erreur d'exécution 9 : L'indice n'appartient pas à la selection».

Je pense qu'il me manque le référencement des cellules pour la soustraction mais je ne sais pas comment le faire...

Si quelqu'un peut m'aider svp, merci !

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
 
Sub tab_sous()
 
Dim Tableau()
Dim z As Integer
Dim dernligne As Integer
 
Worksheets("zatox").Range("F2").Activate
With Workbooks("v1.xlsm").Worksheets("zatox")
    dernligne = .Cells(.Rows.Count, 1).End(xlUp).Row
 
ReDim Preserve Tableau(1 To 1, 1 To dernligne)
 
For z = 2 To dernligne
    Tableau(6, z) = Tableau(3, z) - Tableau(4, z)
Next z
 
End With
 
'collage du tableau
Workbooks("v1.xlsm").Worksheets("zatox").Range("F2").Select
Set colltab = ActiveCell.Range(Cells(1, 1), Cells(UBound(Tableau, 1)))
colltab = Application.WorksheetFunction.Transpose(Tableau)
 
End Sub