Identifier la dernière cellule par macro

[Vilain]

Bonjour à tous,

J'ai un petit souci avec ma macro.
J'ai des données dans ma colonne O.
J'ai des intitulés de colonnes sur ma première ligne.
Je cherche à identifier la cellule de ma dernière ligne et de ma dernière colonne.
Je fais ça pour le moment :

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

Le but ici est de tirer de ma cellule P2 à ma dernière cellule via :
Range("P2").AutoFill Destination:=Range("P2:" & DerCellule)

Je n'arrive pas à trouver où se situe l'erreur.
Une âme charitable pour m'aider ?

Merci par avance

 

[Papou-net]

Re : Identifier la dernière cellule par macro

Bonsoir Vilain,

Remplace le "Range" par "Cells".

Ex:

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

Cordialement.

 

[Vilain]

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

 

[Papou-net]

Re : Identifier la dernière cellule par macro

RE:

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

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

Cordialement.

 

[Vilain]

Re : Identifier la dernière cellule par macro

Re,

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

Merci

 

[Papou-net]

Re : Identifier la dernière cellule par macro

RE:

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

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:

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

A+

Cordialement.

 

[Tentative]

Re : Identifier la dernière cellule par macro

Bonjour,

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

Une tentative :

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

 

[Vilain]

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 ?

 

[Papou-net]

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.

 

[Tentative]

Re : Identifier la dernière cellule par macro

Bonjour,

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


Tentative

 

[Vilain]

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

 

[Vilain]

Re : Identifier la dernière cellule par macro

Re,

Voila un fichier en exemple

 

[Tentative]

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).

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

 

[Vilain]

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 ?

 

[Papou-net]

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.