Bonjour à tous !
Connaitriez vous la solution pour concatener une plage de cellules ?
=concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne =concatener(B1:B10)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RaMa
Bonjour Public Function conc(plage As Range, Optional sep) As String Dim q As String Dim c As Range Application.Volatile q = IIf(IsMissing(sep), "", sep) For Each c In plage conc = conc & c & q Next End Function
où plage est la plage à concaténer Sep séparateur facultatif Ex: =conc(b1:b10;"/") ou =conc(b1:b10) Salutations RaMa
"arnaud" a écrit dans le message de news:
Bonjour à tous ! Connaitriez vous la solution pour concatener une plage de cellules ? =concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne =concatener(B1:B10)
Merci pour les réponses Arnaud
Bonjour
Public Function conc(plage As Range, Optional sep) As String
Dim q As String
Dim c As Range
Application.Volatile
q = IIf(IsMissing(sep), "", sep)
For Each c In plage
conc = conc & c & q
Next
End Function
où plage est la plage à concaténer
Sep séparateur facultatif
Ex: =conc(b1:b10;"/") ou =conc(b1:b10)
Salutations
RaMa
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
Ohc7HyGpEHA.3396@tk2msftngp13.phx.gbl...
Bonjour à tous !
Connaitriez vous la solution pour concatener une plage de cellules ?
=concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne =concatener(B1:B10)
Bonjour Public Function conc(plage As Range, Optional sep) As String Dim q As String Dim c As Range Application.Volatile q = IIf(IsMissing(sep), "", sep) For Each c In plage conc = conc & c & q Next End Function
où plage est la plage à concaténer Sep séparateur facultatif Ex: =conc(b1:b10;"/") ou =conc(b1:b10) Salutations RaMa
"arnaud" a écrit dans le message de news:
Bonjour à tous ! Connaitriez vous la solution pour concatener une plage de cellules ? =concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne =concatener(B1:B10)
Merci pour les réponses Arnaud
arnaud
Super ! ça marche du tonnerre !! Merci Beaucoup !!
"RaMa" a écrit dans le message de news: Os$
Bonjour Public Function conc(plage As Range, Optional sep) As String Dim q As String Dim c As Range Application.Volatile q = IIf(IsMissing(sep), "", sep) For Each c In plage conc = conc & c & q Next End Function
où plage est la plage à concaténer Sep séparateur facultatif Ex: =conc(b1:b10;"/") ou =conc(b1:b10) Salutations RaMa
"arnaud" a écrit dans le message de news:
Bonjour à tous ! Connaitriez vous la solution pour concatener une plage de cellules ? =concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne =concatener(B1:B10)
Merci pour les réponses Arnaud
Super !
ça marche du tonnerre !!
Merci Beaucoup !!
"RaMa" <PaSpam_rmarceau@free.fr> a écrit dans le message de news:
Os$eLNHpEHA.2588@TK2MSFTNGP12.phx.gbl...
Bonjour
Public Function conc(plage As Range, Optional sep) As String
Dim q As String
Dim c As Range
Application.Volatile
q = IIf(IsMissing(sep), "", sep)
For Each c In plage
conc = conc & c & q
Next
End Function
où plage est la plage à concaténer
Sep séparateur facultatif
Ex: =conc(b1:b10;"/") ou =conc(b1:b10)
Salutations
RaMa
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
Ohc7HyGpEHA.3396@tk2msftngp13.phx.gbl...
Bonjour à tous !
Connaitriez vous la solution pour concatener une plage de cellules ?
=concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne
=concatener(B1:B10)
Super ! ça marche du tonnerre !! Merci Beaucoup !!
"RaMa" a écrit dans le message de news: Os$
Bonjour Public Function conc(plage As Range, Optional sep) As String Dim q As String Dim c As Range Application.Volatile q = IIf(IsMissing(sep), "", sep) For Each c In plage conc = conc & c & q Next End Function
où plage est la plage à concaténer Sep séparateur facultatif Ex: =conc(b1:b10;"/") ou =conc(b1:b10) Salutations RaMa
"arnaud" a écrit dans le message de news:
Bonjour à tous ! Connaitriez vous la solution pour concatener une plage de cellules ? =concatener(B1;B2;B3;B4;B5;B6;B7;B8;B9;B10) devienne =concatener(B1:B10)
