Simplification du code et évolution

Bonjour a tous,

Quand je clique sur le bonton je mets à jour le tableau dans l'onglet Tb en fonction d'un mois donné comment ça marche '->

Présentation des onglets:

Nous avons dans l'onglet DATA 5 colonnes
Col Fin α = dans de fin projet
Col Statut = statut du projet l'utilité est ne pas prendre compte les projets Abandonnée dans calcul des montants en col montant A et montant B
Col Prochain Jalon = pour savoir si les projets sont "NON Démarré" , EN "ETUDE" ou REALISE
Col montant A = Montant en OPEX
Col montant B = Montant en CAPEX

Nous avons l'onglet les régles de calcul
il me sert pour caluler le nombre de jours entre deux dates ensuite utiliser dans les variales des trois fonctions dans le code :
Function -isInfSixMois
Function -isSixNeufMois
Function -isNeufDouzeMois


Nous avons l'onglet Tb:
le tableau contient trois lignes et 12 colonnes
Ligne NON Démarré
Ligne ETUDE
Ligne REAL

col de C: N 12 mois de l'année



liste des fonctions
Function isInfSixMois
Sub AddInfSixMois
Function isSixNeufMois
Sub AddSixNeufMois
Function isNeufDouzeMois
Sub AddNeufDouzeMois
Function montantLigne
Function Statut_Proj
Sub addAll


évolution
1) Function montantLigne

Je souhaite faire le calcul Total sans prendre les valeurs dont la celule = Abandonné dans la colonne Statut

Amélioration
1) Sub addAll

je souhaite avoir une boite de dialogue pour le choix du mois a mettre a jour

2) Function isInfSixMois
2) Function isSixNeufMois
2) Function isNeufDouzeMois

je souhaite rendre automatique le calcul du nombre de jours entre deux dates afin de faire disparaite l'onglet les règles de calcul

En pj le fichier avec le code et les Données

Merci d'avance pour votre aide,

Undo

Bonjour,

Citation:

---

je souhaite rendre automatique le calcul du nombre de mois entre deux dates afin de faire disparaite l'onglet les règles de calcul

---

Sais-tu qu'il existe nativement une formule dans excel qui fait cela très bien mais il est vrai que n'étant pas officielle elle est cachée.
Il s'agit de DATEDIF qui calcule la différence entre deux dates. Sa syntaxe est DATEDIF(DateLaPlusAncienne, DateLaPlusRécente, Ecart).
L'argument Ecart détermine si la différence sera en année (Y), en mois (M), en jours (D), il y a également YM, MD, et YD
A lire, le chapitre IV-D. DATEDIF du tutoriel Utiliser les fonctions Date et Heure sous Excel 2007.

Bonjour Philippe,
merci pour ta réponse.;)
J'utilise cette formule dans mon fichier dans l'onglet les règles de calcul mais je souhaite le rendre automatique dans les trois fonctions :Function -isInfSixMois , Function -isSixNeufMois et Function -isNeufDouzeMois qui se trouve dans le fichier.

Merci encore pour ton support.
cdt,

Citation:

---

Envoyé par undo74

Je souhaite faire le calcul Total sans prendre les valeurs dont la celule = Abandonné dans la colonne Statut

---

Un simple SOMME.SI fait ça très bien.

Citation:

---

je souhaite avoir une boite de dialogue pour le choix du mois a mettre a jour

---

InputBox

Citation:

---

je souhaite rendre automatique le calcul du nombre de mois entre deux dates afin de faire disparaite l'onglet les règles de calcul

---

Ca peut se faire avec des fonctions Excel.
La fonction MOIS converti une date en numéro de mois.
L'opérateur - te permet de faire la différence.

A toi ensuite de voir dans quel ordre tu les utilises.
Par exemple :
quel est le résultat que tu souhaites entre 30/06/2014 et 01/07/2014 : 0 mois ? 1 mois ? 2 mois ?
quel est le résultat que tu souhaites entre 01/06/2014 et 31/07/2014 : 1 mois ? 2 mois ?

Donc, attention aux arrondis, si tu convertis en mois avant de faire la différence, attention aux dates sur deux années différentes.

Bonjour Menhir,
Avant tous merci ton retour;)

Citation:

---

Un simple SOMME.SI fait ça très bien.

---

Comment faire pour adapté le formule ci-dessus dans le code ci-dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function montantLigne(ByVal l As Integer) As Double 'renvoie le montant Capex + Opex d'une ligne donnée   Dim total As Double total = 0   Dim c_capex As Integer c_capex = 23   Dim c_opex As Integer c_opex = 26     total = Cells(l, c_capex).Value + Cells(l, c_opex).Value montantLigne = total End Function

---

--------------------------------------------------------------------

Citation:

---

InputBox

---

C'est ok ça marche :D

ci-dessous le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub addAll()   'MODIFICATION A FAIRE CHAQUE MOIS   Dim mois_actuel As Integer   mois_actuel = InputBox("Un nombre de 1 à 12", "Entrer un mois")   AddInfSixMois mois_actuel AddSixNeufMois mois_actuel AddNeufDouzeMois mois_actuel   End Sub

---

------------------------------------------------------

Citation:

---

Ca peut se faire avec des fonctions Excel.
La fonction MOIS converti une date en numéro de mois.
L'opérateur - te permet de faire la différence.........

---

Dans ma demande j'ai fait une erreur je voulais pas le nombre de mois mais de jours:aie:

dans l'onglet Les règles de calcul:
pour le calcul inf6Mois

Inf6Mois
01/06/2014
30/11/2014
résultat : Nb de jour = 182 -> utilise la formule =DATEDIF(F1;F2;"d")

L'idée c'est de rendre automatique dans le code ci-dessous:
Par exemple je rentre les deux dates dans un boite de dialogue ou par exemple faire un calcul en fonction mois_actuel dans le code ci-dessus

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Function isInfSixMois(ByVal l As Integer, mois_actuel As Integer) As Boolean 'renvoie si la ligne l a une date fin d'alpha inf à 6 mois de mois_actuel 'mois_actuel est le mois dont on souhaite la MAJ dans l'onglet TB   Dim c_alpha As Integer c_alpha = 10   Dim rep As Boolean rep = False   Dim inf6mois As Integer   inf6mois = Worksheets("Les règles de calcul").Cells(1, 9)   Dim date_actua As Date date_actua = Worksheets("Tb").Cells(13, mois_actuel + 2)     If (Cells(l, c_alpha).Value - date_actua < inf6mois) Then rep = True End If   isInfSixMois = rep End Function

---

encore merci pour ton aide.
cdt

Bonjour,
Lorsque tu publies un code VBA, ou une ligne d'instruction en Excel, il est demandé de l'insérer entre les balises prévues à cet effet.
C'est le bouton symbolisé par le croisillon (#), à la fin de la deuxième ligne de l'éditeur de message.
Et lorsque tu fais référence à une discussion c'est le bouton à sa droite (Pour chaque bouton, il y a une info-bulle qui apparaît lorsque tu passes le pointeur de la souris au-dessus.
Cela facilité grandement la lecture.
Merci d'avance d'en tenir compte.

Citation:

---

Envoyé par undo74

Un simple SOMME.SI fait ça très bien.
Comment faire pour adapté le formule ci-dessus dans le code ci-dessous:

---

As-tu pris la peine de lire dans l'aide Excel la syntaxe et les explications concernant la fonction SOMME.SI ?

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Lorsque tu publies un code VBA, ou une ligne d'instruction en Excel, il est demandé de l'insérer entre les balises prévues à cet effet.
C'est le bouton symbolisé par le croisillon (#), à la fin de la deuxième ligne de l'éditeur de message.
Et lorsque tu fais référence à une discussion c'est le bouton à sa droite (Pour chaque bouton, il y a une info-bulle qui apparaît lorsque tu passes le pointeur de la souris au-dessus.
Cela facilité grandement la lecture.
Merci d'avance d'en tenir compte.

---

Re,
Merci pour l'info c'est fait:)

Citation:

---

Envoyé par Menhir

As-tu pris la peine de lire dans l'aide Excel la syntaxe et les explications concernant la fonction SOMME.SI ?

---

Re,
J'ai pas un problème de syntaxe dans la formule mais savoir comment faire un somme.si de la colonne A et Colonne B avec comme condition ne pas prends les valeurs Abandonné dans la colonne Statut.
En pj un exemple avec la formule
merci d'avance.
cdt

Ca ne répond pas à la question que j'ai posée.
Par contre, la réponse à celle que tu poses se trouve dans l'aide Excel dans la description de SOMME.SI

Citation:

---

Envoyé par Menhir

Ca ne répond pas à la question que j'ai posée.
Par contre, la réponse à celle que tu poses se trouve dans l'aide Excel dans la description de SOMME.SI

---

la réponse dans la Pj.
Merci