Problème avec un algorithme en VBA

T

Theze

XLDnaute Occasionnel

• 3 Octobre 2012

• #2

Re : Problème avec un algorithme en VBA

Bonjour,

Et de cette façon ?

Code:

Sub Choix()

    If Param_Frequence = "T - Trimestrielle" And Param_Periode_Payable = "D - Début" Then
    
        jj = 5
        
        If mm <= 3 Then
        
            mm = 1
            Date_mfees = jj & "/" & mm & "/" & aa
            
        ElseIf mm > 3 And mm <= 6 Then
            
            mm = 4
            Date_mfees = jj & "/" & mm & "/" & aa
                
        ElseIf mm > 6 And mm <= 9 Then
                
            mm = 7
            Date_mfees = jj & "/" & mm & "/" & aa
                    
        ElseIf mm > 9 And mm <= 12 Then
                    
            mm = 10
            Date_mfees = jj & "/" & mm & "/" & aa
                                
        End If
        
    End If

End Sub

Hervé.

 

Vote positif 0 Vote négatif

G

Guiiggs

XLDnaute Nouveau

• 3 Octobre 2012

• #3

Re : Problème avec un algorithme en VBA

Bonjour Hervé,

Malgré cette algorithme il me met toujours un dépassement de capacité : (pour la dernière ligne de l'algorithme suivant)

Libelle_MF = "MF - 0" & mm & "/" & aa & " - taux : 1% "
ReDim Preserve tabForecast(1, 1, 1, 1, cpt_tableau_forecast) ' attention, la clé doit etre en dernier pour rendre le tableau dynamique
tabForecast(0, 0, 0, 0, cpt_tableau_forecast) = Array(Libelle_MF, Date_mfees, 1234, statut_inv, inv)
cpt_tableau_forecast = cpt_tableau_forecast + 1

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 3 Octobre 2012

• #4

Re : Problème avec un algorithme en VBA

Bonsoir,

Le classeur avec l'exemple te posant problème nous permettrait d'éclairer nos lanternes et donc la tienne s'il était joint.

 

Vote positif 0 Vote négatif

G

Guiiggs

XLDnaute Nouveau

• 3 Octobre 2012

• #5

Re : Problème avec un algorithme en VBA

Bonjour,

Voilà le fichier en faite dans l'onglet paramétrage j'ai deux choix à faire pour que le fichier met à jour :
- Annuelle / Mensuelle / Trimestrielle / Semestrielle
- Début / Fin

Mes algorithmes fonctionnent Fin mais pas avec début - il me dit dépassement de capacité ou incompatibilité !!

Merci d'avance

 

Dernière modification par un modérateur: 3 Octobre 2012

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 3 Octobre 2012

• #6

Re : Problème avec un algorithme en VBA

Bonsoir

Si je ne me trompe pas les données n'étaient pas bidons dans le fichier exemple, je l'ai donc supprimé

Merci de mettre un fichier exemple avec des données bidons

 

Vote positif 0 Vote négatif

G

Guiiggs

XLDnaute Nouveau

• 3 Octobre 2012

• #7

Re : Problème avec un algorithme en VBA

Les données sont bidons, on les a inventées de toutes pièces !!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 3 Octobre 2012

• #8

Re : Problème avec un algorithme en VBA

Guiiggs à dit:

Les données sont bidons, on les a inventées de toutes pièces !!

Cliquez pour agrandir...

Oups désolé alors
Tu peux remettre ton fichier

 

Vote positif 0 Vote négatif

G

Guiiggs

XLDnaute Nouveau

• 3 Octobre 2012

• #9

Re : Problème avec un algorithme en VBA

Voilà le fichier !!

 

Pièces jointes

• Test.zip

  280.6 KB · Affichages: 47
• Test.zip

  280.6 KB · Affichages: 49
• Test.zip

  280.6 KB · Affichages: 45

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 3 Octobre 2012

• #10

Re : Problème avec un algorithme en VBA

Guiggs,

Plantant à 32767, j'ai l'impression que tes déclarations de variable integer y sont pour quelque chose,

remplace les integer par des long pour voir ...

dim Bidon as integer a remplacer par dim bidon as long ceci pour tout les entiers .

 

Vote positif 0 Vote négatif

G

Guiiggs

XLDnaute Nouveau

• 3 Octobre 2012

• #11

Re : Problème avec un algorithme en VBA

J'ai eu la même idée mais mettre Long ou Double ça pose toujours problème 😛 !!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 3 Octobre 2012

• #12

Re : Problème avec un algorithme en VBA

RE

Pour le dépassement de capacité cela vient de la déclaration de variables en effet

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 3 Octobre 2012

• #13

Re : Problème avec un algorithme en VBA

Pascal, guiggs,

En fait c'est un traitement récursif , mal controlé qui par en boucle sans fin et l'on peu compter des milliards d'années, cela ne s'arrétera jamais.

Toujours un peu lourd à déverminer ce récursif, même si très efficace

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 3 Octobre 2012

• #14

Re : Problème avec un algorithme en VBA

RE

Ok c'est pour cela que j'ai été obligé de fermer en brutal après le test de changement de déclaration

 

Vote positif 0 Vote négatif

G

Guiiggs

XLDnaute Nouveau

• 3 Octobre 2012

• #15

Re : Problème avec un algorithme en VBA

Et la solution au problème serait quoi svp ?!

 

Vote positif 0 Vote négatif