Dernligne sur vba
Bonjour a toutes et tous,
J'ai un soucis sur mon code :
J'aimerais que ma formule concatener s'étende jusqu'à ce que je n'ai plus de données dans la colonne D, mais actuellement la formule s'étend a l'infini..
Ou est-ce que j'ai fait erreur svp?
PS: désolé pour la qualité photo je n'ai que ça sous la main
Merci d'avance
7 réponses
-
Contributeur
Bonjour
Pour trouver la denière ligne utilisée dans une colonne
Derlig = .Columns("D").Find(what:="*", searchdirection:=xlPrevious).Row
-
Bonjour,
Ta capture est illisible, copie simplement ton code ou joint ton fichier anonymisé
-
Bonjour,
De plus il est impossible de comprendre ce que vous voulez réaliser...
Comme le propose Mike-31 (Salutations) mettre le fichier sur https://www.cjoint.com/ et poster le lien.
-
Désolé oui sans zoomer c'est illisible je reconnais je vais essayer de récupérer le code ( je n'ai pas le pc avec moi )
-
Bonjour,
Oui c'est plus visible, toutefois impossible de comprendre ce que vous voulez réaliser, manque une explication claire!
-
Re,
Comme l'ami Le Pingou que je salue l'a écrit je ne vois pas ou est utilisé la syntaxe dernligne.
autrement pour avoir l'index ligne de la dernière cellule non vide colonne B, plusieurs façon de faire, celle proposé par Michel_m que je salue également mais en ôtant le point parasite devant Columns
dernligne = Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
ou une de ces trois façons
dernligne = Cells(Columns(2).Cells.Count, 2).End(xlUp).Row
dernligne = Range("B" & Rows.Count).End(xlUp).Row
dernligne = Range("B65000").End(xlUp).Row
-
