Bonjour bill751
Ceci a placer dans un module, le code pourrait être plus propre, il y a une gestion d'erreur de saisie:
Sub sommeD5()
Dim D5F1 As Double, D5F2 As Double, D5F3 As Double
Dim D5F4 As Double, D5F5 As Double
Dim LaSomme As Double
' pour gérer l'erreur de saisie
Err = 0
On Error Resume Next
D5F1 = Sheets("f1" ).Range("D5" )
D5F2 = Sheets("f2" ).Range("D5" )
D5F3 = Sheets("f3" ).Range("D5" )
D5F4 = Sheets("f4" ).Range("D5" )
D5F5 = Sheets("f5" ).Range("D5" )
Debug.Print Err
' test si toutes les valeurs sont numériques
If Err = 0 Then
LaSomme = D5F1 + D5F2 + D5F3 + D5F4 + D5F5
If LaSomme <> 0 Then
Sheets("f5" ).Range("D5" ) = LaSomme
Else
D5F5 = ""
End If
Else
MsgBox ("Attention une valeur, au moins, n'est pas numérique ! " )
End If
End Sub
Cordialement Pifa
Message édité par pifa le 25-12-2005 à 08:32:14