Concatenation à plage variable

Bonjour à tous,
Je souhaite réaliser une concaténation à plage variable. En effet je réalise une extraction de SAP qui m'indique un certain nombre d'information concernant un produit, l'idée est de regrouper ces info's dans une seule cellule. Cependant je n'arrive pas à me débrouiller avec les plages variables... ( un produit peu avoir plusieurs info's ou aucune)
Le code suivant

Code:

---

1 2 3 4 5 6 7 8 9

Public Function cc(ByVal NomCol As Integer, Debut As Integer, fin As Integer) As String   cc = "" For i = Debut To fin cc = cc & Chr(10) & Cells(i, NomCol).Value Next   End Function

---

Me permet de de concatener la plage que je souhaite mais je dois indiquer les valeurs à chaque fois, sur un tableau regroupant plusieurs 100 aines de produits il serait utile de pouvoir définir une plage variable ...
Pour définir ma plage j'ai utilisé la fonction

Code:

---

=SI(C2=C1;"";LIGNE(C2))

---

+
cela me permet de trouver la ligne d'apparition de chaque produit.
Si vous avez des pistes de réflexions, je suis preneur.

Il serait plus simple de transmettre les paramètres en terme de références de cellules.

Code:

---

1 2 3 4 5 6 7

Public Function cc(ByVal Debut As Range, ByVal Fin As Range) As String Dim CurCell As Range cc = "" For Each CurCell in Range(Debut, Fin) cc = cc & Chr(10) & CurCells.Value Next CurCell End Function

---

Le gros avantage, c'est que quand tu utilises cette fonction dans Excel, les paramètres peuvent être des références relatives qui se modifieront d'elles-même à la copie.

Merci Menhir, j'étais arrivé à la même conclusion hier et j'avais fait une mouture à peu prêt identique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function cc(ByVal plage As Range) As String cc = "" Dim cellule As Range Dim Chaine For Each cellule In plage Chaine = Chaine & Chr(10) & cellule.Value Next cellule cc = Chaine     End Function

---

Par contre On est bien d'accord que Chr(10) fait référence à la table ascii et devrai faire un renvoie à la ligne systématique ? car ça ne le fait pas )=

Bonjour,

il faut que 'Renvoyer à la ligne automatiquement' soit coché.
eric

Merci Eriic,
J'ai une autre erreur qui a "pop", en voulant tester la solution de Menhir, j'ai mis ma solution en commentaire. Quand j'ai voulu la réutiliser, le message d'erreur " #Nom? est apparu, je ne comprends pas pourquoi étant donné que la fonction été bien défini 5 min auparavant.

Citation:

---

Envoyé par SAP_Excel

Quand j'ai voulu la réutiliser, le message d'erreur " #Nom? est apparu, je ne comprends pas pourquoi étant donné que la fonction été bien défini 5 min auparavant.

---

Je suppose que tu as mis l'autre en commentaire (parce que deux fonctions avec le même nom, Excel va en perdre son latin).
Tu as vu aussi que les deux fonctions n'ont pas le même nombre de paramètres.

Petit détail : dans ta macro, déclare le type de la variable Chaine, ce sera plus sûr. Ou supprime-la, ce qui serait encore mieux.

Tu avais raison Menhir j'ai du lui en faire perdre son latin ...
Le renvois à la ligne automatique c'est pas mal mais petit bémol, les espaces sont mis même lorsque je concatène des cellules sans texte ( Pas sûr d'être clair sur ce coup)
Faut-il inclure une condition pour éviter cela ?

Citation:

---

Envoyé par SAP_Excel

Faut-il inclure une condition pour éviter cela ?

---

Code:

---

Chaine = Chaine & IIf(Len(cellule.Value) = 0 Or Len(Chaine) = 0, "", Chr(10)) & cellule.Value

---

Merci beaucoup Menhir,
Je n'avais pas connaissance de la structure IIF voilà qui est chose faite :)