vide conditionnel => plantage macro

[vincent]

Bonjour,

en colonne A, lignes 1 à 13, j'ai les formules suivantes :
=SI(B1<>'';15;'')
...
=SI(B13<>'';15;'')
en colonne b j'ai des cellules vides et d'autres pleines.
la macro suivante :

Sub Macro1()
somme = 0
For i = 1 To 13
somme = somme + ActiveSheet.Cells(i, 1).Value
Next i
ActiveSheet.Cells(14, 1).Value = somme
End Sub

ne plante que si et seulement si il y a une case vide dans la colonne b.
peut-être faudrait il remplacer les formules en a1:a13 par
=SI(B1<>'';15;VIDE), ou qqc du genre...
merci d'avance,
vincent

 

[PascalXLD]

Bonjour

Une petite modif

Sub Macro1()
Dim somme As Integer
Dim i As Byte
somme = 0
For i = 1 To 13
If IsNumeric(ActiveSheet.Cells(i, 1).Value) Then somme = somme + ActiveSheet.Cells(i, 1).Value
Next i
ActiveSheet.Cells(14, 1).Value = somme
End Sub

Je suppose que ta macro sert à autre chose que de faire la somme car sinon il te suffit en A14 d'avoir
=SOMME(A1:A13)


Bon courage

Message édité par: Pascal76, à: 06/09/2005 10:21

 

[vincent]

Je suppose que ta macro sert à autre chose que de faire la somme car sinon il te suffit en A14
d'avoir
=SOMME(A1:A13)

Bien vu!!!
ce qui est bizarre c'est que si la cellule est vide, la somme ne pose pas problème. si elle contient une formule qui renvoie '', la somme plante.
s'il existait un mot clé qui signifiait VIDE, ce ne serait pas ''.
Ta solution me convient parfaitement. Si qqn connait un mot clé VIDE, je suis preneur (étoffons notre culture)
merci beaucoup,

vincent