Création de nombres en première colonne

Bonjour à vous tous,

Je vous joints en pièce jointe une macro où il manque des infos (là où il y a des "???"). J'ai tout essayé la macro me renvoie des messages d'erreurs toujours au même endroit (là où il y a des "???")

Le but étant d'écrire une procédure qui créé une suite de nombres en première colonne en demandant avec plusieurs inputbox : l'origine (par défaut 1), le pas, et le nombre de lignes en contraignant l'utilisateur à entrer des entiers et ajouter l'icône question.

Dans l'espoir d'avoir un retour positif de votre part

10bloc-note.txt (634.00 Octets)

Bonjour Kira,

Option Explicit

Sub q1()

Dim MonClasseur As Workbook
Dim Cellule As Range
Dim origine As Integer, pas As Integer

    Set MonClasseur = Application.Workbooks.Add
    origine = Application.InputBox("Saisissez l'origine, ex: 1", "Origine", Type:=1)
    pas = Application.InputBox("Saisissez le pas", "Pas", Type:=1)
    With MonClasseur.Worksheets(1).Cells(1, 1)
        .Value = origine
        .Resize(100).DataSeries RowCol:=xlColumns, Type:=xlLinear, Step:=pas, Stop:=100, Trend:=True
    End With
    MonClasseur.SaveCopyAs "temp.xls"
    Debug.Print MonClasseur.Saved
End Sub

Bonjour d3d9x et merci beaucoup pour ce retour rapide !

Je me demandais : est-il possible de réaliser la même tâche mais en incorporant une boucle for ... next ?

A vous lire

Peux-tu développer ta demande, je ne vois pas sur quoi tu voudrais boucler.

Tu veux créer un ensemble de pages, et pour chaque avoir la demande de l'origine et du pas?

Si tu as beaucoup de pages à créer, il serait plus judicieux de se tourner vers d'autres solutions =)

J'ai trouver il suffisait de rajouter une boucle dans ma macro

Option Explicit

Sub q1()

Dim MonClasseur As Workbook

Dim Cellule As Range, Cel As String, Cpt As Integer, Plage As Range, lim As Integer, chaine As String

Dim origine As Integer, pas As Integer

For Cpt = 1 To lim

Cel = "A" & CStr(Cpt)

Set Cellule = Range(Cel)

Cellule.Value = Cpt

Cel = "B" & CStr(Cpt)

Range(Cel).Value = Range(Cel).Value ^ 2

Next Cpt

Set MonClasseur = Application.Workbooks.Add

origine = Application.InputBox("Saisissez l'origine, ex: 1", "Origine", Type:=1)

pas = Application.InputBox("Saisissez le pas", "Pas", Type:=1)

With MonClasseur.Worksheets(1).Cells(1, 1)

.Value = origine

.Resize(100).DataSeries RowCol:=xlColumns, Type:=xlLinear, Step:=pas, Stop:=100, Trend:=True

End With

MonClasseur.SaveCopyAs "temp.xls"

Debug.Print MonClasseur.Saved

End Sub

Rechercher des sujets similaires à "creation nombres premiere colonne"