Point sur le projet à fin janvier 2011 : un nouveau départ


Le projet a pris énormément de retard par rapport à mes objectifs initiaux. Tout d’abord, je travaille sur plusieurs projets en même temps et ensuite j’ai dû prendre en main DELPHI ainsi que les liens DELPHI / EXCEL (cf. mon post précédent). Par ailleurs, je suis en train de perfectionner mes connaissances en VBA. Tous ces facteurs ont contribué au retard conséquent du projet.

Ceci dit, j’ai tout de même commencé à me pencher sur le développement proprement dit de l’application ; les premières lignes de code sont écrites (cf PS). A ce sujet, deux options s’offrent à moi : soit développer mon application sous DELPHI, soit en VBA. Les deux options ont leurs avantages et leurs inconvénients. Pour le moment, je ne sais pas encore laquelle je vais retenir. J’essaye les deux sachant que deux critères essentiels conditionneront mon choix : la sécurité des traitements et la rapidité d’exécution du code.

L’objectif à fin février est que l’application intègre les balances générales des filiales et que les états financiers consolidés (bilan et compte de résultat) soient paramétrés.

Il y a encore beaucoup de travail mais ça avance (enfin) !

Benoît-René RIVIERE

Expert-comptable à Caen

PS : voici les premières lignes de VBA de la procédure qui intègre les balances sociales dans le grand livre de consolidation :

Sub AffectBGCI_CSO(entité As String, clotex As String)

    Const FeuilleBGCI = « BGCI »

    Const FeuilleFourchette = « CIaffectCSOfourchette »

    Const FeuilleaffectCSO = « BGCIaffectCSO »

    Dim nbligneBGCI, nblignefourchette As Variant

    Dim ligneBGCIaffectCSO As Variant

    Dim cpte4 As String

    Dim i, j As Variant

    Dim montant As Variant

    Dim sens As String

    Dim trancheok As Boolean

    nbligneBGCI = Sheets(FeuilleBGCI).UsedRange.Rows.Count

    nblignefourchette = Sheets(FeuilleFourchette).UsedRange.Rows.Count

    ligneBGCIaffectCSO = Sheets(FeuilleaffectCSO).UsedRange.Rows.Count + 1

    For i = 1 To nbligneBGCI

        If (entité = «  ») Or (entité <> «  » And Sheets(FeuilleBGCI).Cells(i, 1) = entité And Sheets(FeuilleBGCI).Cells(i, 2) = clotex) Then

            cpte4 = Left(Sheets(FeuilleBGCI).Cells(i, 3).Value, 4)

Advertisements

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :