Dernligne sur vba

Si_bbr Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -

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

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 

Bonjour

Pour trouver la denière ligne utilisée dans une colonne

Derlig = .Columns("D").Find(what:="*", searchdirection:=xlPrevious).Row  


1
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 

Bonjour,

Ta capture est illisible, copie simplement ton code ou joint ton fichier anonymisé 


0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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.


0
Si_bbr Messages postés 27 Date d'inscription   Statut Membre Dernière intervention  
 

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 )

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

Bonjour,

Oui c'est plus visible, toutefois impossible de comprendre ce que vous voulez réaliser, manque une explication claire!


0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 

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
 


0
Si_bbr Messages postés 27 Date d'inscription   Statut Membre Dernière intervention  
 
-2