Identifier la dernière cellule par macro

Papou-net

XLDnaute Barbatruc

• 8 Novembre 2015

• #2

Re : Identifier la dernière cellule par macro

Bonsoir Vilain,

Remplace le "Range" par "Cells".

Ex:

Code:

DerLigne = Range("O" & Rows.Count).End(xlUp).Row
DerColonne = Range("XFD" & Columns.Count).End(xlToLeft).Column
DerCellule = Cells(DerLigne, DerColonne)

Cordialement.

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 8 Novembre 2015

• #3

Re : Identifier la dernière cellule par macro

Bonsoir Papou,

C'est parfois si logique que je passe à travers...
Merci beaucoup.
Par contre j'ai maintenant une erreur sur cette ligne :
Range("P2").AutoFill Destination:=Range("P2:" & DerCellule)

Encore merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Novembre 2015

• #4

Re : Identifier la dernière cellule par macro

RE:

Peut-être qu'en définissant l'adresse de DerCellule ?

Code:

Range("P2").AutoFill Destination:=Range("P2:" & DerCellule.Address)

Cordialement.

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 8 Novembre 2015

• #5

Re : Identifier la dernière cellule par macro

Re,

non, je comprends pas, j'aiune erreur 424 : objet requis

Merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Novembre 2015

• #6

Re : Identifier la dernière cellule par macro

RE:

Ah oui, je pense qu'il faut définir DerCellule en tant qu'objet Range:

Code:

DerLigne = Range("O" & Rows.Count).End(xlUp).Row
DerColonne = Range("XFD" & Columns.Count).End(xlToLeft).Column
Set DerCellule = Cells(DerLigne, DerColonne)

Ensuite, j'essaierais comme ceci:

Code:

Range("P2").AutoFill Destination:=Range(Range("P2:"), DerCellule)

A+

Cordialement.

 

Vote positif 0 Vote négatif

T

Tentative

XLDnaute Occasionnel

• 8 Novembre 2015

• #7

Re : Identifier la dernière cellule par macro

Bonjour,

Je n'ai réussit qu'en faisant deux étapes :

Une tentative :

Code:

Dim DerLigne, DerColonne As Integer

DerLigne = Range("O" & Rows.Count).End(xlUp).Row
DerColonne = Cells(DerLigne, Columns.Count).End(xlToLeft).Column

Range("P2").Select
Selection.Copy
Selection.AutoFill Destination:=Range(Cells(2, 16), Cells(DerLigne, 16)), Type:=xlFillDefault

Range(Cells(2, 16), Cells(DerLigne, 16)).Select
Selection.Copy
Selection.AutoFill Destination:=Range(Cells(2, 16), Cells(DerLigne, DerColonne)), Type:=xlFillDefault
Range("P2").Select

Tentative

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 8 Novembre 2015

• #8

Re : Identifier la dernière cellule par macro

Décidément, on va pas y arriver.
C'est une erreur 1004 cette fois-ci (range de l'objet global).
Une autre idée ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Novembre 2015

• #9

Re : Identifier la dernière cellule par macro

RE:

Si tu peux joindre une copie de ton travail, car avec des extraits de code on est vite limités.

As-tu testé la proposition de Tentative (que je salue au passage)?

A +

Cordialement.

 

Vote positif 0 Vote négatif

T

Tentative

XLDnaute Occasionnel

• 8 Novembre 2015

• #10

Re : Identifier la dernière cellule par macro

Bonjour,

Oui, ma proposition est testé positive ... 8- )))


Tentative

 

Dernière édition: 8 Novembre 2015

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 8 Novembre 2015

• #11

Re : Identifier la dernière cellule par macro

Re, j'ai testé la version de tentative (bonsoir et merci à lui).
je n'ai pas d'erreur mais cela ne tire que sur la colonne.
Je crée un fichier et j'envoie ça.
Encore merci

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 8 Novembre 2015

• #12

Re : Identifier la dernière cellule par macro

Re,

Voila un fichier en exemple

 

Pièces jointes

• Classeur1.xls

  32.5 KB · Affichages: 50
• Classeur1.xls

  32.5 KB · Affichages: 46

Vote positif 0 Vote négatif

T

Tentative

XLDnaute Occasionnel

• 8 Novembre 2015

• #13

Re : Identifier la dernière cellule par macro

Bonjour,

Tu nous mentionnais (post #1) que tu sélectionnais les nombre de lignes sur la colonne "O".
Dans ton exemple, je dois le faire sur la colonne "P" (à moins que je n'ai rien compris à ta demande).

Code:

Dim DerLigne, DerColonne As Integer

DerLigne = Range("P" & Rows.Count).End(xlUp).Row
DerColonne = Cells(2, Columns.Count).End(xlToLeft).Column  ' légèrement modifié

Range("P2").Select
Selection.Copy
Selection.AutoFill Destination:=Range(Cells(2, 16), Cells(DerLigne, 16)), Type:=xlFillDefault

Range(Cells(2, 16), Cells(DerLigne, 16)).Select
Selection.Copy
Selection.AutoFill Destination:=Range(Cells(2, 16), Cells(DerLigne, DerColonne)), Type:=xlFillDefault
Range("P2").Select

Tentative

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 8 Novembre 2015

• #14

Re : Identifier la dernière cellule par macro

Re,
non, tu as bien compris, j'ai juste mal créé mon exemple, désolé...
Par contre quand je colle ton code, ça ne fonctionne toujours pas. J'avoue ne pas comprendre.
Tu peux poster le tien que je comprenne mon erreur ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Novembre 2015

• #15

Re : Identifier la dernière cellule par macro

RE:

Plus trop le temps de continuer pour ce soir, mais je t'envoie le lien d'une discussion similaire par le passé.

Tu y trouveras peut-être la réponse.

https://www.excel-downloads.com/threads/autofill-avec-vba.119902/
Bonne soirée.

Cordialement.

 

Vote positif 0 Vote négatif