Simplifier une formule

[lanoe]

Bonjour le forum,

Je n'arrive pas à trouver dans les archives une solution qui doit etre pourtant simple: simplifier la formule ci-dessous ou je souhaite coller les même textbox dans plusieurs cellules.


Range("AD16").Value = CDate(TextBox22)
Range("AD17").Value = CDate(TextBox22)
Range("AD18").Value = CDate(TextBox22)
Range("AD19").Value = CDate(TextBox22)
Range("AD20").Value = CDate(TextBox22)


Range("X16").Value = TextBox1.Value
Range("X17").Value = TextBox1.Value
Range("X18").Value = TextBox1.Value
Range("X19").Value = TextBox1.Value
Range("X20").Value = TextBox1.Value

Si vous avez une piste...Merci d'avance

lanoe

 

[skoobi]

Re : Simplifier une formule

Bonjour lanoe,

comme ceci:

Range("AD16:AD20").Value = CDate(TextBox22.Value)
Range("X16:X20").Value = TextBox1.Value

 

[lanoe]

Re : Simplifier une formule

Re

Merci pour ta réponse... Une autre question qui viens d'apparaitre, je colle donc au format date, mais si un textox est vide cela me donne une erreur
d'excusion 13 comment l'éviter?

cordialement
lanoe

 

[Guest]

Re : Simplifier une formule

Bonjour Lanoe,
Hello Skoobi😀

If IsDate(TextBox1.Text) then Range("X16:X20").Value = TextBox1.Value

A+

 

[lanoe]

Re : Simplifier une formule

Re,

Simple...merci...

 

[skoobi]

Re : Simplifier une formule

Bonjour Lanoe,
Hello Skoobi😀

If IsDate(TextBox1.Text) then Range("X16:X20").Value = TextBox1.Value

A+

Re,

salut Hasco 😉,

Tu as oublié le code pour la plage AD16:AD20.
Alors, la flême aujourd'hui? 😀😛😉.