Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion tf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tf1

XLDnaute Occasionnel
Bonjour a tous

j'ai une liste de numéro de tel dans une colonne et je souhaite avoir une formule pour les mettre "en ligne" c'est a dire un a la suite de l'autre sous forme d'une ligne.
si dans la colonne je rajoute un ou supprime le résultat en ligne lui aussi je met a jour sous forme automatique.
Vois exemple dans le fichier joint

merci de votre aide
 

Pièces jointes

Re : N° de tel

Bonjour,

Quelle version excel est utilisée ?
Sinon pour 2007 et +, aller dans :
FICHIER
OPTIONS AVANCEES
Options d'édition
Utiliser les séparateurs système (décocher la case) pour pouvoir accéder à
Séparateur de décimale : Mettre le point à la place de la virgule

Puis faire OK
 
Re : N° de tel

Bonjour job75

Curieux, moi j'aurais dit "Mettre la virgule à la place du point".

Du moins si l'on ne veut pas utiliser la solution de mon post #16...

A+

Il est vrai que la solution du post#16 est ce qu'il y a de plus facile à réaliser.
Pour la virgule à la place du point , il essait les deux façons...........😱
 
Re : N° de tel

super

sa commence a marcher mais la fonction =ConcatPlage(Plage;" - ") ne marche pas chez moi
sa me met #NOM? Pourquoi?

Si j'utilise la fonction =A1&A2&A3...... je suis limite apparament a 15 lignes est 'il possible d'augmenter ?


merci
 
Re : N° de tel

Bonjour,

Avez vous bien mis le code de la fonction dans un module de l'éditeur VBA
Code VB:
Function ConcatPlage(plage As Range, Optional séparateur As String = ", ") As String
Dim rep As String, c As Range
For Each c In plage
If c.Value <> "" Then
rep = rep & c.Value & séparateur
End If
Next c
ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function





ou avec les codes de Job75 :

Code VB:
Function ConcatPlageVerticale(plage As Range, Optional séparateur As String = ", ") As String
ConcatPlageVerticale = Join(Application.Transpose(plage), séparateur)
End Function





Code VB:
Function ConcatPlageHorizontale(plage As Range, Optional séparateur As String = ", ") As String
ConcatPlageHorizontale = Join(Application.Transpose(Application.Transpose(plage)), séparateur)
End Function





Bien entendu, sauvegarder le fichier en prenant en compte les macros. (nom.xlm)



 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
112
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
223
Réponses
3
Affichages
169
Réponses
7
Affichages
689
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…