Erreur 13 incompatibilité de type VBA excel

Résolu/Fermé
monalisach - 1 mars 2013 à 17:54
 monalisach - 4 mars 2013 à 09:56
Bonjour,
voici un code qui génére l'erreur 13 incompatibilité de type
Private Sub CommandButton1_Click()
Dim b As Integer
Dim somme() As Double
ReDim somme(1 To 300)
For b = 1 To 300
somme(b) = somme(b) + ThisWorkbook.Worksheets(Feuil1).Cells(b, 10)
If Cells(b + 1, 2) = ThisWorkbook.Worksheets(Feuil1).Cells(b, 5) Then
somme(b + 1) = somme(b + 1) + ThisWorkbook.Worksheets(Feuil1).Cells(b + 1, 10)
End If
ThisWorkbook.Worksheets(Feuil1).Cells(b + 1, 15) = somme(b)
Next b
End Sub

merci de votre aide.


2 réponses

f894009
Messages postés
16606
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
2 juillet 2022
1 647
1 mars 2013 à 18:19
Bonjour,

Le nom de la feuille excel doit etre entre double cotes: ex--->"Feuil1"

Bonne suite
1
Bonjour,
Merci de votre aide .
COrdialement.
0