numérotation sur plusieurs colonnes

[Phil]

Bonjour à tous le Forum.

Voici mon problème

J'ai réussi par le biais d'un userForm à entrer des N° dans la colonne A de ma feuille, cela de A5 à A150 grace à cette formule

Private Sub CommandButton1_Click()
Range("B150").Select
Selection.End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "1"
End Sub

Jusque la tous va bien, mais j'aimerais que, arrivé à la cellule A150, les numéros aillent automatiquement se placer dans la colonne "B" en B5 jusqu'à B150 et ainsi de suite en C, D, E

Merci par avance et bravo pour ce forum,

Phil

 

[Minick]

Salut,

ceci devrai faire ton bonheur:

Private Sub CommandButton1_Click()
Dim Col As Byte
Dim Lig As Byte

With ActiveSheet
Col = .Cells(5, 255).End(xlToLeft).Column
Lig = .Cells(151, Col).End(xlUp).Row + 1

If Lig < 5 Then
Lig = 5
ElseIf Lig = 151 Then
Col = Col + 1
Lig = 5
End If
.Cells(Lig, Col) = 1
End With
End Sub


@+ Minick

 

[Phil]

Bonjour à tous le Forum

Merci Minick pour ta réponse, j'essaye cela ce soir.

Bonne journée.

Phil