Double Incrémentation 1 sur les lignes 1 sur les colonnes
Bonjour à tous,
j'ai plusieurs feuilles sur mon fichier excel avec un certain nombre de valeurs comprises dans x colonnes et y lignes.
J'ai une feuille synthèse dans laquelle je veux récupérer et ajouter toutes ces données.
Voici un exemple raccourci où j'ai incrémenté mes lignes :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Dim a As String
a = "WFL"
Dim b As String
b = "WCA"
Dim c As String
c = "WTA"
For i = 0 To 23
Sheets("Synthèse").Range("E31").Offset(0, i).Value = Sheets(a).Range("E31").Offset(0, i).Value + Sheets(b).Range("E31").Offset(0, i).Value + Sheets(c).Range("E31").Offset(0, i).Value
Sheets("Synthèse").Range("E32").Offset(0, i).Value = Sheets(a).Range("E32").Offset(0, i).Value + Sheets(b).Range("E32").Offset(0, i).Value + Sheets(c).Range("E32").Offset(0, i).Value
Sheets("Synthèse").Range("E33").Offset(0, i).Value = Sheets(a).Range("E33").Offset(0, i).Value + Sheets(b).Range("E33").Offset(0, i).Value + Sheets(c).Range("E33").Offset(0, i).Value
Next i |
Comme vous le voyez je passe d'une ligne à une autre j'aimerais pouvoir incrémenter mes lignes avec l'aide d'un For j = 0 to etc... pour m'éviter d'avoir 200 lignes de codes à la suite mais je ne vois pas comment incrémenter doublement une cellule
Merci à tous d'avance
