Concatiner des cellules pleines (et pas vides)

[jarod1990]

Bonjours,
j'utilise le code suivant pour concatiner des cellules mais le problèmes est que certaines sont vides et je ne veux pas qu'elles apparaissent dans mon résultat. POuvez vous m'aider ?

Cordialement

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

Merci de votre aide.
Cordialement.
Jarod

 

[mromain]

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+

 

[tototiti2008]

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

 

[vbacrumble]

Re : Concatiner des cellules pleines (et pas vides)

Bonjour tous



A tester

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+

 

[jarod1990]

Re : Concatiner des cellules pleines (et pas vides)

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