Ne concaténer que sous condition

pierrejean

XLDnaute Barbatruc

• 24 Septembre 2010

• #2

Re : Ne concaténer que sous condition

Bonjour phil

Et bienvenue sur XLD

Avec une fonction personnalisée et en supposant avoir bien compris ton problème

 

Pièces jointes

• phil_concat.zip

  8.7 KB · Affichages: 29
• phil_concat.zip

  8.7 KB · Affichages: 32
• phil_concat.zip

  8.7 KB · Affichages: 29

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 24 Septembre 2010

• #3

Re : Ne concaténer que sous condition

Bonjour

Un essai

Code:

Function concatener_sans_doublon(entree)
Dim nb As Long, i As Long, j As Long
Dim res() As Variant
  nb = UBound(entree.Value, 2) - 1
  ReDim res(nb)
  For i = 1 To nb + 1
    res(i - 1) = entree(1, i).Value
  Next i
  For i = 0 To nb - 1
    For j = i + 1 To nb
      If res(i) = res(j) Then res(j) = ""
    Next j
  Next i
  concatener_sans_doublon = Join(res, "")
End Function

Note Bonjour pierrejean le temps que je ponde le code t'est déjà passé...

 

Vote positif 0 Vote négatif

P

phil_

Guest

• 24 Septembre 2010

• #4

Re : Ne concaténer que sous condition

Merci pour vos réponse rapide.

Oui c'est tout à fait celà, concaténer en supprimant les doublons et en séparant les mots par un -

Encore merci.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 24 Septembre 2010

• #5

Re : Ne concaténer que sous condition

Re

pour séparer par un -
il faut modifier
concatener_sans_doublon = Join(res, "")
par
concatener_sans_doublon = Join(res, "-")

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Septembre 2010

• #6

Re : Ne concaténer que sous condition

Re

Salut tbft

Version avec le - intermediaires

 

Pièces jointes

• phil_concat.zip

  9 KB · Affichages: 32
• phil_concat.zip

  9 KB · Affichages: 28
• phil_concat.zip

  9 KB · Affichages: 28

Dernière édition: 24 Septembre 2010

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Septembre 2010

• #7

Re : Ne concaténer que sous condition

Bonjour

Un petit tour sur ce fil juste pour saluer un nouveau rennais sur le forum et faire un coucou à Pierrejean (cela fait plaisir de te voir)

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Septembre 2010

• #8

Re : Ne concaténer que sous condition

Re

Merci Pascal

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 24 Septembre 2010

• #9

Re : Ne concaténer que sous condition

Bonjour à tous,

Pour une proposition en formule :

 

Pièces jointes

• Classeur1.xls

  16 KB · Affichages: 84
• Classeur1.xls

  16 KB · Affichages: 85
• Classeur1.xls

  16 KB · Affichages: 86

Vote positif 0 Vote négatif

P

phil_

Guest

• 27 Septembre 2010

• #10

Re : Ne concaténer que sous condition

Bonjour à tous.

Encore merci pour vos réponses. Super, çà correspond tout à fait à ma recherche.

 

Vote positif 0 Vote négatif