XL 2016 Concatenation en vba

JJCODO

XLDnaute Nouveau
Bonjour à tous

Sous Excel 2016, je voudrais en VBA, concaténer les valeurs d'un nombre aléatoire de cellules de la colonne A et trouver le résultat dans une cellule B10.

Dans la réalité les prénoms sont des adresses mail

Exemple:

A B

10 PAUL PAUL, JOHN, RENE

11 JOHN

12 RENE

Merci d'avance de votre aide

"Un très mauvais en VBA"
 

Jacky67

XLDnaute Barbatruc
Bonjour à tous

Sous Excel 2016, je voudrais en VBA, concaténer les valeurs d'un nombre aléatoire de cellules de la colonne A et trouver le résultat dans une cellule B10.

Dans la réalité les prénoms sont des adresses mail

Exemple:

A B

10 PAUL PAUL, JOHN, RENE

11 JOHN

12 RENE

Merci d'avance de votre aide

"Un très mauvais en VBA"
Bonjour,
Cela pourrait ressembler à ceci
L'exemple commence à la cellule A2
VB:
Sub Conca()
    Dim C$, Tablo, i&
    With Feuil1
        Tablo = .Range("a2:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        For i = 1 To UBound(Tablo)
            C = C & Tablo(i, 1) & ", "
        Next
        .[b10] = Left(C, Len(C) - 2)
    End With
End Sub

Sinon, un classeur exemple........
 
Dernière édition:

JJCODO

XLDnaute Nouveau
Bonjour

J'ai encore une question :

Si le nombre de cellule non vide en colonne A est aléatoire et supérieur à 1, la macro s'exécute sans pb

S'il n'y a qu'une cellule non vide, la macro renvoie une erreur de compilation

Comment faire pour avoir malgré tout un résultat en colonne C, s'il y a une seule cellule non vide en Colonne A.

Autrement dit ,je voudrai que la macro fonctionne dans tout les cas.

Je vous joins le fichier d'exemples

Merci d'avance de votre aide
 

Pièces jointes

  • Concatenation .xlsm
    13.8 KB · Affichages: 1

Jacky67

XLDnaute Barbatruc
Bonjour

J'ai encore une question :

Si le nombre de cellule non vide en colonne A est aléatoire et supérieur à 1, la macro s'exécute sans pb

S'il n'y a qu'une cellule non vide, la macro renvoie une erreur de compilation

Comment faire pour avoir malgré tout un résultat en colonne C, s'il y a une seule cellule non vide en Colonne A.

Autrement dit ,je voudrai que la macro fonctionne dans tout les cas.

Je vous joins le fichier d'exemples

Merci d'avance de votre aide
Re,
Il faudra donner un peu plus d'information sur l'organisation réelle de la feuille avec plus de donnée.
Les écarts entre le mot "données" sont les mêmes ?
Que doit exactement figurée dans la concaténation ?
Le virgules doivent figurer ?
Joindre un classeur exemple et une feuille avec inscrit en dur le résultat souhaité.
 
Dernière édition:

Discussions similaires

Haut Bas