Macro qui ne fonctionne pas totalement
jc80
Messages postés
5063
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
J'ai un petit souci avec cette macro ,pouvez-vous svp me dire ce qui cloche
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
Cordialement2 réponses
-
Bonjour,
Cette macro (à une petite modification inutile prés ... ) fonctionne très bienSub 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 ??
-
Bonjour à tous les deux
Je simplifierai même un peu plusSub 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
