nouvelle feuille créer ajouter ligne

[jtitin]

Bonjour à tous

voici mon problème:
je lance une macro qui me copie ma feuille "Modele" et la place en fin de classeur puis
elle est renommée en fonction du nom d'une cellule avec en + un chiffre si la feuille existe déja.
dans cette nouvelle feuille j'incrémente des données de mon userform1
et là est le problème:
je souhaite inserrer une vide avant ou aprés l'incrémentation des données
pour toujours conserver mes 4 lignes vide en dessous des données incrémentées de la nouvelle feuille.

voici une partie du code utilisé:

Private Sub CommandButton12_Click()
Dim L2 As Integer

Test ‘###### lancement de la copie feuille ‘Modele’ et renomer

Sheets(Sheets.Count).Select
L2 = Sheets(Sheets.Count).Range("A65536").End(xlUp).Row + 1

With Sheets(Sheets.Count)
.Range("A" & L2).Value = TextBox1.Value
.Range("B" & L2).Value = TextBox2.Value
.Range("C" & L2).Value = TextBox3.Value
.Range("D" & L2).Value = Début.Value
.Range("E" & L2).Value = Fin.Value
.Range("F" & L2).Value = NbJ.Value
.Range("G" & L2).Value = TotPrix.Value

End With

IniListbox1

End Sub

‘###################################################

Sub test()

Application.ScreenUpdating = False

Sheets("Modele").Visible = True
numero = 0
For n = 1 To Sheets.Count
If InStr(Sheets(n).Name, UserForm1.ComboBox1.Value) <> 0 Then
If Sheets(n).Name = UserForm1.ComboBox1.Value Then
If numero < 1 Then numero = 1
Else
num = CInt(Replace(Sheets(n).Name, UserForm1.ComboBox1.Value, ""))
If num >= numero Then
numero = num + 1
End If
End If
exist = True
End If
Next n
If exist Then
Sheets("Modele").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = UserForm1.ComboBox1.Value & " " & numero

Else
Sheets("Modele").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = UserForm1.ComboBox1.Value & " " & numero
End If
Sheets("Modele").Visible = False
Sheets("Menu").Select
Application.ScreenUpdating = True

End Sub


je joint également ma feuille "Modele"

merci pour votre aide

 

[jtitin]

Re : nouvelle feuille créer ajouter ligne

re bonjour

Je remets mon ficher exemple pour une meilleure compréhension

là il est fonctionnel

 

[jtitin]

Re : nouvelle feuille créer ajouter ligne

bonjour
je fais remonter ce post pour y apporter une réponse.
A force de tourner virer, j'ai enfin trouvé pour régler mon problème .
voici le code à ajouter au commandebutton:

ActiveSheet.Cells(ActiveSheet.Range("A65535").End(xlUp).Row + 1, 1).Select
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown

bonne journée à tous

 

[MuscatMimi]

Re : nouvelle feuille créer ajouter ligne

salut jtitin et le Forum

ton fil m'a intérréssé,je t'ai piqué ton exemple de classeur, car c'est ce que je cherchais,
par contre je ne vois pas ou tu place exactement ce bout de code

ActiveSheet.Cells(ActiveSheet.Range("A65535").End( xlUp).Row + 1, 1).Select
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown

Si tu veux bien me répondre ce serait sympa
bon we a toi