<laurent.longre@free.fr>De: Laurent longre 
Objet: Re: Concat&eacute;ner
Date : mardi 23 novembre 1999 19:51


A l'aide d'une fonction, par exemple (concat&eacute;nation ligne par ligne):

function CONCATENE(Plage As range, _
  Optional S&eacute;parateur As String) As String
  dim I As long
  CONCATENE = Plage(1)
  if Plage.count = 1 then Exit function
  for I = 2 to Plage.count
    CONCATENE = CONCATENE & S&eacute;parateur & Plage(I)
  next I
end function

Sub Test()
  msgbox CONCATENE([A1:B12], " ")
end Sub

Cordialement,

Laurent

> Michel CHARLIER a &eacute;crit :
> 
> Bonsoir,
> 
> D&eacute;sol&eacute; si j'abuse, mais
> 
> Comment concat&eacute;ner sous VBA un nombre variable de Datas  et en mettant
> un espace entre les datas
> 
> Soit concat&eacute;ner 12 lignes de cellules, 33 lignes, 113 lignes, x nombre
> de cellule
> 
> D'avance merci
> 
> Michel CHARLIER  XL97-SR2 / XL2000
> 
> --
> michel.charlier@skynet.be
> 
>