Insérer un nombre de ligne en fonction de la valeur d'une TextBox

Bonjour à tous,

Je cherche à pouvoir insérer un nombre de ligne en fonction d'une valeur saisie dans une TextBox
Vous trouverez ci dessous ce que j'ai essayé de faire mais évidemment ne fonctionne pas.

En espérant que vous aillez une solution et attendant de vous lire.

PepitoVII

Dim i As Integer

Private Sub CoB9_Click()

i = TB1.Value

Feuil5.Select
Selection.Show
Cells(14 + i, 1).EntireRow.Insert
UF3.Hide

End Sub

Bonjour

- Selection et UF3 correspondent à quoi ?

- TB1 se trouve dans l'usf UF3 ?

Sinon essayez comme ceci

Private Sub CoB9_Click()
Dim i As Integer
For i = 1 To TB1.Value
    Feuil5.Cells(14 + i, 1).EntireRow.Insert
Next i
Unload UF3
End Sub

Cordialement

Bonjour,

Private Sub CoB9_Click()

i = TB1.Value

For J= 1 To i
Worksheets("Feuil5").Rows(14).Insert Shift:=x1Down
Next J
End Sub

Si j'ai bien compris ? insérer x lignes à partir de la ligne 14 de la feuille 5

Wahou vous êtes super rapide les gars. Merci !

Je vais aller tester ça.

Effectivement je n'ai pas été assez précis.

TB1 se trouve bien sur UF3 (en image ci dessous), pour répondre à @Dan.

Il s'agit bien de ça @Xmenpl.

L'une comme l'autre des solutions fonctionnent.

Petit maj pour la solution de @Xmenpl

Private Sub CoB9_Click()

i = TB1.Value

For J= 1 To i
Feuil5.Rows(13).Insert Shift:=x1Down
Next J
End Sub

La cellule doit être la n-1 dans mon cas.

Merci à vous en tout cas !