Dernligne sur vba

Si_bbr Messages postés 27 Date d'inscription mardi 12 juillet 2022 Statut Membre Dernière intervention 29 septembre 2023 - Modifié le 28 sept. 2023 à 19:27
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 29 sept. 2023 à 18:16

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
29 sept. 2023 à 12:24

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 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
28 sept. 2023 à 20:19

Bonjour,

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


0
Le Pingou Messages postés 12104 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 10 juin 2024 1 442
28 sept. 2023 à 22:27

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 mardi 12 juillet 2022 Statut Membre Dernière intervention 29 septembre 2023
29 sept. 2023 à 10:55

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 12104 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 10 juin 2024 1 442
29 sept. 2023 à 17:37

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 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
Modifié le 29 sept. 2023 à 18:59

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 mardi 12 juillet 2022 Statut Membre Dernière intervention 29 septembre 2023
29 sept. 2023 à 12:45
-2