Concatenation si cellules non vides

A

antiphot

XLDnaute Occasionnel

• 7 Janvier 2010

• #16

Re : Concatenation si cellules non vides

Bonjour Jocelyn

Merci pour le "Bricolage", c'est parfait !

 

Vote positif 0 Vote négatif

A

antiphot

XLDnaute Occasionnel

• 7 Janvier 2010

• #17

Re : Concatenation si cellules non vides

Bonjour Jocelyn

Merci pour le "Bricolage", c'est parfait !

 

Vote positif 0 Vote négatif

J

jejdjd

XLDnaute Nouveau

• 8 Octobre 2019

• #18

Bonjour,

Merci a tous pur vos réponses, il me reste juste un petit problème

Voici mon code :
Function ConcatPlage(plage As Range, séparateur As String, Optional contenant As String) As String
Dim rep As String, c As Range
For Each c In plage
If InStr(c.Value, contenant) > 0 And c.Value <> "-" And c.Value <> "0" And c.Value <> "." And c.Value <> ".." And c.Value <> "Autres" And c.Value <> "autres" Then
rep = rep & c.Value & séparateur
End If
Next c
ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function


Lorsqu'il n'y a pas de contenu dans H, G et I, il m'écrit "#VALEUR!" et je souhaiterais que si il ne trouve rien il écrive un espace vide.
Savez-vous comment je peux faire, s'il vous plaît ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Octobre 2019

• #19

Bonjour jejdjd,

L'avant-dernière ligne de code :

VB:

if rep <> "" Then ConcatPlage = Left(rep, Len(rep) - Len(séparateur))

A+

 

Vote positif 0 Vote négatif

J

jejdjd

XLDnaute Nouveau

• 8 Octobre 2019

• #20

Super merci !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2019

• #21

Bonsoir le fil , jejdjd, job75

jejdjd
Tu ne te serais pas emmêlé les pinceaux ans les fils par hasard ?
Parce qu'on attends un signe de ta part dans ton propre fil (qui lui n'a pas déjà 10 ans d'âge)

https://www.excel-downloads.com/threads/concatener-un-ensemble-de-cellules-avec-excel.20036909/

 

Vote positif 0 Vote négatif

M

mcnano

XLDnaute Nouveau

• 26 Août 2021

• #22

Jocelyn à dit:

Re : Concatenation si cellules non vides

Bonjour le Forum,
Bonjour antiphot, nat54, l'ami pierrejean,

alors en formule une plus courte pour pierrejean,

=SUBSTITUE(SUPPRESPACE(A1&" "&A2&" "&A3&" "&A4&" "&A5);" ";"-")

Jocelyn

Oup's Bonjour hoerwind, désolé pour la collision, et je n'ais pas copié

Cliquez pour agrandir...

Bonjour à tous et merci pour ce petit forum car c'était exactement ce dont j'avais besoin
La formule marche nickel
Juste un détail bien chiant dans mon cas : je cherche à l'utiliser pour un score de tennis. 6 colonnes, chacune représentant le score de chaque joueur dans chaque set (joueur1SET1, joueur2set1, joueur1set2 ...).
Si mes colonnes ont pour valeur 6,2,4,2,vide,vide : le résultat va être 6-2-4-2
Ma question est simple mais sûrement compliquée : comment ne pas avoir de tiret entre 2 sets mais seulement entre les 2 jeux d'un set :/
Merci aux ingés en formules ))

Ma formule actuelle :
=SUBSTITUTE(TRIM(K2&" "&L2&" "&M2&" "&N2&" "&O2&" "&P2);" ";"-")

 

Dernière édition: 26 Août 2021

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Août 2021

• #23

Bonjour à tous,

Je ne connais pas ta version d'excel mais ci-joint une approche avec joindre.texte()

JHA

 

Pièces jointes

• Classeur concatener.xlsx

  11.5 KB · Affichages: 3

Vote positif 0 Vote négatif

M

mcnano

XLDnaute Nouveau

• 26 Août 2021

• #24

JHA à dit:

Bonjour à tous,

Je ne connais pas ta version d'excel mais ci-joint une approche avec joindre.texte()

JHA

Cliquez pour agrandir...

Merci pour la réactivité
Excel 2016 et Google Sheets !
En fait l'idée est vraiment d'avoir le score complet dans une seule et unique cellule.
Car la valeur de cette cellule va être reportée automatiquement sur une petite app de Livescoring...
Jusqu'à maintenant je faisais très simple avec : =K2&"-"&L2&" "&M2&"-"&N2&" "&O2&"-"&P2
Mais le souci était la présence systématique des tirets donc résultat moche sur l'app...
Maintenant je parviens en effet à retirer les tirets en cas de cellule vide ce qui déjà une belle avancée MAIS les tirets entre les sets sont vraiment de trop et rendre le résultat finalement pas plus exploitable ...

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Août 2021

• #25

Bonjour à tous,

A essayer

VB:

=INDEX(DECALER($B11;;;;2);1)&" "&INDEX(DECALER($B11;;;;2);2)&" - "&INDEX(DECALER($D11;;;;2);1)&" "&INDEX(DECALER($D11;;;;2);2)&SI(F11<>"";" - ";"")&INDEX(DECALER($F11;;;;2);1)&" "&INDEX(DECALER($F11;;;;2);2)

JHA

 

Pièces jointes

• Classeur concatener.xlsx

  11.7 KB · Affichages: 2

Vote positif 0 Vote négatif

M

mcnano

XLDnaute Nouveau

• 26 Août 2021

• #26

Merci je pense avoir réussi
J'ai bien le format 6-4 3-0
TOP
Possible de jouer sur l'espace entre 2 données par ex entre les sets ? 6-4 6-3
J'arrive en ajoutant plusieurs fois &" "& mais si cela s'affiche sur le sheet ça ne passe pas sur l'app. Il y a peut-être une formule mieux adaptée ?
Merci encore

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 27 Août 2021

• #27

Bonjour à tous,

Restons simple!
A essayer

VB:

=$B11&"-"&$C11&"   "&$D11&"-"&$E11&SI($F11<>"";"  ";"")&$F11&SI($F11<>"";"-";"")&$G11

Si il peut n'y avoir qu'une seule partie

VB:

=$B11&"-"&$C11&SI($D11<>"";"  ";"")&$D11&SI($D11<>"";"-";"")&$E11&SI($F11<>"";"  ";"")&$F11&SI($F11<>"";"-";"")&$G11

JHA

 

Pièces jointes

• Classeur concatener.xlsx

  11.9 KB · Affichages: 1

Dernière édition: 27 Août 2021

Vote positif 0 Vote négatif