Aide programmation VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Je n avais effectivement pas prévu qu'il faudrait modifier mon programme lorsque j'aurais à choisir le calcul en fonction de mes dates de ventes et achats de produits..

J'ai essayé d'inclure cette composante dans mon programme mais il me marque que j'ai une erreur d'exécution 13: incompatibilité de type"

je vous montre ce que j'ai essayé:
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 25 26 27 28 29 30 31 32 33 34 35 Private Sub CommandButton1_Click() Dim Ventes As Double Dim Achats As Double Dim Salaires As Double Dim FraisFixes As Double Dim Benefice As Double Dim Rentabilite As Double Dim annee As String ((annee = Mid(Range("F"), 6, 4))) annee = InputBox("L'année désirée est: ") If Val(annee) > 0 Then Ventes = Evaluate("SUMPRODUCT((Year(Ventes!E:E)=" & annee & ")*(Ventes!F:F))") Achats = Evaluate("SUMPRODUCT((Year(Achats!E:E)=" & annee & ")*(Achats!F:F))") Salaires = Application.Sum(Sheets("Employes").Range("J:J")) FraisFixes = 350000 End If Benefice = Ventes - (Achats + Salaires + FraisFixes) Select Case Benefice Case Is > 150000: Rentabilite = 0.33 * Benefice Case Is > 0: Rentabilite = 0.15 * Benefice Case Else: Rentabilite = Benefice End Select Sheets("Resultat").Range("A2").Value = Rentabilite Sheets("Resultat").Range("B2").Value = annee End Sub
Je dois donc en effet créer un bouton qui m invite à enter l'année pour ne prendre en compte que les ventesb et achats d'une année spécifique..
Mon problème est également que la cellule dans laquelle mon programme va devoir aller chercher ma date est une cellule sous la forme JJ/MM/annee.
Je pense donc à la focntion
Code:

1 2 3 Dim annee As String annee = Mid(Range("F"), 6, 4)
Mais je ne sais pas très bien où la placer dans mon code..
Un pti coup de pouce et j'aurai bientot terminé..
Merci.

Bonjour

Quand tu fais ça

Code:

1
2
3
4
5
6
Dim annee As String

annee = Mid(Range("a1"), 6, 4)
annee = InputBox("L'année désirée est: ")
If Val(annee) > 0 Then
Ventes = Evaluate("SUMPRODUCT((Year(Ventes!E:E)=" & annee & ")*(Ventes!F:F))")

, j'ai 4 remarques:
1. Annee doit être de type integer
2. tu récupère cette année de A1 puis tu l'entre à l'aide d'une inputbox. Pourquoi?
3. Dans Evaluate de ta sommeprod, tu sous entends que les dates sont en colonne E et les montants à sommer en colonnes F.
4. Somme prod nécessite des plages limités.

Ton code aurait l'allure suivantes (en tenant compte des remarques précédentes)

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
25
26
27
28
29
30
31
32
Private Sub CommandButton1_Click()
Dim Ventes As Double
Dim Achats As Double
Dim Salaires As Double
Dim FraisFixes As Double
Dim Benefice As Double
Dim Rentabilite As Double
Dim N As Long
Dim Annee As Variant
 
Annee = InputBox("L'année désirée est: ")
If Val(Annee) > 0 Then
    With Sheets("Ventes")
        N = .Cells(.Rows.Count, "E").End(xlUp).Row 'Ligne de la dernière cellule remplie de la colonne E de la feuille ventes
    End With
    Ventes = Evaluate("SUMPRODUCT((Year(Ventes!E2:E" & N & ")=" & Annee & ")*(Ventes!F2:F" & N & "))")
    With Sheets("Achats")
        N = .Cells(.Rows.Count, "E").End(xlUp).Row
    End With
    Achats = Evaluate("SUMPRODUCT((Year(Achats!E2:E" & N & ")=" & Annee & ")*(Achats!F2:F" & N & "))")
    Salaires = Application.Sum(Sheets("Employes").Range("J:J"))
    FraisFixes = 350000
    Benefice = Ventes - (Achats + Salaires + FraisFixes)
    Select Case Benefice
        Case Is > 150000: Rentabilite = 0.33 * Benefice
        Case Is > 0: Rentabilite = 0.15 * Benefice
        Case Else: Rentabilite = Benefice
    End Select
    Sheets("Resultat").Range("A2").Value = Rentabilite
    Sheets("Resultat").Range("B2").Value = Annee
End If
End Sub

A toi d'adapter, notamment les colonnes critères et celles des montants à additionner. Surtout pas de lecture en diagonale.

Edit: J'ai déclaré Annee en Variant au cas où l'utilisateur annulera la saisie par l'inputbox.

08/05/2011, 12h54
sébastien.R
Tout marche à présent pafaitement..
J'ai simplement encore un problème avec le fait que à chaque fois je ne peux calculer la rentabilité que pour une année puisque lorsque j encode une nouvelle année le programme me met le résultat à la place de l'ancien résultat.. (normal puisque je n'incrémente pas mon résultat à la fin..)
J'aimerais donc savoir comment je pourrais adapter ce code pour qu il puisse m afficher le résultat de plusieurs années dictinctes et dans l'ordre chronologique.. (je pense à utiliser un espèce de compteur qui commence à
i=0 et qui permettrait d'incrémenter les cellules de ma feuille Resultat de cette façcon:
Code:

1 2 3 Sheets("Resultat").Range("A(2+i)").Value = Rentabilite Sheets("Resultat").Range("B(2+i)").Value = Annee
Merci.

Pour à chaque fois écrire dans la ligne suivante (tu as les ingrédients)

Code:

1
2
3
4
5
With Sheets("Resultat")
    N = .Cells(.Rows.Count, "A").End(xlUp).Row    'Ligne de la dernière cellule remplie de la colonne A de la feuille Resultat
    .Range("A" & N + 1).Value = Rentabilite
    .Range("B" & N + 1).Value = Annee
End With

08/05/2011, 13h35
sébastien.R

Si je veux pouvoir écrire ma date de mon calcul dans ma feuille Resultat, quel fonction dois-je utiliser?

Code:

.Range("C" & N + 1).Value = Date du calcul ??

Mais quel est la fonction à utiliser pour trouver la date à laquele le calcul à été éffectué?
08/05/2011, 19h38
AlainTech

Bonjour,

La date du jour (date système) est donnée par la fonction Date:

Code:

.Range("C" & N + 1).Value = Date
08/05/2011, 20h03
sébastien.R
Ha ben ca va cette fois ci j'étais pas loin :mrgreen:
Merci

Dernière question pour que mon programme marche parfaitement..
Pour le moment, il me refait mon calcul même si j'ai déjà éffectué ce calcul..
J'aimerais insérer une fonction qui me dise que j'ai déjà efectué le calcul pour cette année là..

Donc ce serait du genre:
Code:

1 2 3 If année (2009 par exemple) a déjà été entrée dans mon inputbox Then MsgBox "Le calcul a déjà été effectué pour cette année"
et le programme stop.
Une idée pour ça?
08/05/2011, 23h04
patricktoulon

re

bonjour pour cela tu pourrais utiliser une variable booleene

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton1_Click()
Dim Ventes As Double, Achats As Double, Salaires As Double
Dim FraisFixes As Double, Benefice As Double, Rentabilite As Double
Dim Annee As Variant
Dim c As Range
Dim N As Long
 
Annee = InputBox("L'année désirée est: ")
If Val(Annee) > 0 Then
    Set c = Sheets("Resultat").Range("B:B").Find(Annee, LookIn:=xlValues, lookat:=xlWhole)
    If c Is Nothing Then
        With Sheets("Ventes")
            N = .Cells(.Rows.Count, "E").End(xlUp).Row 'Ligne de la dernière cellule remplie de la colonne E de la feuille ventes
        End With
        Ventes = Evaluate("SUMPRODUCT((Year(Ventes!E2:E" & N & ")=" & Annee & ")*(Ventes!F2:F" & N & "))")
        With Sheets("Achats")
            N = .Cells(.Rows.Count, "E").End(xlUp).Row
        End With
        Achats = Evaluate("SUMPRODUCT((Year(Achats!E2:E" & N & ")=" & Annee & ")*(Achats!F2:F" & N & "))")
        Salaires = Application.Sum(Sheets("Employes").Range("J:J"))
        FraisFixes = 350000
        Benefice = Ventes - (Achats + Salaires + FraisFixes)
        Select Case Benefice
            Case Is > 150000: Rentabilite = 0.33 * Benefice
            Case Is > 0: Rentabilite = 0.15 * Benefice
            Case Else: Rentabilite = Benefice
        End Select
        With Sheets("Resultat")
            N = .Cells(.Rows.Count, "A").End(xlUp).Row    'Ligne de la dernière cellule remplie de la colonne A de la feuille Resultat
            .Range("A" & N + 1).Value = Rentabilite
            .Range("B" & N + 1).Value = Annee
            .Range("C" & N + 1).Value = Date
        End With
    Else
        MsgBox "Le calcul a déjà été effectué pour l'année " & Annee
        Set c = Nothing
    End If
End If
End Sub

Voir 40 message(s) de cette discussion en une page