Discussion :

[maroonx]

Bonjour tout le monde!

J'ai écrit une boucle "for each" qui ne fonctionne pas pour l'erreur "objet requis"

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
    Dim pm as Variant
    Dim assol as Integer
    Dim j As Range, i as Integer
    Set f = Sheets("feuil1")
 
        For i = 1 To UBound(pm, 1)
            For v = 2 To UBound(pm, 2)
 
                If pm(1, v).Value = f.Range(incult(i)).Value And pm(i, 0).Value = f.Range("A1:A" & f.[A65000].End(xlUp).Row) Then
                assol = assol + incult(i).Value
                End If
 
                pm(i, v).Value = assol
 
            Next v
        Next i

*incult est défini plus haut par:

Code :

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

    incult = .Range(.Cells(2, cl), .Cells(.Cells(Rows.Count, cl).End(xlUp).Row, cl))

une colonne de données située sur une autre feuille.

*pm est défini plus haut dans le code par:

Code :

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

1
2
3
4
5
    Set f = Sheets("données")
    f.UsedRange.Select
    Set pm = Selection
 
    ReDim pm(i, d)

Si quelqu'un voit quel est mon problème alors beaucoup!