Discussion :

[Joncy]

Bonjour à tous,

Je suis novice dans le codage mais j'essaye d'assimiler son fonctionnement (parfois complexe pour moi).
Je cherche à étendre uniquement la dernière cellule d'une colonne (dans un premier temps).

J'ai formulé le codage suivant (feuil1 est la feuille que je n'ai pas renommée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D7").AutoFill Destination:=Range(" D7:D" & Feuil1.Cells(Rows.Count, 5).End(xlUp)(2).Row)

Le problème est que la formule s'étend depuis la cellule D7. Je n'arrive pas à remplacer D7 par la dernière cellule non-vide.
Sachant que je ne veux pas non plus la nommer de manière précise (exemple : "D649"), car les lignes s'incrémentent)

j'espère que j'ai été assez clair.

En vous remerciant tous par avance !

[Franc]

Salut, essaie comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim lastRow As Long
lastRow = Feuil1.Cells(Rows.Count, 4).End(xlUp).Row
Feuil1.Range("D" & lastRow).AutoFill Destination:=Feuil1.Range("D" & lastRow & ":D" & Feuil1.Cells(Rows.Count, 5).End(xlUp)(2).Row)

[Joncy]

Salut Franc,

Merci beaucoup de ton aide, ça marche très bien !
J'essaye un peu de comprendre la formule et je demandais dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lastRow = Feuil1.Cells(Rows.Count, 4).End(xlUp).Row

Pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(Rows.Count, 4)

est égale à 4 et pas 5 ?

(un bouquin à me conseiller pour apprendre les base du codage ?)


Merci beaucoup !

[Franc]

Parce que la colonne D est la quatrième colonne, on pourrait aussi écrire (Rows.Count."D").
Il y a longtemps que je n'ai plus lu un bouquin
Il y a plein de ressources que tu peux trouver sur le net.
Les tutoriels ne manquent pas, entre autres ici sur developpez.com, jette un oeil sur ce lien: https://excel.developpez.com/cours/

[Joncy]

Merci pour les conseils Franc !