Discussion :

[Invité]

Bonjour à tous, un p'tit soucis avec un code dans un module qui fonctionne bien sur 2013 et qui me donne l'erreur suivante sur 2007

Erreur d'execution 1004 Erreur définie par l'application ou par l'objet en rouge dans le code.

Y a t'il une incompatilité entre les deux versions et si OUI, comment faire marcher le code entre les deux versions.

A savoir que ma variable "f" me donne bien les recherches attendues

Merci d'avance

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
Sheets("TRAITEMENT HEURE").Select 'Sélectionne la TRAITEMENT HEURE
   
    Workbooks("Controle-KM.xlsm").Activate 
    Sheets("TRAITEMENT HEURE").Columns("I:M").ClearContents 'Efface les données des colonnes I à M
        
    Set orders = Sheets("TRAITEMENT HEURE").ListObjects("tableau1") 'Inspecte le Tableau1 défini par Insertion/Tableau
    For Each Cel In orders.DataBodyRange.Columns(5).Cells 
        If Cel.Value <> 0 Then 'les valeurs ne contenant pas de 0
        
        f = f + 1
        ReDim Preserve Tblo1(1 To 5, 1 To f)  'et les classent dans les colonnes I à M
        Tblo1(1, f) = Cel.Offset(0, -4).Value 
        Tblo1(2, f) = Cel.Offset(0, -2).Value 
        Tblo1(3, f) = Cel.Offset(0, -1).Value 
        Tblo1(4, f) = Cel.Offset(0, 0).Value 
        Tblo1(5, f) = Cel.Offset(0, -3).Value 
        End If
        
    Next Cel
    
   
    Sheets("TRAITEMENT HEURE").Range(Cells(1, 9), Cells(f, 13).Value) = Application.WorksheetFunction.Transpose(Tblo1)
    Range("g1").Select

[PMO2017]

Bonjour,

Je crois que .Value est de trop dans cette instruction

Code :

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

1
2
 
    Sheets("TRAITEMENT HEURE").Range(Cells(1, 9), Cells(f, 13).Value) = Application.WorksheetFunction.Transpose(Tblo1)

Essayez

Code :

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

1
2
 
    Sheets("TRAITEMENT HEURE").Range(Cells(1, 9), Cells(f, 13)) = Application.WorksheetFunction.Transpose(Tblo1)

[Invité]

Bonjour et merci de ton savoir.

Je viens de faire le test = Nickel

Pour être moins bête : pourquoi cela marche avec 2013 ? Si tu as la réponse

Encore merci
Mimimathy

[PMO2017]

Je n'ai pas la version 2013 mais je suppose que c'est une question de gentillesse.
2013 doit être plus gentil que 2007.