Ajout de somme en fonction des dates

Résolu/Fermé
joda - 25 avril 2012 à 10:16
ccm81 Messages postés 10863 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 12 juin 2024 - 25 avril 2012 à 21:16
Bonjour,

je voudrais savoir s'il est possible d'ajouter automatiquement une somme dans une cellule qui contient déjà une somme cela en fonction de dates.

exemple D2 la somme excitante en A2 la date qui s'actualise tous les jours
comment ajouter exemple : 50 euros à chaque 1° du mois automatiquement
Merci de votre aide
Crdlt


A voir également:

6 réponses

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153
25 avril 2012 à 10:44
bonjour,

Dsl mais je ne comprend pas du tout ce que tu veux ^^ pourrais-tu être plus précis ???

Cordialement,
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
25 avril 2012 à 14:23
Bonjour Joda, el_jojo

à installer dans le module feuille concernée
Private Sub Worksheet_Activate()
If Day(Range("A2")) = 1 Then Range("D2") = Range("D2") + 50
End Sub
0
Linukcs Messages postés 79 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 10 octobre 2012 14
25 avril 2012 à 14:28
Re,

Votre script possède un problème élémentaire...
En effet, il s'active à chaque ouverture . Si jamais il est ouvert plus d'une fois, l'augmentation prendra effet autant de fois !
0
Bonjour Michel_m

j'ai fait un essai et cela ne fonctionne pas
merci quand même
CRdlt
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
25 avril 2012 à 15:11
re Joda

en tenant compte de la remarque + haut
mettre une cellule (ici F2 mais... à ton choix)
Private Sub Worksheet_Activate()
If Range("F2") <> Range("A2") And Day(Range("A2")) = 1 Then
     Range("D2") = Range("D2") + 50
     Range("F2") = Range("A2")
End If


j'ai testé ça marche
pour installer:
tu fais un copier de la macro après avoir choisi ta cellule tampon
clic droit sur le nom de l'onglet
visualiser le code
copier
End Sub
0
re Michel_m

Si j'ai bien compris la cellule F2 correspond à la date d'aujourd'hui et qui ne doit plus bouger.

En D2 ma somme et en A2 la date au format (maintenant)

Merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
25 avril 2012 à 17:08
Non la date F2 va se mettre au 1° du mois
0
re bonjour Michel_m

Ok merci pour ta réponse

Cordialement
0

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

Posez votre question
ccm81 Messages postés 10863 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 12 juin 2024 2 410
25 avril 2012 à 21:16
bonjour à tous

j'ai un peu modifié la solution de michel (salutations) pour éviter une cellule supplémentaire (et activé la macro à l'ouverture du classeur)

Const celDate = "A2"
Const celTotal = "D2"
Const supp = 50     ' somme à ajouter
Const nuJour = 25   ' quantième qui va activer l'ajout de supp (mettre 1)

Sub MAJ2()
Dim d As Date
  d = Range(celDate).Value
  If d = Date Then Exit Sub
  Range(celDate).Value = Date
  If Day(Range(celDate).Value) = nuJour Then
    Range(celTotal) = Range(celTotal) + supp
  End If
End Sub

Private Sub Workbook_Open()
  Call MAJ2
End Sub

bonne soirée
0
Linukcs Messages postés 79 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 10 octobre 2012 14
25 avril 2012 à 11:18
Bonjour,

Moi au contraire, j'ai parfaitement compris.

Voici la configuration qu'il te faut :
A2 : Date de démarrage au format jj/mm/aaaa (peut ne pas être le 1er du mois)
B2 : Insérer "=AUJOURDHUI()"
C2 : Insérer "=(ANNEE(B2) - ANNEE(A2))*12+MOIS(B2)-MOIS(A2)"


Comprenons le fonctionnement.

A2 et B2 sont des valeurs numériques représentant chacune une date. La fonction ANNEE sert à récupérer le numéro de l'année. La fonction MOIS sert à récupérer le numéro du mois. La formule magique pour avoir un multiple supplémentaire chaque 1er du mois est donc : (Année courante - Année de Base) X 12 + Mois courant - Mois de base.

Exemple :

Date de base : 1er Janvier 2010
Date d'aujourd'hui : 25 Avril 2012
Nombre de mois : (2012 - 2010) x 12 + 4 - 1 = 24 mois + 3 mois = 27 mois écoulés.

Maintenant que nous avons le nombre de mois, il suffit d'ajouter d'autres cases :
A3 : Somme de base
B3 : Somme à ajouter chaque mois
C3 : Insérer "=A3 + (B3 * C2) "


Vous avez en A3 votre premier montant, en B3 le montant à ajouter chaque mois et en C3 la somme du montant de base plus la somme ajoutée chaque mois depuis la date de base.

Exemple :

Somme de base : 2500
Somme à ajouter chaque mois : 100
Total = 2500 + 100 X 27 = 2500 + 2700 = 5200

Bonne chance !

Note : Pour connaitre la somme ajouter il suffit d'isoler dans une case la valeur :

"=B3*C2".
-2
bonjour

Mon problème est qu'à partir du 1° mai je souhaiterais que la cellule D2 augmente automatiquement de exemple 50 euros et ce tous les mois.La date étant en cellule A2
au format aujourd'hui
Merci pour votre aide
crdlt
0
Linukcs Messages postés 79 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 10 octobre 2012 14
25 avril 2012 à 14:30
@joda,

Dans tous les cas, il vous faut une date de base si vous le faites en Excel. Si besoin, ce sera la date d'aujourd'hui (mais rentrée en dur), pour que la prochaine connexion fasse automatiquement les ajouts nécessaires.

Tenez-moi au courant ! :)
0