Discussion :

[Amiral19]

Bonjour Bonjour.

J'ai une erreur dont je ne touve pas la raison dans le code suivant

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
'Création du tableau récapitulatif
    Set CellCourr = CellCourr.Offset(10, 0)
    'Colonnes
    For i = 1 To 6
        CellCourr.Offset(-10, i).Copy
        CellCourr.Offset(0, i).Activate
        ActiveSheet.Paste
    Next
    'Lignes
    For i = 1 To NbZone
        'Nom des lignes
        Offset = -10 * (NbZone + 1 - i)
        OffsetCour = Offset + 7
        CellCourr.Offset(Offset, 0).Copy
        CellCourr.Offset(i, 0).Activate
        ActiveSheet.Paste
        'Contenu
        For j = 1 To 6
            CellCourr.Offset(i, j).Value = CellCourr.Offset(i, OffsetCour).Value
        Next
    Next

C'est une erreur que j'ai déjà rencontrée, et que j'ai contournée. mais cette fois j'aimerais comprendre pour plus me faire balader.
Si quelqu'un peut m'expliquer ce que veut dire cet echec de méthode..., je suis aux anges !

Merci d'avance

[illight]

Heuu elle est sur quelle ligne ton erreur ?

[Amiral19]

Oups !

L'erreur est sur la seule ligne de la boucle en j, c'est à dire

Code :

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

CellCourr.Offset(i, j).Value = CellCourr.Offset(i, OffsetCour).Value

En tous cas c'est cool de voir la réactivité sur ce site. Merci à toi illight

[Amiral19]

Euh...

J'ai bidouillé deux trois trucs et l'intitulé de l'erreur a changé.
Maintenant c'est : erreur définie par l'application ou par l'objet

Mais la ligne est toujours la même...

[AlainTech]

J'ai bidouillé deux trois trucs et l'intitulé de l'erreur a changé.

Faudrait surtout pas nous dire quels trucs!
On adore essayer de deviner ce qu'a bien pu faire quelqu'un avant qu'il ne vienne poser sa question.

Ceci dit, si tu donnes à une de tes variables le même nom qu'une propriété (Offset), ne te plains pas d'obtenir un comportement imprévisible.

[Amiral19]

Effectivement, même en temps que débutant, c'est un peu débile de donner à une variable le même nom qu'une fonction. Je dois bien l'avouer.

Comme je ne trouvais pas, j'ai essayé de contourner le problème, et dans la nouvelle version j'ai le passage suivant :

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
For i = 1 To NbZone - 1
        Sheets("Résultats").Activate
        Range("A4:Z11").Copy
        Set CellCourr = CellCourr.OffSet(10, 0)
        CellCourr.Activate
        ActiveSheet.Paste
        CellCourr.Value = ("Produit/Zone " & i + 1)
    'Remplissage des tableaux résultats
        CellCourr.OffSet(1, 1).Activate
        ActiveCell.Formula = ("=Traitement!L24*évaluation_produit!$C" & 10 * i + 8)
        ActiveCell.Copy
            For j = 0 To 5
                For k = 0 To 5
                    CellCourr.OffSet(1 + j, 1 + k).Select
                    ActiveSheet.Paste
                Next
            Next
    'Remplissage du tableau récapitulatif
        Set CellCoura = CellCoura.OffSet(1, 0)
        CellCoura.Value = CellCourr.Value
        CellCoura.OffSet(0, 1).Activate
        ActiveCell.Formula = ("=B" & 10 * i + 1)
        ActiveCell.Select
        Selection.AutoFill Destination:=Range("AB6:AG6"), Type:=xlFillDefault
    Next

La dernière lignes (celle avec autofill) provoque l'erreur suivante
"la méthode autofill de la classe range a échoué"
Qu'est-ce que çà peut bien vouloir dire ?!

Merci à tous ceux qui passent du temps pour filer un coup de main sur ce forum