Fusionner les cellules selectionnées avec conservation texte

D

dudu29

Guest

• 10 Mai 2008

• #2

Re : Fusionner les cellules selectionnées avec conservation texte

Salut

essaye ce code

Sub Fusion()
'
' Fusion Macro
' Fusion des cellules sélectionnées en conservant le texte.
'
' Touche de raccourci du clavier: Ctrl+Maj+F
'

Dim cel As Range, res As String

For Each cel In Selection
If cel <> "" Then res = res & " " & cel
Next
Range("h" & Selection.Row) = Trim(res)
End Sub

@+ Dudu

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Mai 2008

• #3

Re : Fusionner les cellules selectionnées avec conservation texte

Bonjour,

Code:

Function concat(champ)
   temp = ""
   For Each c In champ
     If Len(c.Value) > 1 Then temp = temp & c.Value & " "
   Next c
   concat = Left(temp, Len(temp) - 1)
End Function

JB

 

Pièces jointes

• Classeur1.xls

  21.5 KB · Affichages: 585
• Classeur1.xls

  21.5 KB · Affichages: 617
• Classeur1.xls

  21.5 KB · Affichages: 631

Vote positif 0 Vote négatif

J

jmd2

XLDnaute Accro

• 10 Mai 2008

• #4

Re : Fusionner les cellules selectionnées avec conservation texte

hello

sans macro :

dans une 3 ème colonne =colonne1 & " " & colonne2
sélectionner colonne 3, copier
dans colonne3 collage spécial "valeurs"
fusionner 1 et 2, copier colonne 3, coller
si besoin supprimer colonne 3

 

Vote positif 0 Vote négatif

N

nak

XLDnaute Occasionnel

• 10 Mai 2008

• #5

Re : Fusionner les cellules selectionnées avec conservation texte

Merci à tous
Boisgontier ta formule me convient parfaitement 🙂
de cette manière je peux intégrer un module à la feuille que je veux.

Merci

 

Vote positif 0 Vote négatif

T

toine2010

Guest

• 14 Avril 2011

• #6

Re : Fusionner les cellules selectionnées avec conservation texte

Bonjour,
Le code de BOISGONTIER est très pratique mais je souhaiterais qu'après la fusion, chaque texte soit renvoyé à la ligne automatiquement
A1
A2
A3
Qqn a t'il la solution?
Merci

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 14 Avril 2011

• #7

Re : Fusionner les cellules selectionnées avec conservation texte

Boujour,
Intercale Chr(10)
A+

 

Vote positif 0 Vote négatif

T

toine2010

Guest

• 14 Avril 2011

• #8

Re : Fusionner les cellules selectionnées avec conservation texte

J'ai essayé mais ça ne fonctionne pas, où alors je ne le mets pas au bon endroit!
A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #9

Re : Fusionner les cellules selectionnées avec conservation texte

Bonjour,

essaye avec la constante "vbLf" :

Code:

Range("A1").Value = "xxx" & vbLf & "yyy"

bonne journée
@+

 

Vote positif 0 Vote négatif

T

toine2010

Guest

• 15 Avril 2011

• #10

Re : Fusionner les cellules selectionnées avec conservation texte

Merci mais je n'arrive pas à intégrer ce saut de ligne dans le script de BOISGONTIER :
Function concat(champ)
temp = ""
For Each c In champ
If Len(c.Value) > 1 Then temp = temp & c.Value & " "
Next c
concat = Left(temp, Len(temp) - 1)
End Function

Merci de votre aide!...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #11

Re : Fusionner les cellules selectionnées avec conservation texte

Re,

peut être comme ceci :

Code:

For Each c In champ
If Len(c.Value) > 1 Then temp = temp & c.Value & vbLf 
Next c

 

Vote positif 0 Vote négatif

T

toine2010

Guest

• 15 Avril 2011

• #12

Re : Fusionner les cellules selectionnées avec conservation texte

Re Hélas ça ne fonctionne pas!!!
A+

 

Vote positif 0 Vote négatif