pb d'incompatibilité de type dans une macro "somme"

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:

---

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.

Salut
Peut être

Code:

---

Dim s As Long

---

Salut
Voir même

Code:

---

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:

---

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

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

Par formule en B2

Code:

---

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

---

Ou par code

Code:

---

1 2 3 4

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

---

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:

---

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.

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...:aie: ça dépend du pc et de la version linguistique d'excel. Tu trouveras des réponses sur le forum.
++
Qwaz

Bonjour
j'avais proposé sur la colonne H, tu aurais adapté sur la ligne 8

Code:

---

=SOMMEPROD((MOD(COLONNE(H8:CCH8);6)=2)*(H8:CCH8))

---

Cela donnera la somme de H8+N8+T8....CCH8
Les données doivent être du numérique