Bonjour, et une excellente année 2006 à toutes et à tous !
Je voudrais savoir s'il est possible de concaténer n cellules d'une liste
(chaque cellule contenant un caractère) sans pointer sur les cellules.
Autrement dit, j'aurai bien aimé que =CONCATENER(A1:A1001) et mieux encore
que =CONCATENER(GAUCHE(A1:A1001)) me donne une chaîne de 1000 caractères.
Si quelqu'un a une idée... merci d'avance.
Ah... et sans macro (avec, je saurai faire)
--
A+
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
JB
Bonjour,
Fonction perso à placer dans un module (Alt+11 puis Insertion/Module)
Function concatene(champ As Range) Dim temp As String For i = 1 To champ.Count If Not IsEmpty(champ(i)) And Not champ(i) = 0 Then temp = temp & champ(i) End If Next i concatene = temp End Function
dans la feuille de calcul: =concatene(A4:A6)
Cordialement JB
Bonjour,
Fonction perso à placer dans un module (Alt+11 puis Insertion/Module)
Function concatene(champ As Range)
Dim temp As String
For i = 1 To champ.Count
If Not IsEmpty(champ(i)) And Not champ(i) = 0 Then
temp = temp & champ(i)
End If
Next i
concatene = temp
End Function
Fonction perso à placer dans un module (Alt+11 puis Insertion/Module)
Function concatene(champ As Range) Dim temp As String For i = 1 To champ.Count If Not IsEmpty(champ(i)) And Not champ(i) = 0 Then temp = temp & champ(i) End If Next i concatene = temp End Function
dans la feuille de calcul: =concatene(A4:A6)
Cordialement JB
Vincnet.
Eh bien merci JB, mais je ne dois pas avoir de macro du tout (fonction perso ou autre). Sinon, j'aurai su faire. Mais peut-être n'est-ce pas possible, auquel cas, éh bien, tant pis pour moi ! -- A+
V.
Bonjour,
Fonction perso à placer dans un module (Alt+11 puis Insertion/Module)
Function concatene(champ As Range) Dim temp As String For i = 1 To champ.Count If Not IsEmpty(champ(i)) And Not champ(i) = 0 Then temp = temp & champ(i) End If Next i concatene = temp End Function
dans la feuille de calcul: =concatene(A4:A6)
Cordialement JB
Eh bien merci JB, mais je ne dois pas avoir de macro du tout (fonction perso
ou autre). Sinon, j'aurai su faire. Mais peut-être n'est-ce pas possible,
auquel cas, éh bien, tant pis pour moi !
--
A+
V.
Bonjour,
Fonction perso à placer dans un module (Alt+11 puis Insertion/Module)
Function concatene(champ As Range)
Dim temp As String
For i = 1 To champ.Count
If Not IsEmpty(champ(i)) And Not champ(i) = 0 Then
temp = temp & champ(i)
End If
Next i
concatene = temp
End Function
Eh bien merci JB, mais je ne dois pas avoir de macro du tout (fonction perso ou autre). Sinon, j'aurai su faire. Mais peut-être n'est-ce pas possible, auquel cas, éh bien, tant pis pour moi ! -- A+
V.
Bonjour,
Fonction perso à placer dans un module (Alt+11 puis Insertion/Module)
Function concatene(champ As Range) Dim temp As String For i = 1 To champ.Count If Not IsEmpty(champ(i)) And Not champ(i) = 0 Then temp = temp & champ(i) End If Next i concatene = temp End Function
