Macro qui ne fonctionne pas totalement

jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un petit souci avec cette macro ,pouvez-vous svp me dire ce qui cloche
Sub SumEOH()
Set Ws = Sheets("Feuil1")
Ws.Range("B1").Value = WorksheetFunction.Sum(Range("A1"), -Range("C1"))

Set Ws = Sheets("Feuil1")
Ws.Range("C1").Value = WorksheetFunction.Sum(Range("A1"), -Range("B1"))

End Sub

EDIT : Ajout des balises de code

Cordialement

A voir également:

2 réponses

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Cette macro (à une petite modification inutile prés ... ) fonctionne très bien
Sub test()
Set Ws = Sheets("Feuil1")
Ws.Range("B1").Value = WorksheetFunction.Sum(Ws.Range("A1"), -Ws.Range("C1"))
Ws.Range("C1").Value = WorksheetFunction.Sum(Ws.Range("A1"), -Ws.Range("B1"))

End Sub

Quel est ton problème exactement ??
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous les deux

Je simplifierai même un peu plus
Sub test()
Set Ws = Sheets("Feuil1")
Ws.Range("B1").Value = Ws.Range("A1") - Ws.Range("C1")
Ws.Range("C1").Value = Ws.Range("A1") - Ws.Range("B1")
End Sub

mais je crois que ça ne répond pas exactement à
cette demande

Cdlmnt
0