Erreur d'execution 1004

[maryrossignon]

Bonjour le Forum,

Voici ma question :

Depuis la migration d'Excel 2003 vers 2007 la fonction suivante m'affiche une erreur d'execution 1004.

Est ce que quelqu'un pourrait m'aider svp à corriger le code pour que ça fonctionne à nouveau.

Sub CompilationLigneEntete1()
Dim f As Worksheet
Set f = Sheets("Compilation")
Application.ScreenUpdating = False
Entete = Array("Cpte", "Jrnl", "NR", "Date", "Documents", "Mt HTVA (D)", "Mt HTVA (C)", "C.I.", "C.A.", "Commentaires", "Conducteurs", "Transmises le", "A retourner, le", "Remise, le", "Etat", "A payer", "Échéance", "Echue, le", "Retard PT", "Payée, le", "Rappel")
[COLOR="Red"][B][I]f.Cells(1, 1).EntireRow.Insert[/I][/B][/COLOR]
With f
    With .Range("A1:X1")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Value = Entete
        .Interior.ColorIndex = 15
    With .Font
        .Size = 10
        .Bold = True
        .Italic = True
        .ColorIndex = 1
    End With
    End With
End With
    f.Cells.RowHeight = 14
    Application.ScreenUpdating = True
End Sub

Cordialement.
MaryR

 

[kjin]

Re : Erreur d'execution 1004

Bonsoir,
Je ne vois pas mais je doute que ce soit un pb de syntaxe et je n'ai pas 2007, néanmoins testes cette version où j'en ai profité pour regrouper les lignes

Sub CompilationLigneEntete1()
Dim f As Worksheet
Set f = Sheets("Compilation")
Application.ScreenUpdating = False

Entete = Array("Cpte", "Jrnl", "NR", "Date", "Documents", "Mt HTVA (D)", _
        "Mt HTVA (C)", "C.I.", "C.A.", "Commentaires", "Conducteurs", "Transmises le", _
        "A retourner, le", "Remise, le", "Etat", "A payer", "Échéance", "Echue, le", _
        "Retard PT", "Payée, le", "Rappel")

With f
    .Rows(1).Insert
    .Rows.RowHeight = 14
        With .Range("A1:X1")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Value = Entete
            .Interior.ColorIndex = 15
                With .Font
                    .Size = 10
                    .Bold = True
                    .Italic = True
                    .ColorIndex = 1
                End With
        End With
End With

Application.ScreenUpdating = True
End Sub

A+
kjin

 

[maryrossignon]

Re : Erreur d'execution 1004

Bonsoir le Forum,
Bonsoir Kjin,

Désolée pour le retard de réponse...

Malheureusement, j'ai toujours le même message d'erreur.

Cordialement
MaryR

 

[GIBI]

Re : Erreur d'execution 1004

Bonsoir,

poste ton PB sur le forum 2007 tu auras plus de chance de tomber sur un bon forumeur

Toutefois, as-tu essayé les écritures suivantes qui sont plus logiques

f.Rows(1).EntireRow.Insert
f.Rows(1).Insert

ou
Sheets("Compilation").Rows(1).Insert

GIBI

 

[maryrossignon]

Re : Erreur d'execution 1004

Bonsoir,

Merci pour ta réponse Gibi mais j'ai toujours le même message même avec tes suggestions...

Je vais suivre ton conseil et poster ma question sur le Forum pour Excel 2007.

Cordialement.
MaryR

 

[kjin]

Re : Erreur d'execution 1004

Bonsoir,
As tu une précision concernant l'erreur 1004 ?

...Toutefois, as-tu essayé les écritures suivantes qui sont plus logiques...

Pourquoi est ce plus logique ?
A+
kjin

 

[GIBI]

Re : Erreur d'execution 1004

Bonsoir,

as-tu vu que la plage de cellules n'est pas en accord avec l'array soit 20 occurences (mais rien à voir avec l'erreur 1004)

With .Range("A1:U1")


Pour kjin : pour moi, mais c'est un avis perso, quand j'insère une ligne faire référence à une ligne me parit plus logique que de faire référence à une cellule (Row(1) au lieu de cells(1,1))

GIBI