Discussion :

[MatMout]

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 :

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

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

[MatMout]

C'est bon j'ai trouvé en même temps c'était simple mais je cherchais compliqué comme souvent...