XL 2016 Concatenation en vba

JJCODO à dit:

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"

Cliquez pour agrandir...

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

JJCODO à dit:

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

Cliquez pour agrandir...

JJCODO à dit:

Bonjour Jacky
Voici qqs explications supplémentaires et je joins un fichier d'exemple
Merci d'avance:

En colonne A il peut y avoir de 1 à X cellules contenant des prénoms

En colonne C après l'exécution de la macro la concaténation est correcte avec le séparateur ", "

Toutefois si en colonne A, il n'y a qu'une seule cellule non-vide soit par exemple Paul en A4, La macro génére une erreur pour cette ligne "For i = 1 To UBound(Tablo)"

Je voudrais éviter ce problème

Cliquez pour agrandir...

soan à dit:

Bonjour Jacky,

c'est pas grave : le problème mentionné dans le post #6 a été résolu par le nouveau fichier de pierrejean du post #7 ; et le post #8 de JJCODO confirme que ça fonctionne très bien. (grâce à pierrejean ; moi j'y suis pour rien : j'ai seulement lu la conversation)​

soan

Cliquez pour agrandir...

soan à dit:

@Jacky67

j'ai suivi la procédure indiquée par JJCODO dans son post #6 : j'ai effacé A5:A7 ➯ il reste un seul prénom : c'est "Paul" en A4 ; puis j'ai cliqué sur le bouton "Concaténation" ➯ cette erreur d'exécution :​

Regarde la pièce jointe 1104996

dans le code VBA, la ligne en jaune est celle-ci :

For i = 1 To UBound(Tablo)

soan

Cliquez pour agrandir...