cellule multi ligne

[gh4]

bjr a tous

ma bd contient des cellules a plusieurs ligne
comment avoir le contenu exact de la cellule a plusieurs dans une listebox
et comment renvoyer cette listbox vers un cellule avec le bon format

d'avance merci a tous

 

[gh4]

Re : cellule multi ligne

joint le fichier pour plus de comprehension

 

[ledzepfred]

Re : cellule multi ligne

ça doit être possible dans les propriétés du combobox

D'ailleurs à ce sujet message à tous les excelliens : quand quelqu'un de brillant va nous pondre un référentiel en français des propriétés des controles?

a+

 

[ledzepfred]

Re : cellule multi ligne

j'ai pas trouvé dans les propriétés (m'enerve ces propriétés)

par contre je te propose ceci

Private Sub CommandButton2_Click()
With Sheets("base")
lign = 16
colon = 2
10
If Cells(lign, colon) <> "" Then
lign = lign + 1
GoTo 10
End If
Cells(lign, 2) = Application.WorksheetFunction.Substitute(ComboBox2, ";", Chr(10))
Cells(lign, 2).WrapText = True
Cells(lign, 7) = TextBox4
Cells(lign, 8) = TextBox5
Cells(lign, 9) = TextBox6
End With
End Sub

Private Sub UserForm_Initialize()
For Each Cel In Sheets("article").Range("a4:a" & Range("B65000").End(xlUp).Row)
ComboBox2.AddItem Application.WorksheetFunction.Substitute(Cel, Chr(10), ";")
Next
End Sub

Dans l'init du userform je substitue les renvois à la lignes (chr(10) par un point virgule
Lors de la restitution de valeur je fais l'inverse, je précise que la cellule doit renvoyer les valeurs à la ligne (wraptext=true) mais si la cellule est fusionné la hauteur de ligne ne s'adapte pas (même si les valeurs sont bien renvoyées dans la cellule)

Peut-être que d'autres auront une idée qui te satisfasse mieux.

A+