Erreur type 1004 Résolu/Fermé

Question

Bonjour,

Je souhaite calculer la température moyenne pour 24h et ça sur toute l'année. J'ai réalisé le programme suivante sur Excel

Sub temp_ext_moy_24h()Dim Derlig As Integer, Nbre_jours As IntegerDim Lig As Integer, Jour As Integer, T_jour, T_temp, tab_temp_moy_ext'Température extérieure moyenne sur 24h'initialisations    Application.ScreenUpdating = False    'nettoyage tableau résultats    Worksheets("Données inter PMV et DR").Range("AN2:AN8760").ClearContents    Derlig = Worksheets("Données inter PMV et DR").Columns("A").Find("*", , , , , xlPrevious).Row    Nbre_jours = (Derlig - 1) / 24 ' prendre en compte année bissectiles    ReDim tab_temp_moy_ext(Nbre_jours, 3) 'champ2=jour, 1=mois 3:maxi,4: mini    '------Mémorisation de la température moyenne extérieure    For Lig = 2 To Derlig Step 24        Jour = Jour + 1        T_jour = Worksheets("Données inter PMV et DR").Range(Cells(Lig, "A"), Cells(Lig, "B"))        T_temp = Worksheets("Données inter PMV et DR").Range(Cells(Lig, "D"), Cells(Lig + 23, "D"))        tab_temp_moy_ext(Jour, 1) = T_jour(1, 1)        tab_temp_moy_ext(Jour, 2) = T_jour(1, 2)        tab_temp_moy_ext(Jour, 3) = Application.Average(T_temp)            Next    '-----Restitutions des mesures    Worksheets("Données inter PMV et DR").Range("AN2").Resize(UBound(tab_temp_moy_ext), 3) = tab_temp_moy_ext        End Sub

Le problème c'est que sur la ligne de code 
 T_jour = Worksheets("Données inter PMV et DR").Range(Cells(Lig, "A"), Cells(Lig, "B")), 
j'ai une erreur de type 1004, "Erreur définie par l'application ou l'objet"

Je n'arrive pas à résoudre ce problème.

En vous remerciant d'avance,

jordane45 · Answer

Bonjour,

 Selon toi, que doit contenir la variab le T_jour  ?
Si c'est le contenu d'une cellule ou bien correspondre à un RANGE ?

Si c'est un range il faut écrire :

Dim T_jour  as Range

SET T_jour = Worksheets("Données inter PMV et DR").Range(Cells(Lig, "A"), Cells(Lig, "B"))

jordane45 · Answer

Je viens de tester ... aucun souci chez moi :

Sub temp_moy_24h()

Dim Derlig As Integer, Nbre_jours As Integer
Dim Lig As Integer, Jour As Integer, tab_temp_moy_ext
Dim T_jour As Range
Dim T_temp As Range

Dim oSh As Worksheet
Set oSh = Worksheets("Données inter PMV et DR")

'Température extérieure moyenne sur 24h

'initialisations

Application.ScreenUpdating = False
    'nettoyage tableau résultats
    oSh.Range("AN2:AN8760").ClearContents
    Derlig = oSh.Columns("A").Find("*", , , , , xlPrevious).Row
    Nbre_jours = (Derlig - 1) / 24
    ReDim tab_temp_moy_ext(Nbre_jours, 3)
    
'------Mémorisation des températures maxi/mini par jour/mois

For Lig = 2 To Derlig Step 24
        Jour = Jour + 1
        Set T_jour = oSh.Range(Cells(Lig, "A"), Cells(Lig, "B"))
        Set T_temp = oSh.Range(Cells(Lig, "D"), Cells(Lig + 23, "D"))
        tab_temp_moy_ext(Jour, 1) = T_jour(1, 1)
        tab_temp_moy_ext(Jour, 2) = T_jour(1, 2)
        tab_temp_moy_ext(Jour, 3) = Application.Average(T_temp)

Next
    
'-----Restitutions des mesures
    oSh.Range("AN2").Resize(UBound(tab_temp_moy_ext), 3) = tab_temp_moy_ext
        
End Sub


Si ça bloque encore chez toi ...  postes nous un fichier Excel d'exemple contenant ta macro (sur un site comme  cijoint.com par exemple) et donnes nous le lien pour le récupérer.

Erreur type 1004

2 réponses

Discussions similaires