Macro qui ne fonctionne pas totalement Fermé

Question

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

Configuration: Windows / Firefox 53.0

jordane45 · Answer

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 ??

ccm81 · Answer

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

Macro qui ne fonctionne pas totalement

EDIT : Ajout des balises de code

2 réponses

Discussions similaires