Message d'erreur "division par zéro"

2 pièce(s) jointe(s)

Bonjour,

Je vous soumets un problème sous Vba incompréhensible pour moi.

J'ai 2 macros Vba qui tournent indépendamment sans aucun problème.

Lorsque je les réunis dans une seule et même macro, pour n'effectuer qu'un seul lancement, la première s'exécute normalement, puis j'obtiens le message "erreur 11, division par zéro"'.
Je passe outre ce message en cliquant sur "fin" sur le panneau d'erreur, et la seconde macro s'exécute alors sans problème.

Il n'y a aucune division dans ces macros.

Si quelqu'un peut m'expliquer comment éradiquer cette erreur, je lui en serai très reconnaissant.

Merci.
Pièce jointe 646313 Pièce jointe 646312

Bonjour, telles quelles, les macros ne présentent pas d'erreur. Il faudrait pouvoir tester avec le classeur qui pose problème.

1 pièce(s) jointe(s)

Bonjour,

Merci pour cette réponse.

Pour le test, je joins un classeur comprenant les 2 macros, et un fichier d'opérations bancaires rapatrié pour traitement : mise en forme, puis calcul du solde progressif.

Bien cordialementPièce jointe 646361

Si j'ai bien compris, tu veux réunir les 2 macros en une seule, ce que j'ai fait sans rien changer à ton code et cela fonctionne parfaitement.
La mise en forme se fait puis le calcul du solde sans aucune erreur à aucun moment. J'ai juste fait un copier/coller de tes 2 macros dans 1 seule.
Tu as peut-être fait une erreur de manipulation quelque part ?

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Sub Traitement_Operations()
    ' ELIMINATION DES COLONNES INUTILES
    ' ***************************************
    lin = 1
    col = 1
 
    Do Until Cells(lin, col) = ""
 
        If Cells(lin, col) Like "*Libelle operation*" _
        Or Cells(lin, col) Like "*Debit*" _
        Or Cells(lin, col) Like "*Credit*" _
        Or Cells(lin, col) Like "*Date operation*" Then
 
            col = col + 1
 
        Else
 
            Columns(col).Delete
 
        End If
 
    Loop
 
    ' REORGANISATION DES COLONNES
    ' **********************************
 
    Columns("A:A").Insert Shift:=xlToRight
    Columns("E:E").Cut
    Columns("A:A").Select
    ActiveSheet.Paste
    Range("A1").Select
 
    ' DEBITS ET CREDITS SUR UNE SEULE COLONNE
    ' **********************************************
    lin = 2
    col = 1
 
    Do Until Cells(lin, col) = ""
 
        If Cells(lin, 4) <> "" Then
            Cells(lin, 3) = Cells(lin, 4)
        End If
 
        lin = lin + 1
 
    Loop
 
    Columns(4).Delete
 
    ' FORMATAGE DES MONTANTS
    ' *****************************
    Columns("C:C").NumberFormat = "#,##0.00"
 
    ' LARGEUR DES COLONNES ET CENTRAGE LIBELLES
    ' *************************************************
    ActiveSheet.UsedRange.EntireColumn.AutoFit
    Rows("1:1").HorizontalAlignment = xlCenter
 
    ' COULEUR DE L'ONGLET
    ' ***********************
    With ActiveSheet.Tab
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
 
    ' RENOMMAGE DE L'ONGLET
    ' ***************************
    mois = Application.InputBox(Prompt:="Nom du mois concernŽ ?", Type:=2)
    ActiveSheet.Name = mois
 
    ' Calcul du solde
    ' ***************************
    Dim Solde_depart As Double
    Dim Solde As Double
 
    L = 2
    Compteur = 0
 
    Solde_depart = Application.InputBox(Prompt:="Solde du mois prŽcŽdent ?", Type:=1)
 
    Solde = Solde_depart
    Cells(1, 5) = "Solde"
 
    Do Until Cells(L, 1) = ""
        Compteur = Compteur + 1
        L = L + 1
    Loop
 
    lin = L - 1
 
    For k = Compteur To 1 Step -1
 
        Solde = Solde + Cells(lin, 3)
 
        Cells(lin, 5) = Solde
        lin = lin - 1
 
    Next
 
    ' FORMATAGE DES MONTANTS POUR LE SOLDE
    ' *****************************
    Columns("E:E").NumberFormat = "#,##0.00"
 
    Range("A1").Select
End Sub

Je me suis permis l'une ou l'autre petite optimisation, suppression de .select et .activate, suppression de variable et d'une boucle, libre à toi de l'utiliser ou non.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub Traitement_Operations()
    Dim lin As Long
    Dim col As Long
    Dim mois As String
    Dim Solde_depart As Double
    Dim Solde As Double
    Dim Compteur As Long
    Dim L As Long
 
    ' ELIMINATION DES COLONNES INUTILES
    ' ***************************************
    lin = 1
    col = 1
 
    Do Until Cells(lin, col) = ""
        If Cells(lin, col) Like "*Libelle operation*" _
        Or Cells(lin, col) Like "*Debit*" _
        Or Cells(lin, col) Like "*Credit*" _
        Or Cells(lin, col) Like "*Date operation*" Then
            col = col + 1
        Else
            Columns(col).Delete
        End If
    Loop
 
    ' REORGANISATION DES COLONNES
    ' **********************************
    Columns("A:A").Insert Shift:=xlToRight
    Columns("E:E").Cut Columns("A:A")
 
    ' DEBITS ET CREDITS SUR UNE SEULE COLONNE
    ' **********************************************
    lin = 2
 
    Do Until Cells(lin, 1) = ""
        If Cells(lin, 4) <> "" Then
            Cells(lin, 3) = Cells(lin, 4)
        End If
        lin = lin + 1
    Loop
 
    Columns(4).Delete
 
    ' FORMATAGE DES MONTANTS
    ' *****************************
    Columns("C:C").NumberFormat = "#,##0.00"
 
    ' LARGEUR DES COLONNES ET CENTRAGE LIBELLES
    ' *************************************************
    ActiveSheet.UsedRange.EntireColumn.AutoFit
    Rows("1:1").HorizontalAlignment = xlCenter
 
    ' COULEUR DE L'ONGLET
    ' ***********************
    With ActiveSheet.Tab
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
 
    ' RENOMMAGE DE L'ONGLET
    ' ***************************
    mois = Application.InputBox(Prompt:="Nom du mois concernŽ ?", Type:=2)
    ActiveSheet.Name = mois
 
    ' Calcul du solde
    ' ***************************
    L = Cells(Rows.Count, 1).End(xlUp).Row
    Compteur = L - 1
 
    Solde_depart = Application.InputBox(Prompt:="Solde du mois prŽcŽdent ?", Type:=1)
 
    Solde = Solde_depart
    Cells(1, 5) = "Solde"
 
    For lin = L To 2 Step -1
        Solde = Solde + Cells(lin, 3)
        Cells(lin, 5) = Solde
    Next
 
    ' FORMATAGE DES MONTANTS POUR LE SOLDE
    ' *****************************
    Columns("E:E").NumberFormat = "#,##0.00"
 
    Range("A1").Select
End Sub

Bonjour

merci d'avoir consacré du temps à mon problème.

Effectivement, je réunis ces 2 macros dans une seule, et c'est là que j'ai la fameuse erreur, alors que je suis bien d'accord, ça DOIT fonctionner.

Bon, ça reste un mystère.
J'arriverai peut-être à trouver ce qui se passe mal chez moi.

Je reprends déjà tes améliorations, et je classe ce problème en "résolu".

Un grand merci !

Bonjour,

j'ai remis cette discussion en "n'est plus résolu", car à la relecture, je me suis aperçu que tu avais réuni les 2 macros en une seule par un simple copier-coller.

j'ai procédé différemment, en créant une 3ème macro qui appelle les 2 autres.
En d'autres termes, ma macro comporte 2 lignes, chacune étant les noms macro1 et macro2.

Voilà peut-être la source de l'erreur, que je ne m'explique pas.