Discussion :

[SAP_Excel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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.

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SAP_Excel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )=

[eriiic]

Bonjour,

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

[SAP_Excel]

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.

[Menhir]

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.