Effectuer une soustraction avec une macro

Résolu/Fermé

jmtv Messages postés 9 Date d'inscription vendredi 17 janvier 2014 Statut Membre Dernière intervention 27 janvier 2014 - 24 janv. 2014 à 22:02
jmtv Messages postés 9 Date d'inscription vendredi 17 janvier 2014 Statut Membre Dernière intervention 27 janvier 2014 - 26 janv. 2014 à 15:24

Bonjour,

je suis présentement en train de créer un système de gestion. Voici mon objectif.

Je veux que chaque fois que je soumet (imprime) une facture, les produits soits déduit de l'inventaire sur une autre feuille.

Je n'arrive pas à trouver la macro nécessaire qui me permettrait

de faire = A1-A2 sans que A1 revienne au montant initial en modifiant A2.

J'ai cette formule que j'utilise pour la pagination des factures. J'aimerais obtenir le même résultat mais au lieu de +1 j'aurais -"A1" et il semble que ce n'est pas aussi facile que de simplement changer le 1 pour A1... pouvez vous m'aider?

Range("E3").Select
num = Range("E3").Value
num = num + 1
Range("E3").Value = num

A voir également:

Soustraction vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Soustraction sql - Forum Programmation
Vba récupérer valeur cellule ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
26 janv. 2014 à 08:08

Bonjour jmtv,

Je te confirme que la macro fonctionne correctement.
Si tu inscrit 100 en E3 et 5 en E2, à chaque clic sur le bouton la valeur de E3 sera décrémenté de 5 :
100...95...90... etc.

Private Sub CommandButton1_Click()
    Range("E3") = Range("E3") - Range("E2")
End Sub

A+

Réponse 2 / 5

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
25 janv. 2014 à 16:44

Bonjour,

Les instructions que tu utilises pour la pagination des factures peuvent se résumer avec

Range("E3") = Range("E3") + 1

De même, pour soustraire à A1 la valeur de A2

Range("A1") = Range("A1") - Range("A2")

A+

Réponse 3 / 5

jmtv Messages postés 9 Date d'inscription vendredi 17 janvier 2014 Statut Membre Dernière intervention 27 janvier 2014
26 janv. 2014 à 03:04

Merci beaucoup je vais essayer ceci immédiatement!

Réponse 4 / 5

jmtv Messages postés 9 Date d'inscription vendredi 17 janvier 2014 Statut Membre Dernière intervention 27 janvier 2014
26 janv. 2014 à 03:14

Bonjour Gyrus,

votre macro ne fonctionne pas...

quand j'utilise

Range("E3").Select
num = Range("E3").Value
num = num + 1
Range("E3").Value = num

c'est avec un bouton. Et mon but est que au lieu de faire +1 chaque fois que je clique (ce qui est la formule ci-dessus), c'est que le montant soit -(moins) le nombre X indiqué dans une cellule déterminé disons E2.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

jmtv Messages postés 9 Date d'inscription vendredi 17 janvier 2014 Statut Membre Dernière intervention 27 janvier 2014
26 janv. 2014 à 15:24

Et bien il faut comprendre que je suis un novice en la matière haha! Merci beaucoup Gyrus, la commande fonctionne effectivement!

Merci encore

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters