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 :
Code:
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
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)
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,