Macro qui ne fonctionne pas totalement

Fermé

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - Modifié le 20 mai 2017 à 18:45
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 20 mai 2017 à 21:16

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:

Macro qui ne fonctionne pas totalement
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Tri automatique excel sans macro ✓ - Forum Excel

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
20 mai 2017 à 18:49

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

Réponse 2 / 2

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié le 20 mai 2017 à 21:18

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Impossible d'exécuter les macros

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

EDIT : Ajout des balises de code

Discussions similaires

Newsletters