> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe de la
fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe de la
fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe de la
fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe de
la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe de
la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe de
la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
de la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
OjkPWSevJHA.4476@TK2MSFTNGP02.phx.gbl...
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
de la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
de la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées il
insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" a écrit dans le message de
news:Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
de la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées il
insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: euHtnuevJHA.5452@TK2MSFTNGP02.phx.gbl...
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
OjkPWSevJHA.4476@TK2MSFTNGP02.phx.gbl...
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
de la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées il
insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" a écrit dans le message de
news:Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
de la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
bonjour Rex,
cette fonction accepte entre 1 et 4 groupe de cellule,
Function SuperCONCATENATION(ByVal Plage1 As Range, Optional Plage2 As
Range, _
Optional Plage3 As Range, Optional Plage4 As Range) As String
On Error Resume Next
For Each c In Plage1
x = x & c.Value
Next
For Each c In Plage2
x = x & c.Value
Next
For Each c In Plage3
x = x & c.Value
Next
For Each c In Plage4
x = x & c.Value
Next
SuperCONCATENATION = x
End Function
isabelle
rthompson a écrit :OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées
il insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" a écrit dans le
message de news:Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un
petit bout de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
syntaxe de la fonction
CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
bonjour Rex,
cette fonction accepte entre 1 et 4 groupe de cellule,
Function SuperCONCATENATION(ByVal Plage1 As Range, Optional Plage2 As
Range, _
Optional Plage3 As Range, Optional Plage4 As Range) As String
On Error Resume Next
For Each c In Plage1
x = x & c.Value
Next
For Each c In Plage2
x = x & c.Value
Next
For Each c In Plage3
x = x & c.Value
Next
For Each c In Plage4
x = x & c.Value
Next
SuperCONCATENATION = x
End Function
isabelle
rthompson a écrit :
OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées
il insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: euHtnuevJHA.5452@TK2MSFTNGP02.phx.gbl...
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un
petit bout de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news: OjkPWSevJHA.4476@TK2MSFTNGP02.phx.gbl...
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
syntaxe de la fonction
CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
bonjour Rex,
cette fonction accepte entre 1 et 4 groupe de cellule,
Function SuperCONCATENATION(ByVal Plage1 As Range, Optional Plage2 As
Range, _
Optional Plage3 As Range, Optional Plage4 As Range) As String
On Error Resume Next
For Each c In Plage1
x = x & c.Value
Next
For Each c In Plage2
x = x & c.Value
Next
For Each c In Plage3
x = x & c.Value
Next
For Each c In Plage4
x = x & c.Value
Next
SuperCONCATENATION = x
End Function
isabelle
rthompson a écrit :OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées
il insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" a écrit dans le
message de news:Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un
petit bout de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
syntaxe de la fonction
CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit b out
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu le u
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de ne ws:
>> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde synta xe de
>> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
>> en la remplaçant par une formule du genre :
>> SUPERCONCATENATION(A1:L1) ?
> Une fonction personnalisée : dans un module :
> Function SUPERCONCATENATION(plage As Range)
> For Each c In plage
> x = x & c.Value
> Next
> SUPERCONCATENATION = x
> End Function
> Dans la feuille
> =SUPERCONCATENATION(A1:L1)
> Etc- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit b out
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu le u
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de ne ws:
OjkPWSevJHA.4...@TK2MSFTNGP02.phx.gbl...
>> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde synta xe de
>> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
>> en la remplaçant par une formule du genre :
>> SUPERCONCATENATION(A1:L1) ?
> Une fonction personnalisée : dans un module :
> Function SUPERCONCATENATION(plage As Range)
> For Each c In plage
> x = x & c.Value
> Next
> SUPERCONCATENATION = x
> End Function
> Dans la feuille
> =SUPERCONCATENATION(A1:L1)
> Etc- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit b out
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu le u
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de ne ws:
>> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde synta xe de
>> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
>> en la remplaçant par une formule du genre :
>> SUPERCONCATENATION(A1:L1) ?
> Une fonction personnalisée : dans un module :
> Function SUPERCONCATENATION(plage As Range)
> For Each c In plage
> x = x & c.Value
> Next
> SUPERCONCATENATION = x
> End Function
> Dans la feuille
> =SUPERCONCATENATION(A1:L1)
> Etc- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
une autre plus simple :
Function test(ParamArray Plage()) As String
On Error Resume Next
For i = i To 100
For Each c In Plage(i)
test = test & c
Next
Next
End Function
isabelle
isabelle a écrit :bonjour Rex,
cette fonction accepte entre 1 et 4 groupe de cellule,
Function SuperCONCATENATION(ByVal Plage1 As Range, Optional Plage2 As
Range, _
Optional Plage3 As Range, Optional Plage4 As Range) As String
On Error Resume Next
For Each c In Plage1
x = x & c.Value
Next
For Each c In Plage2
x = x & c.Value
Next
For Each c In Plage3
x = x & c.Value
Next
For Each c In Plage4
x = x & c.Value
Next
SuperCONCATENATION = x
End Function
isabelle
rthompson a écrit :OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées il
insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" a écrit dans le message
de news:Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit
bout de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
syntaxe de la fonction
CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
une autre plus simple :
Function test(ParamArray Plage()) As String
On Error Resume Next
For i = i To 100
For Each c In Plage(i)
test = test & c
Next
Next
End Function
isabelle
isabelle a écrit :
bonjour Rex,
cette fonction accepte entre 1 et 4 groupe de cellule,
Function SuperCONCATENATION(ByVal Plage1 As Range, Optional Plage2 As
Range, _
Optional Plage3 As Range, Optional Plage4 As Range) As String
On Error Resume Next
For Each c In Plage1
x = x & c.Value
Next
For Each c In Plage2
x = x & c.Value
Next
For Each c In Plage3
x = x & c.Value
Next
For Each c In Plage4
x = x & c.Value
Next
SuperCONCATENATION = x
End Function
isabelle
rthompson a écrit :
OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées il
insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news: euHtnuevJHA.5452@TK2MSFTNGP02.phx.gbl...
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit
bout de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news: OjkPWSevJHA.4476@TK2MSFTNGP02.phx.gbl...
Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
syntaxe de la fonction
CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
une autre plus simple :
Function test(ParamArray Plage()) As String
On Error Resume Next
For i = i To 100
For Each c In Plage(i)
test = test & c
Next
Next
End Function
isabelle
isabelle a écrit :bonjour Rex,
cette fonction accepte entre 1 et 4 groupe de cellule,
Function SuperCONCATENATION(ByVal Plage1 As Range, Optional Plage2 As
Range, _
Optional Plage3 As Range, Optional Plage4 As Range) As String
On Error Resume Next
For Each c In Plage1
x = x & c.Value
Next
For Each c In Plage2
x = x & c.Value
Next
For Each c In Plage3
x = x & c.Value
Next
For Each c In Plage4
x = x & c.Value
Next
SuperCONCATENATION = x
End Function
isabelle
rthompson a écrit :OUPSSSSSS
Oublié de dire que, bien sûr, concatenate seul le fait
Mais j'aurais voulu qu'en sélectionnant plusieurs cellule éparpillées il
insère automatiquement un espace entre les textes
Merci
A bientôt
Rex
"rthompson" a écrit dans le message
de news:Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit
bout de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de
news:Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
syntaxe de la fonction
CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
en la remplaçant par une formule du genre :
SUPERCONCATENATION(A1:L1) ?
Une fonction personnalisée : dans un module :
Function SUPERCONCATENATION(plage As Range)
For Each c In plage
x = x & c.Value
Next
SUPERCONCATENATION = x
End Function
Dans la feuille
=SUPERCONCATENATION(A1:L1)
Etc
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
>> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
>> de
>> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
>> en la remplaçant par une formule du genre :
>> SUPERCONCATENATION(A1:L1) ?
> Une fonction personnalisée : dans un module :
> Function SUPERCONCATENATION(plage As Range)
> For Each c In plage
> x = x & c.Value
> Next
> SUPERCONCATENATION = x
> End Function
> Dans la feuille
> =SUPERCONCATENATION(A1:L1)
> Etc- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
OjkPWSevJHA.4...@TK2MSFTNGP02.phx.gbl...
>> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
>> de
>> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
>> en la remplaçant par une formule du genre :
>> SUPERCONCATENATION(A1:L1) ?
> Une fonction personnalisée : dans un module :
> Function SUPERCONCATENATION(plage As Range)
> For Each c In plage
> x = x & c.Value
> Next
> SUPERCONCATENATION = x
> End Function
> Dans la feuille
> =SUPERCONCATENATION(A1:L1)
> Etc- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir
Je plonge dans ce fil avec délectation
Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
de temps
MAIS
Comment faire si les cellules à conco... ne sont pas à la queu leu leu
J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
Comment faire?
Merci et à bientôt
Rex
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
>> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syntaxe
>> de
>> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
>> en la remplaçant par une formule du genre :
>> SUPERCONCATENATION(A1:L1) ?
> Une fonction personnalisée : dans un module :
> Function SUPERCONCATENATION(plage As Range)
> For Each c In plage
> x = x & c.Value
> Next
> SUPERCONCATENATION = x
> End Function
> Dans la feuille
> =SUPERCONCATENATION(A1:L1)
> Etc- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Que signifie ton bout de code " Application.Volatile"
Bonjour Steph et merci
Le truc Isabelle fonctionne très bien
Mais le tien me donne erreur "Value"
Que signifie ton bout de code " Application.Volatile" ?
Merci et à bientôt
Rex
a écrit dans le message de news:
Bonjour,
Doubler les parenthèses avant de pointer les plages:
Function SpCt(ByRef maplage As Range) As String
Dim c As Range
Application.Volatile
For Each c In Range(maplage.Address).Cells
SpCt = SpCt & c
Next
End Function
'lSteph
On 15 avr, 19:00, "rthompson"
wrote:
> Bonsoir
> Je plonge dans ce fil avec délectation
> Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
> de temps
> MAIS
> Comment faire si les cellules à conco... ne sont pas à la queu leu leu
> J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
> Comment faire?
> Merci et à bientôt
> Rex
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
>
> >> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syn taxe
> >> de
> >> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
> >> en la remplaçant par une formule du genre :
> >> SUPERCONCATENATION(A1:L1) ?
> > Une fonction personnalisée : dans un module :
> > Function SUPERCONCATENATION(plage As Range)
> > For Each c In plage
> > x = x & c.Value
> > Next
> > SUPERCONCATENATION = x
> > End Function
> > Dans la feuille
> > =SUPERCONCATENATION(A1:L1)
> > Etc- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Que signifie ton bout de code " Application.Volatile"
Bonjour Steph et merci
Le truc Isabelle fonctionne très bien
Mais le tien me donne erreur "Value"
Que signifie ton bout de code " Application.Volatile" ?
Merci et à bientôt
Rex
<gmlst...@gmail.com> a écrit dans le message de news:
04485fd0-6886-4271-821e-76ed7ad41...@y7g2000yqa.googlegroups.com...
Bonjour,
Doubler les parenthèses avant de pointer les plages:
Function SpCt(ByRef maplage As Range) As String
Dim c As Range
Application.Volatile
For Each c In Range(maplage.Address).Cells
SpCt = SpCt & c
Next
End Function
'lSteph
On 15 avr, 19:00, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:
> Bonsoir
> Je plonge dans ce fil avec délectation
> Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
> de temps
> MAIS
> Comment faire si les cellules à conco... ne sont pas à la queu leu leu
> J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
> Comment faire?
> Merci et à bientôt
> Rex
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> OjkPWSevJHA.4...@TK2MSFTNGP02.phx.gbl...
> >> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syn taxe
> >> de
> >> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
> >> en la remplaçant par une formule du genre :
> >> SUPERCONCATENATION(A1:L1) ?
> > Une fonction personnalisée : dans un module :
> > Function SUPERCONCATENATION(plage As Range)
> > For Each c In plage
> > x = x & c.Value
> > Next
> > SUPERCONCATENATION = x
> > End Function
> > Dans la feuille
> > =SUPERCONCATENATION(A1:L1)
> > Etc- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Que signifie ton bout de code " Application.Volatile"
Bonjour Steph et merci
Le truc Isabelle fonctionne très bien
Mais le tien me donne erreur "Value"
Que signifie ton bout de code " Application.Volatile" ?
Merci et à bientôt
Rex
a écrit dans le message de news:
Bonjour,
Doubler les parenthèses avant de pointer les plages:
Function SpCt(ByRef maplage As Range) As String
Dim c As Range
Application.Volatile
For Each c In Range(maplage.Address).Cells
SpCt = SpCt & c
Next
End Function
'lSteph
On 15 avr, 19:00, "rthompson"
wrote:
> Bonsoir
> Je plonge dans ce fil avec délectation
> Tu viens de proposer un truc que je cherchais à faire depuis un petit bout
> de temps
> MAIS
> Comment faire si les cellules à conco... ne sont pas à la queu leu leu
> J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
> Comment faire?
> Merci et à bientôt
> Rex
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
>
> >> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde syn taxe
> >> de
> >> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
> >> en la remplaçant par une formule du genre :
> >> SUPERCONCATENATION(A1:L1) ?
> > Une fonction personnalisée : dans un module :
> > Function SUPERCONCATENATION(plage As Range)
> > For Each c In plage
> > x = x & c.Value
> > Next
> > SUPERCONCATENATION = x
> > End Function
> > Dans la feuille
> > =SUPERCONCATENATION(A1:L1)
> > Etc- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Que signifie ton bout de code " Application.Volatile"
Bonjour Steph et merci
Le truc Isabelle fonctionne très bien
Mais le tien me donne erreur "Value"
Que signifie ton bout de code " Application.Volatile" ?
Merci et à bientôt
Rex
a écrit dans le message de news:
Bonjour,
Doubler les parenthèses avant de pointer les plages:
Function SpCt(ByRef maplage As Range) As String
Dim c As Range
Application.Volatile
For Each c In Range(maplage.Address).Cells
SpCt = SpCt & c
Next
End Function
'lSteph
On 15 avr, 19:00, "rthompson"
wrote:
> Bonsoir
> Je plonge dans ce fil avec délectation
> Tu viens de proposer un truc que je cherchais à faire depuis un petit
> bout
> de temps
> MAIS
> Comment faire si les cellules à conco... ne sont pas à la queu leu leu
> J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
> Comment faire?
> Merci et à bientôt
> Rex
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
>
> >> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
> >> syntaxe
> >> de
> >> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
> >> en la remplaçant par une formule du genre :
> >> SUPERCONCATENATION(A1:L1) ?
> > Une fonction personnalisée : dans un module :
> > Function SUPERCONCATENATION(plage As Range)
> > For Each c In plage
> > x = x & c.Value
> > Next
> > SUPERCONCATENATION = x
> > End Function
> > Dans la feuille
> > =SUPERCONCATENATION(A1:L1)
> > Etc- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Que signifie ton bout de code " Application.Volatile"
Bonjour Steph et merci
Le truc Isabelle fonctionne très bien
Mais le tien me donne erreur "Value"
Que signifie ton bout de code " Application.Volatile" ?
Merci et à bientôt
Rex
<gmlst...@gmail.com> a écrit dans le message de news:
04485fd0-6886-4271-821e-76ed7ad41...@y7g2000yqa.googlegroups.com...
Bonjour,
Doubler les parenthèses avant de pointer les plages:
Function SpCt(ByRef maplage As Range) As String
Dim c As Range
Application.Volatile
For Each c In Range(maplage.Address).Cells
SpCt = SpCt & c
Next
End Function
'lSteph
On 15 avr, 19:00, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:
> Bonsoir
> Je plonge dans ce fil avec délectation
> Tu viens de proposer un truc que je cherchais à faire depuis un petit
> bout
> de temps
> MAIS
> Comment faire si les cellules à conco... ne sont pas à la queu leu leu
> J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
> Comment faire?
> Merci et à bientôt
> Rex
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> OjkPWSevJHA.4...@TK2MSFTNGP02.phx.gbl...
> >> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
> >> syntaxe
> >> de
> >> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
> >> en la remplaçant par une formule du genre :
> >> SUPERCONCATENATION(A1:L1) ?
> > Une fonction personnalisée : dans un module :
> > Function SUPERCONCATENATION(plage As Range)
> > For Each c In plage
> > x = x & c.Value
> > Next
> > SUPERCONCATENATION = x
> > End Function
> > Dans la feuille
> > =SUPERCONCATENATION(A1:L1)
> > Etc- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Que signifie ton bout de code " Application.Volatile"
Bonjour Steph et merci
Le truc Isabelle fonctionne très bien
Mais le tien me donne erreur "Value"
Que signifie ton bout de code " Application.Volatile" ?
Merci et à bientôt
Rex
a écrit dans le message de news:
Bonjour,
Doubler les parenthèses avant de pointer les plages:
Function SpCt(ByRef maplage As Range) As String
Dim c As Range
Application.Volatile
For Each c In Range(maplage.Address).Cells
SpCt = SpCt & c
Next
End Function
'lSteph
On 15 avr, 19:00, "rthompson"
wrote:
> Bonsoir
> Je plonge dans ce fil avec délectation
> Tu viens de proposer un truc que je cherchais à faire depuis un petit
> bout
> de temps
> MAIS
> Comment faire si les cellules à conco... ne sont pas à la queu leu leu
> J'ai essayé =SUPERCONCATENATION(A1;D1;H1) sans succès
> Comment faire?
> Merci et à bientôt
> Rex
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
>
> >> Quelqu'un saurait me dire s'il y a moyen de s'éviter la lourde
> >> syntaxe
> >> de
> >> la fonction CONCATENER(A1;B1;C1;D1;E1;F1;...;...;...;...;..;L1)
> >> en la remplaçant par une formule du genre :
> >> SUPERCONCATENATION(A1:L1) ?
> > Une fonction personnalisée : dans un module :
> > Function SUPERCONCATENATION(plage As Range)
> > For Each c In plage
> > x = x & c.Value
> > Next
> > SUPERCONCATENATION = x
> > End Function
> > Dans la feuille
> > =SUPERCONCATENATION(A1:L1)
> > Etc- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -