Concatiner des cellules pleines (et pas vides)

mromain

XLDnaute Barbatruc

• 17 Février 2009

• #2

Re : Concatiner des cellules pleines (et pas vides)

salut jarod

essaye ça

' concaténation des cellules suivi par
concatene = Range("h500").Value
For n = 501 To Range("h510").End(xlUp).Row
if Range("h" & n).Value<>"" then
concatene = concatene & Chr$(10) & Range("h" & n).Value '& Chr(10) & sert à faire un retour à ligne dans excel
end if
Next
plg.Offset(, 12) = concatene 'plg est une cellule sélectionné par l'utilisateur

a+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 17 Février 2009

• #3

Re : Concatiner des cellules pleines (et pas vides)

Bonjour jarod1990,

peut-être comme ça :

concatene = concatene & iif(Range("h" & n).Value="", "", Chr(10) & Range("h" & n).Value)

Edit : bonjour mromain

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 17 Février 2009

• #4

Re : Concatiner des cellules pleines (et pas vides)

Bonjour tous



A tester

Code:

Sub testmacro()
Dim c As Range
Dim nonvides As Range
Dim plg As Range
Set plg = Range("a1")
'concaténation des cellules suivi par
concatene = Range("h500").Value
Set nonvides = Range("h501:h510").SpecialCells(xlCellTypeConstants, 23)
For Each c In nonvides
concatene = concatene & Chr$(10) & c.Value
Next
plg.Offset(, 12) = concatene 'plg
End Sub

A+

 

Vote positif 0 Vote négatif

J

jarod1990

Guest

• 17 Février 2009

• #5

Re : Concatiner des cellules pleines (et pas vides)

Merci à vous deux, j'utilise la solution de mromain et c'est parfait.
jarod

 

Vote positif 0 Vote négatif