Un code tout simple a simplifié !

K

kjin

XLDnaute Barbatruc

• 22 Avril 2009

• #2

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 22 Avril 2009

• #3

Re : Un code tout simple a simplifié !

Bonsoir


Une autre simplication

Code:

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

 

Dernière édition: 22 Avril 2009

Vote positif 0 Vote négatif

P

polik

Guest

• 22 Avril 2009

• #4

Re : Un code tout simple a simplifié !

merci messieurs
j'y travaille !

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 22 Avril 2009

• #5

Re : Un code tout simple a simplifié !

Re

Pour le fun 😉

Code:

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

 

Vote positif 0 Vote négatif