comment pourrais-je avoir une suite de chifre

S

Softmama

XLDnaute Accro

• 18 Novembre 2010

• #2

Re : comment pourrais-je avoir une suite de chifre

Bonjour,

Si ton textbox de ton usf s'appelle textbox1, que tu veux copier sa valeur en A1 : tu fais

Code:

range("A1").value = cdbl(Me.textbox1.value)

et sur la cellule A2 tu mets

Code:

=A1+1

que tu recopies sur 20 lignes.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Novembre 2010

• #3

Re : comment pourrais-je avoir une suite de chifre

salut

si tant est que Textbox1 est numérique et pour des nombres entiers :

Code:

Dim n As Byte
For n = 0 To [B]x[/B]  '[B]x[/B] = nombre de colonnes
  Range("[B]cc[/B]").Offset(, n) = TextBox1 + n  '[B]cc[/B] =  cellule cible
Next

 

Vote positif 0 Vote négatif

B

baguidi

XLDnaute Occasionnel

• 19 Novembre 2010

• #4

Re : comment pourrais-je avoir une suite de chifre

Bonjour mes chers amis pour vos réponses. J'essayerai de tester vos réponses
Toutefois vous êtes très gentil.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Novembre 2010

• #5

Re : comment pourrais-je avoir une suite de chifre

Bonjour à tous

Une autre façon (sans boucle)

VB:

Sub a()
'2 = xlFillSeries
Dim t&
t=TextBox1
With [A1]
.Value=t
.AutoFill .Resize(,10), 2
End With
End Sub

 

Vote positif 0 Vote négatif