Erreur d'execution 1004

[maryrossignon]

Bonsoir 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")
f.Rows(1).EntireRow.Insert
With f
    With .Range("A1:U1")
        .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

 

[PascalXLD]

Re : Erreur d'execution 1004

Bonjour

quelle ligne est surlignée ?

Mais pas sûr que cela vienne de 2007

 

[tactic6]

Re : Erreur d'execution 1004

Bonjour,
Fonctionne chez moi sans erreur

 

[maryrossignon]

Re : Erreur d'execution 1004

Bonsoir à Tous,

Voilà, c'est la ligne suivante qui est surlignée :

[I][B]f.Rows(1).EntireRow.Insert[/B][/I]

Cordialement
Mary

 

[PascalXLD]

Re : Erreur d'execution 1004

RE

Ta feuille ne serait pas protégée par hasard ??

 

[maryrossignon]

Re : Erreur d'execution 1004

Re Bonsoir,

Je ne pense pas que la feuille soit protégée.

Impossible d'envoyer le fichier, il est trop volumineux...
Je vais regarder pour préparer un échantillon à vous transmettre.

Cordialement
Mary

 

[ledzepfred]

Re : Erreur d'execution 1004

Bonsoir à tous,

bon j'ai pas la solution mais ça peut peut-être faire avancer le schimilili.

Quelle est le range de la dernière cellule dans laquelle il y a de la donnée, pour le savoir clic sur CTRL+FIN.
si ça se trouve excel ne peut inserer une ligne car de la donnée est présente sur la dernière ligne (pour eviter de perdre des données, Microsoft Excel ne peut déplacer des cellules non vides en dehors de la feuille d'ou l'erreur 1004)

Cela peut aussi expliquer la lourdeur de ton fichier.

Si c'est bien la cause du problème il suffit de supprimer les lignes inutiles et de réenregistrer le fichier avant de retenter l'execution du code

autres cas possibles d'erreur : le feuillet compilation n'appartient pas à la sélection (le nom du feuillet n'est peut-être pas libéllé comme dans le code) ou il n'est pas le feuillet actif

A+