Erreur 1004 dans VBA

[fredoalex]

bonjour à tous,

j'ai une erreur d'execution 1004 : erreur définie par l'application ou par l'objet
les lignes de mon code VBA concernés sont celle ci dessous.

fr = Range("O" & Rows.Count).End(xlUp).Row
Range("r5:ac5").Select
Selection.AutoFill Destination:=Range("R5:AC" & fr)

savez vous d'où proviens l'erreur svp ?
merci d'avance

 

[mutzik]

Re : Erreur 1004 dans VBA

bonjour,

apparemment pas d'erreur
essaie peut être en activant l'enregistreur de macro et voir le résultat

 

[fredoalex]

Re : Erreur 1004 dans VBA

bonjour mutzik

je n'arrives pas à faire ce que je veux avec l'enregistreur de macro car apparement mes cellules fusionnées sont pas la même taille

 

[phlaurent55]

Re : Erreur 1004 dans VBA

Bonjour à tous


Il est peut etre necessaire d'indiquer la feuille

Sheets(''nomdlafeuille'').Range(.............

À+
Philippe

Edit: éviter si possible les cellules fusionnées , trop souvent la cause de problèmes

 

[Compte Supprimé 979]

Re : Erreur 1004 dans VBA

Bonjour le fil

Comme l'a dis si bien phlaurent55, que je salue, il faut peut-être indiquer la feuille (objet conteneur)

Un autre moyen de le faire

  Dim fr As Long
  With Sheets("Feuil1")
    fr = .Range("O" & Rows.Count).End(xlUp).Row
    .Range("R5:AC5").AutoFill Destination:=.Range("R5:AC" & fr)
  End With

A+