Discussion :

[solipop]

Bonjour,
je dois faire la somme de plusieurs cellules, toutes séparées entre elles de 6colonnes (la première cellule à sommer est en colonne H soit 8 en Vba) Cette somme doit être la valeur de la cellule B6. Voilà ce que j'ai déjà réalisé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub somme()
 
Dim J As Integer 'j colonne
Dim s As Integer 'la somme
J = 8
s = 0
 
    For J = 8 To 2114 Step 6
        s = s + Cells(6, J)
    Next J
 
    Cells(6, 2).Value = s
 
End Sub

Petit problème : il y a une incompatibilité de type et je ne sais pas ce que ca veut dire.

[ProgElecT]

Salut
Peut être

Code :

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

Dim s As Long

[Qwazerty]

Salut
Voir même

Code :

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

Dim s as single

Si tu as des nombres à virgules.
Si ton problème n'est pas résolu, dis nous ce que contiennent tes cellules et sur quelle ligne l'erreur survient.

Pour info

Code :

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

1
2
J = 8
s = 0

Ces 2 lignes sont inutiles, toutes les variables sont initialisées à 0 lors de leur création et la boucle For commence à sa 1ère borne, ici à 8.

++
Qwaz

[mercatog]

Bonsoir à tous
Une proposition en utilisant les fonctions d'excel (soit directement, soit par traduction en vba)

Par formule en B2

Code :

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

=SOMMEPROD((MOD(LIGNE(H8:H21140);6)=2)*(H8:H2114))

Ou par code

Code :

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

1
2
3
4
Sub MonTest()
 
Sheets("Feuil1").Range("B2") = Evaluate("SUMPRODUCT((MOD(ROW(H8:H2114),6)=2)*(H8:H2114))")
End Sub

[solipop]

Merci à vous pour toutes ces précieuses informations !

Que ce soit single ou double, cela ne fonctionne pas cela marque toujours qu'il y a une incompatibilité de type...
Voilà les quelques valeurs dont il faut calculer la somme : 790,0 716,0 486,0 631,0
Mais il faut savoir que mon calcul doit se faire automatiquement si on insère des colonnes !

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
Private Sub Commandbutton6_Click()
    somme
End Sub
 
Sub somme()
Dim J As Integer 'j colonnes
Dim s As Double 'la somme
 
    For J = 8 To 10000 Step 5 'cest bien séparé de 5colonnes !
        s = s + Cells(6, J)
    Next J
 
Cells(6, 2).Value = s
 
End Sub

Mercatog j'ai essayé tes formules, mais cela ne semble pas correspondre à ce que je cherche ! Dommage, parce que s'il y avait une possibilité de calcul sous excel cela m'aurait évité bien des prises de tête !
Je te remercie malgré tout pour ton aide.

[Qwazerty]

Salut
Ha ben oui, c'est a cause de la virgule, tu trouveras plein de sujets à ce propos, en faite le format numérique fait que le séparateur décimal des fois c'est un point, des fois une virgule... ça dépend du pc et de la version linguistique d'excel. Tu trouveras des réponses sur le forum.
++
Qwaz