Bonjour,
J'ai lu cette discussion.
je suis novice en macro et ce message semble être la réponse à mon problème mais je ne sais pas trop comment la faire fonctionner.
Citation Envoyé par decondelite Voir le message
A adapter ce code qui travaille la colonne A et met le résultat en B1:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim contenu_cellule as String, derniere_ligne As Integer, i As Integer
derniere_ligne = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
contenu_cellule = Cells(1,1).Value
If Not derniere_ligne = 1 Then
    For i=2 To derniere_ligne
        contenu_cellule = contenu_cellule & "," & Cells(i,1).Value
    Next
End If
Cells(1,2).Value = contenu_cellule
Cordialement
J'ai fait Alt+F11 et j'ai créé un module et copié le code fournis dedans
j'ai ensuite enregistré mais il semble que je doit faire autre chose pour que cela marche. Faut il créer Function Dim(x;y) en début de macro ou quelque chose du genre ? Merci d'avance pour votre réponse.
Cordialement
Romaric