Erreur d'éxecution '1004'

justine

XLDnaute Occasionnel

• 18 Mars 2006

• #2

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 18 Mars 2006

• #3

Bonjour Pad et Justine

ton problème vient de la ligne

Code:

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

Code:

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

Cordialement, A+

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 18 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 18 Mars 2006

• #5

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]

 

Pièces jointes

• dev1_20060318121051.zip

  44.7 KB · Affichages: 20

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 18 Mars 2006

• #6

Re

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

Code:

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

Code:

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

pour D, etc

Code:

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

ce qui donne au final un code genre

Code:

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+

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 18 Mars 2006

• #7

Re Yeahou,

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


A+ PAD

 

Vote positif 0 Vote négatif