Discussion :

[logue_in]

Bonjour,

J'ai 12 colonnes et je cherche à remplir la premiere ligne de chaque colonne avec la somme de production des lignes en dessous

6 8 10 ...

1 4 5 ...
2 0 2 ...
3 4 3 ...

Voici mon code:

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 TOTAL()
 
Dim i As Integer
Dim j As Integer
Dim prod As Double
 
 
For i = 1 To 2000 Step 1
 
 
   If Range("C" & i) = "Puissance" Then
 
 For j = 1 To 12 Step 1
 
     prod = Cells(i , j).Value + prod
 
  End If
 
Next i
 
   Next j
 
 Cells(1, j).Value = prod
 
End Sub

Rien n'y fait je perds la boule... quelqu'un pourrait m'éclairer SVP?

[geogeo70]

Pourquoi vba ?

Si on fait la somme d'une colonne... La fonction somme d'excel fait le travail et il suffit de la recopier à gauche sur les 12 colonnes :


Cordialement
geogeo

[mercatog]

La fonction d'excel SOMME.SI ne te convient pas?

[logue_in]

Le but est d'utiliser une boucle for imbriqué ou quelquechose du genre...

[Philippe Tulliez]

Bonjour,

Le but est d'utiliser une boucle for imbriqué ou quelquechose du genre...

Pour y voir plus clair dans ton code, je te suggère de mieux nommer tes variables. J & I prêtent à confusion.
Pour les colonnes et les lignes, j'utilise Row et Column ou R & C mais si tu préfères le français Ligne, Colonne ou L et C. Lors de la relecture de ton code et pendant la maintenance c'est beaucoup plus simple pour s'y retrouver.

De plus, ce n'est pas une bonne idée de typer comme Integer une variable qui représente des lignes. Il y a plus de 32 767 lignes dans une feuille excel

Voici un petit exemple où le résultat de la somme des colonnes B à G (sans conditions) est écrit en colonne A de chaque ligne (Attention la procédure écrit dans la feuille active)
La procédure boucle de la ligne 2 à 6 et la boucle des colonnes de 1 à 6 mais comme il y addition de 1 il s'agit bien des colonnes 2 à 7 (B:G)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t()
 Dim C As Integer, R As Long
 Dim Sum As Double
 For R = 2 To 6
  For C = 1 To 6
    Sum = Sum & Cells(R, 1 + C).Value
  Next C
  Cells(R, 1).Value = Sum: Sum = 0
 Next R
End Sub

[logue_in]

je viens de réussir avant de voir ta réponse. Mon problème était que je commençais par le For i= alors qu'il fallait que je commence par le For j= ...

Mais merci beaucoup Philippe pour ce code, en effet c'est beaucoup plus clair...

[Philippe Tulliez]

Bonjour,

e viens de réussir avant de voir ta réponse. Mon problème était que je commençais par le For i= alors qu'il fallait que je commence par le For j= ...

Ton problème était bien plus grave que cela et je doute même que tel que tu l'as affiché il ne t'ai pas renvoyé une erreur "End If sans bloc If" et il n'y avait pas que cela