Object does not support this property or method

Bonjour,

Je viens de me faire insulter par Excel, ce qu'il m'a dit est dans le titre. Plus sérieusement, ci-dessous la ligne surlignée qui a stoppé l'exécution de ma macro.

Code:

Format(Round(CDbl(.Sum(.Range("E1:E" & LR3))), 2), "# ##0.00")

Pourriez-vous SVP m'expliquer ce qui ne convient pas et me donner une solution pour contourner ce problème ?
Je vous remercie d'avance !

Cordialement,

Runsh

Bonjour.

Comme sur cette ligne tu as

Code:

.Sum

et

Code:

.Range

on peut supposer que la ligne est sous un

Code:

With ...

mais on ne le voit pas. :aie:

Le with doit porter sur un objet qui a pour propriété et méthode

Code:

.Range

et

Code:

.Sum

ce qui n'est pas courant et le pb vient probalement de là. ;)

Cdlt,

PGZ

Bonjour pgz,

Je vais te donner un peu plus de code, mais c'est en effet sous un "With" :

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
'Détermination type de compte
 
    With Sheets("Dataloader")
    Dim BSE As Integer, AccType As Range
    BSE = .Cells(PNLS, 1).Offset(-1, 0).Row
    For Each AccType In .Range("E2:E" & BSE)
        If AccType.Value < 0 Then
            AccType.Offset(0, -2).Value = "C"
        Else
            AccType.Offset(0, -2).Value = "D"
        End If
    Next AccType
 
    .Range("C" & PNLS & ":C" & PNLE) = "R"
 
    'Entité
 
    .Range("A2:A" & PNLE) = "LCEPL"
 
    'Activité BS
 
    .Range("D2:D" & BSE) = "PLBU"
 
    'Données
 
    .Range("J2:J" & PNLE) = "SOCIAL"
 
    'Date BS
 
    Dim ClosingDate As Date
    ClosingDate = InputBox("Entrez le dernier jour du mois clôturé (Format = jj/mm/aaaa)", "Définition de la date")
    .Range("G2:G" & BSE) = ClosingDate
 
    'Montant en €
 
    Dim ClosingRate As Single, AverageRate As Single, EURAmount As Range
        ClosingRate = Round(CDbl(InputBox("Entrez le taux de clôture PLN => EUR (Séparateur de décimal => virgule)", "Définition du taux de clôture")), 6)
        AverageRate = Round(CDbl(InputBox("Entrez le taux moyen PLN => EUR (Séparateur de décimal => virgule)", "Définition du taux moyen")), 6)
 
    For Each EURAmount In .Range("F2:F" & BSE)
        EURAmount.Value = EURAmount.Offset(0, -1).Value * ClosingRate
    Next EURAmount
 
    For Each EURAmount In .Range("F" & PNLS & ":F" & PNLE)
        EURAmount.Value = EURAmount.Offset(0, -1).Value * AverageRate
    Next EURAmount
 
    'MEF Compte au format standard
 
    Dim k As Byte, Account As Range
    k = 1
    For Each Account In .Range("B2:B" & PNLE)
        Account.Value = Account.Value * k
    Next Account
 
    'Supprimer lignes avec montant nul
 
    Dim NoAmount As Long
    For NoAmount = PNLE To 2 Step -1
        If .Cells(NoAmount, 5).Value = 0 Then
            .Rows(NoAmount).Delete
        End If
    Next NoAmount
 
    'Définir nom de champ
 
    .Range("A1:J1") = Array("Entité", "Compte", "D-C-R", "Activité", "Montant en devise locale", "Montant en €", "Date", "Libellé", "Pièce", "Données")
 
    'Contrôle du résultat final
 
    Dim LR3 As Long, Disc2 As String, Question2 As Integer
    LR3 = .Cells(.Rows.Count, 1).End(xlUp).Row
    Disc2 = Format(Round(CDbl(.Sum(.Range("E1:E" & LR3))), 2), "# ##0.00")
    Question = MsgBox("La somme de la balance et du compte de résultat est de " & Disc2 & " est-ce correct ?", vbYesNo + vbQuestion, "Calcul de la somme des données en devise locale")
    If Question = vbNo Then
        MsgBox "Erreur dans la compilation des données, veuillez recommencer la procédure depuis le début", vbCritical, "Erreur"
        End
    Else
        MsgBox "Compilation du fichier ADN pour LCE CZ terminée", vbOKOnly + vbExclamation, "Fin de la procédure"
    End If
    End With
End Sub

Désol", j'ai tout balancé depuis le "With", mais tout marche jusqu'à cette fameuse ligne... Je ne vois pas pourquoi il m'embête, ça devrait marcher non ?

Cordialement,

Runsh

Re,

As-tu essayé en enlevant le "." devant Sum?

PGZ

Je dis n'importe quoi, ça fonctionne très bien apparamment...
Désolé pour la perte de temps !

Sans le "." il aime pas, mais avec ça fonctionne.
Merci d'avoir pris le temps de te pencher sur mon problème qui n'en est pas un !

Cordialement,

Runsh