comment pourrais-je avoir une suite de chifre

[baguidi]

Bonjour le forum;
je voudrais a partir d'une textbox saisir un chiffre par exemple 14 et avec un bouton Traitement ce chiffre ira s'inscrire dans une cellule de la feuille excel et dans le même temps remplir une vingtaine de cellule sur la ligne ou on pourra lire la suite des chiffre c'est aà dire 15,16,17 .......
je sais entre temps qu'avec la fonction Dataseries on arrive a faire pareil chose mais comment?
Merci le forum pour votre compréhension.

 

[Softmama]

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

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

et sur la cellule A2 tu mets

=A1+1

que tu recopies sur 20 lignes.

 

[Si...]

Re : comment pourrais-je avoir une suite de chifre

salut

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

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

 

[baguidi]

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.

 

[Staple1600]

Re : comment pourrais-je avoir une suite de chifre

Bonjour à tous

Une autre façon (sans boucle)

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