Un code tout simple a simplifié !

[polik]

Bonjour,

J'aimerais que le texte provenant de mon Textbox1 soit directement exporte vers ma cellule e10.
J'ai trouvé ceci (qui ne fonctionne pas vraiment)
Vous avez une idée ?
merci d'avance !!!!




If TextBox1.Value = Empty Then
Sheets("Sommaire").Select
Range("e10") = "aucun commentaire"
Else
Sheets("Sommaire").Select
Range("e10") = Me.TextBox1.Value

 

[kjin]

Re : Un code tout simple a simplifié !

bonsoir;

If TextBox1.Value = "" Then
Sheets("Sommaire").Range("e10") = "aucun commentaire"
Else
Sheets("Sommaire").Range("e10") = TextBox1.Value
end if

a+
kjin

 

[vbacrumble]

Re : Un code tout simple a simplifié !

Bonsoir


Une autre simplication

Sheets("Sommaire").Range("E10") = IIF(TextBox1 = "", "aucun commentaire", TextBox1)

 

[polik]

Re : Un code tout simple a simplifié !

merci messieurs
j'y travaille !

 

[vbacrumble]

Re : Un code tout simple a simplifié !

Re

Pour le fun

Sheets("Sommaire").[E10] = Choose(2 + (TextBox1 = ""), "aucun commentaire", TextBox1)