Bilan en fonction d'une date de départ et une date de fin

Magzonex · 1 Avril 2011

Bonjour

j'ai déja se code

Sub bilan()
Dim x As Integer
Dim dt1 As Date, dt2 As Date
dt1 = InputBox("date debut")
dt2 = InputBox("date fin")
Sheets("Bilan").Range("B5").Value = dt1
Sheets("Bilan").Range("C5").Value = dt2

With Sheets("BD")
For x = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
If .Range("B" & x) >= dt1 And .Range("B" & x) <= dt2 Then
Sheets("Bilan").Range("a1") = Sheets("Bilan").Range("a1") + .Range("CC" & x)

End If
Next x
End With
End Sub

j'aimerais s'avoir si il est possible de changer le format dans se code... cars les données de ma base de donnée son example .. .Range("CC" & x) ... CC est = 5,87+6,76+8,76 ... la somme me donne 1,987,987 se qui est faux

ou bien si vous avez des idées pour faire un bilan toujour avec une date de départ et une date de fin ... et qui gère les montants avec 2 chiffre après la virgule

merci

Paritec · 1 Avril 2011

Re : Bilan en fonction d'une date de départ et une date de fin

re
Encore une modification je n'avais pas vu que tu avais rajouté la date dans bilan c'est chose faite
a+
papou

Ce lien n'existe plus

Paritec · 1 Avril 2011

Re : Bilan en fonction d'une date de départ et une date de fin

re bonsoir
une autre modification à faire dans ton thisworkbook

VB:

Private Sub Workbook_Open()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Protect "mini2527", userinterfaceonly:=True
    Next ws
End Sub

Magzonex · 1 Avril 2011

Re : Bilan en fonction d'une date de départ et une date de fin

Allo

j'ai fais la modification. mais ça ne fonctionne pas. il ne calcul rien, pourtant dans la version 6 tout était ok ...

Paritec · 1 Avril 2011

Re : Bilan en fonction d'une date de départ et une date de fin

re bonsoir,
il semble que tu as toujours quelques post de retard !!
bref voilà la nouvelle version avec toutes les modifs et regardes aussi dans l'userfoprm1 le code du click sur la liste
Il semble que tu n'as pas vu le post 15 16 17 bref dans ce dernier fichier joint en lien tu as toutes les modifications en 1 seul coup
IMPORTANT : dans ta dernière version pour obtenir le total il faut entrer la date du 4 janvier 2011 car c'est la seule donnée que tu as dans la BD !!!! et le total obtenu est de 84,51
a+
papou

Version 9 Ce lien n'existe plus

Magzonex · 1 Avril 2011

Re : Bilan en fonction d'une date de départ et une date de fin

Allo

Mille merci Papou oui j'ai regarder tout les autre post .. et oui il s'emble bien que je vais avoir toujours du retard sur toi, hahahahahaha

j'aprécie vraiment se que tu as fais tu peux même pas savoir ... si tu était une femme j'irais te voir et tembrasser!

je vais faire plusieur simulation pour voir si tout est ok , mais je crois bien que ses impécable .. dans se que tu as fais bien sure
,j'ai juste changer l'ordre de la date dans mon userform pour qu'il sois bien sure a la date de jour, et ça marche..2011-04-01. et oui j'ai vue que tu as fais des boucle dans mon combobox .. vraiment super ... tes très fort ... peut-être simple pour toi ... mais pas pour moi, mais j'apprend vite ... il faut faire des erreurs pour apprendre et la j'en ai fais hahahahahaha
je te redonne des nouvelles aussitot les test fait. et après .. je vais faire ça au propre comme tu me la demander ... base de donnée.. textbox en ordre. pas de tranfers, copiage inutile...

si tu le permet j'aimerais t'envoyer a mesure que je le refais pour me guider dans le bon chemin, il me reste beaucoup a apprendre surtout la façon que tu fais les boucles

si tu as le temps .. je sais que je t'en demande beaucoup déja ... j'aimerais que tu me donne un petit tuto si tu en a un .. de la marche a suivre pour bien débuter se projet ... mais sans le fouillie que j'ai fais

encore une fois Mille merci Papou

Mag

Paritec · 2 Avril 2011

Re : Bilan en fonction d'une date de départ et une date de fin

bonjour,
alors juste en mettant beaucoup d'ordre dans l'userform1 voilà le lien regardes le code et teste le fichier surtout et tu me rediras
a+
papou
Ce lien n'existe plus

Bilan en fonction d'une date de départ et une date de fin

Magzonex

XLDnaute Junior

Paritec

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Magzonex

XLDnaute Junior

Paritec

XLDnaute Barbatruc

Magzonex

XLDnaute Junior

Paritec

XLDnaute Barbatruc

Discussions similaires