Concaténer et vitgules

Question

Dans un fichier Excel j'ai deux feuilles. La feuille "saisie" et la "Feuil 1". Dans la feuille saisie je rentre des noms de pièces (une par ligne) dans la colonne 1. Ce nombre de pièces est variable à chaque fois. Dans la feuil 1 je souhaite reprendre dans une seule cellule l'ensemble des pièces et je voudrais les séparer par une virgule. J'ai donc utilisé la fonction concaténer sur l'ensemble de la plage des pièces référencées et j'ai séparé les pièces par une virgule. Mon problème est que quand la page des pièces n'est pas complète, je vois dans la cellule de la Feuil 1 qui regroupe mes pièces les virgules qui ne servent à rien. Mon but est d'avoir dans la cellule de destination uniquement les pièces saisies sans les virgules après la fin de cette liste. Avez-vous une idée pour faire cela. Je joins un fichier. Merci de votre aide...

xorsankukai · Answer

Bonjour rrianrrian , le forum, Un essai par macro.....elle s'exécute à l'activation de la Feuil1.... Private Sub Worksheet_Activate() Dim i As Long, dl As Long Dim msg As String With Sheets("saisie") dl = .Range("A" &amp; Rows.Count).End(xlUp).Row For i = 19 To dl If .Range("A" &amp; i) &lt;&gt; "" Then msg = msg &amp; "," &amp; .Range("A" &amp; i) Next i End With Range("A17").MergeArea = Right(msg, Len(msg) - 1) End Sub Cordialement...

galopin01 · Answer

Sinon si les macros ne te branchent pas trop, la formule modifié (Heu... je me suis arrêté à 39 mais rien ne t'empêche d'en rajouter !) A+...

galopin01 · Answer

Tu peux aussi transformer la macro en Function : (Module10)

Function Calc()
 Dim i As Long, dl As Long
 Dim msg As String
Application.Volatile
 With Sheets("saisie")
  dl = .Range("A" & Rows.Count).End(xlUp).Row
   For i = 19 To dl
    If .Range("A" & i) <> "" Then msg = msg & "," & .Range("A" & i)
   Next i
 End With
  Calc = Right(msg, Len(msg) - 1)
End Function

Ensuite dans chaque cellule :

= Calc()

ou si tu conserves la macro actuelle :

Dans chaque cellule :

=A17

A+

2copie-de-test-vg2.xlsm (342.44 Ko)

xorsankukai · Answer

Re,

Sous réserve que les cellules soient également fusionnées:

Private Sub Worksheet_Activate()
 Dim i As Long, dl As Long
 Dim msg As String

 With Sheets("saisie")
  dl = .Range("A" & Rows.Count).End(xlUp).Row
   For i = 19 To dl
    If .Range("A" & i) <> "" Then msg = msg & "," & .Range("A" & i)
   Next i
 End With
  'Range("A17").MergeArea = Right(msg, Len(msg) - 1)
  'Range("B1163").MergeArea = Right(msg, Len(msg) - 1)
  'Range("N1866").MergeArea = Right(msg, Len(msg) - 1)
  Range("A17:E17,B1163:F1163,N1866:R1866") = Right(msg, Len(msg) - 1)
End Sub

A ce propos, pourquoi fusionner les cellules alors que tu peux adapter la largeur des colonnes ?

Private Sub Worksheet_Activate()
 Dim i As Long, dl As Long
 Dim msg As String

 With Sheets("saisie")
  dl = .Range("A" & Rows.Count).End(xlUp).Row
   For i = 19 To dl
    If .Range("A" & i) <> "" Then msg = msg & "," & .Range("A" & i)
   Next i
 End With
  Range("A17,B1163,N1866") = Right(msg, Len(msg) - 1)
  Range("A17,B1163,N1866").Columns.AutoFit
End Sub

3copie-de-test2.xlsm (337.81 Ko)

Cordialement,

Sébastien · Answer

Une solution différente en passant pour ceux qui rencontreraient le même genre de problème (puisque ton problème à toi est déjà résolu) Exemple avec la fonction JOINDRE_NON_VIDE (nécessite d'avoir installé l' add-in gratuit du site) : =JOINDRE_NON_VIDE(saisie!A19:G68;", ") Cordialement...