Discussion :

[Beaudelicius]

Bonjour Forum, voici ma function,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Function Conso(ByVal No_Conso As Integer, ByVal Annee As String) As Long
Dim sh As Worksheet
Dim val As Long
Dim Col As Integer
Dim montant As Long
Dim c As Range
Dim firstAddress As Range

Application.Volatile

val = 0
For Each sh In Sheets
    
    With sh
        If .Name = "BV" Or .Name = "Consolidation" Or .Name = "Master" Then
        
        Else
        Col = .Range("A3:AA3").Find(Annee, LookIn:=xlValues, lookat:=xlWhole).Column - 1
            
            With .Range("A1:A1000")
                
                Set c = .Find(No_Conso, LookIn:=xlValues, lookat:=xlWhole)
                If Not c Is Nothing Then
                    Set firstAddress = c.Address
                    Do
                        val = val + c.Offset(0, Col).Value
                        Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> firstAddress
                End If
            End With
        
        End If
    End With
Next

Conso = val
End Function

La ligne de code en rouge m'amène un imcompatibilité de type, mais pourtant mes variables "c" et "firstaddress" sont déclarer correctement.

Merci à l'avance!!

[Touffe54]

Salut B.

Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set firstAddress = c

Tu initialises un Range avec un Range et pas avec une adresse de Range.

[jfontaine]

Bonjour,

a noter que si tu utilises un Range pour firstAddress, il te faurra aussi modifier cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Loop While Not c Is Nothing And c.Address <> firstAddress.Address

[mercatog]

Bonjour

Une proposition en combinant Evaluate et SommeProd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function Conso(ByVal No_Conso As Integer, ByVal Annee As String) As Double
Dim stCons As String, stData As String
Dim Montant As Double, LastLig As Long
Dim Sh As Worksheet, c As Range
 
Application.Volatile
For Each Sh In ThisWorkbook.Worksheets
    With Sh
        If InStr("BV|Consolidation|Master", .Name) = 0 Then
            LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
            Set c = .Range("B3:AA3").Find(Annee, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                stData = "'" & .Name & "'!" & c.Offset(1, -1).Resize(LastLig - 3, 1).Address
                Set c = Nothing
                stCons = "'" & .Name & "'!$A$4:$A$" & LastLig
                Montant = Montant + Evaluate("Sumproduct((" & stCons & "=" & No_Conso & ")*" & stData & ")")
            End If
        End If
    End With
Next Sh
Conso = Montant
End Function

[Beaudelicius]

Merci pour vos réponses,

Elles ont réglé mon problème, mais ma formule me renvoie toujours l'erreur VALEUR!, même la tienne mercatog, pourtant je les test en effectuant une procédure, elle me renvoie le bon résultat, je ne comprend pas pourquoi

Merci!

[mercatog]

Les données des plages B4:AAxx doivent être numériques.

[Beaudelicius]

Ok marcatog après quelques modification ta fonction fonctionne parfaitement

Merci!!