Erreur mismatch

[Zorei]

Bonjour je me bats depuis longtemps pour cette erreur 13 erreur type mismatch

voila la code:

Sub Calculmoy()

For i = 0 To 29
Worksheets("data").Cells(236, 6 + i) = (Worksheets("data").Cells(233, 6 + 4 * i) - Worksheets("data").Cells(233, 8 + 4 * i)) / 2Worksheets("data").Cells(237, 6 + i) = (Worksheets("data").Cells(233, 7 + 4 * i) - Worksheets("data").Cells(233, 9 + 4 * i)) / 2
Next i

End Sub

Merci de votre aide.

L'erreur me ramène à la ligne rouge.

 

[RENAUDER]

Re : Erreur mismatch

Bonjour,
C'est quoi le rouge et le gris à la suite ?
Tu es sur que ta feuille s'appelle bine data ?

 

[Gael]

Re : Erreur mismatch

Bonsoir Zorei, bonsoir Renauder, bonsoir à tous,

Es-tu sûr que toutes les données de la feuille data sont bien des données numériques et que les cellules ne sont pas au format texte? Cette erreur survient lorsque tu veux faire des calculs sur du texte par exemple.

Peux-tu envoyer un exemple, ce sera plus simple pour t'aider?

@+

Gael

 

[hbenalia]

Re : Erreur mismatch

Bonjour à tous,

C'est vrai que le calcul sur des cellules contenant du texte (même un simple espace) donnerait des erreurs de ce type... Corrigez le contenu de ces cellules concernées (mettre 0 ou tout simplement vider complètement ces cellules ou ajouter à votre code la condition sur le contenu texte...)

Bonsoir Zorei, bonsoir Renauder, bonsoir à tous,

Es-tu sûr que toutes les données de la feuille data sont bien des données numériques et que les cellules ne sont pas au format texte? Cette erreur survient lorsque tu veux faire des calculs sur du texte par exemple.

Peux-tu envoyer un exemple, ce sera plus simple pour t'aider?

@+

Gael

 

[Zorei]

Re : Erreur mismatch

Merci à tous pour vos réponse mais le problème était que ma formule average prenait en compte des cellules vide donc je divisais par 0

merci bonne journée