Erreur d'éxecution '1004'

[PAD]

Bonjour le forum,

Voila j'ai une erreur 1004 et je n'arrive pas à m'en sortir . Si un expert voir même un grande maitre en la matiére pouvait me guider, je serai complé.

Je vous joint mon fichier.

Merci d’avance pour votre aide,

Amicalement

PAD
[file name=dev1_20060318103108.zip size=45088]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dev1_20060318103108.zip[/file] [file name=dev1_20060318103108.zip size=45088]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dev1_20060318103108.zip[/file]

 

[justine]

bonjour le forum, pad
j'ai regardé ton application, mais je t'avoue que je vois pas comment il fonctionne.
mais un petit mode d'emploi, ca aiderai.
merci

 

[Bernard_XLD]

Bonjour Pad et Justine

ton problème vient de la ligne

Y = Y + 1
Y = Sheets('Devis').Range('Y, 4').End(xlUp).Row + 1

si je comprends bien, tu veux récupérer la première ligne innocupée de la quatrième colonne en partant de la fin de la plage définie
le code serait plutot cela

Y = Y + 1
Y = Sheets('Devis').Range('D' & Y).End(xlUp).Row + 1

Cordialement, A+

Message édité par: yeahou, à: 18/03/2006 11:21

 

[PAD]

Bonjour Justine, Yeahou

Yeahoo, je vais faire l'essai de ton code pour info je suis nul en VBA alors c'est peu-être pour ça il y a des choses que j'ai du mal à expliquer...:sick:

Justine, voila un nouveau fichier avec des explications de ce que je souhaitais faire.


Amicalement

PAD

 

[PAD]

inch: j'ai oublier... [file name=dev1_20060318121051.zip size=45743]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dev1_20060318121051.zip[/file]

 

[Bernard_XLD]

Re

le code ci dessous sélectionnera la première cellule libre en colonne B

Sheets('Devis').Range('B65536').End(xlUp).Offset(1, 0).Select

on fait la même pour colonne C mais à partir de B qui reste la référence une fois initialisée

Sheets('Devis').Range('B65536').End(xlUp).Offset(0, 1).Select

pour D, etc

Sheets('Devis').Range('B65536').End(xlUp).Offset(0, 2).Select

ce qui donne au final un code genre

Dim Cel_Ref As Range
Set Cel_Ref = Sheets('Devis').Range('B65536').End(xlUp).Offset(1, 0)
With Cel_Ref
    .Value = 1
    .Offset(0, 1).Value = 2
    .Offset(0, 2).Value = 3
    .Offset(0, 3).Value = 4
    .Offset(0, 4).Value = 5
    .Offset(0, 5).Value = 6
    .Offset(0, 6).Value = 7
End With

Cordialement, A+

 

[PAD]

Re Yeahou,

Merci pour ton aide, je vais vite faire un essai,


A+ PAD