Un code tout simple a simplifié !

polik · 22 Avril 2009

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 · 22 Avril 2009

Re : Un code tout simple a simplifié !

bonsoir;

Code:

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

a+
kjin

vbacrumble · 22 Avril 2009

Re : Un code tout simple a simplifié !

Bonsoir

Une autre simplication

Code:

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

polik · 22 Avril 2009

Re : Un code tout simple a simplifié !

merci messieurs
j'y travaille !

vbacrumble · 22 Avril 2009

Re : Un code tout simple a simplifié !

Re

Pour le fun

Code:

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

Un code tout simple a simplifié !

polik

XLDnaute Junior

kjin

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

polik

XLDnaute Junior

vbacrumble

XLDnaute Accro

Discussions similaires