macro pour rajouter un formulaire à la suite

[nrdz83]

Bonjour à tous voila ma question je cherche a faire une maccro qui me copie un formulaire et qui me le colle à la suite et cela de façons indefinie en fonction du besoin mais sans depasser 10 formulaires .
D'avance merci à tous et bon week end, amitiés 😎

 

[klin89]

Re : macro pour rajouter un formulaire à la suite

Bonjour nrdz83 et le forum,

Vois peut-être ce lien, cela me paraît semblable à ta demande.

https://www.excel-downloads.com/threads/ajout-dun-bloc-de-lignes.102713/

Amicalement Klin89

 

[nrdz83]

Re : macro pour rajouter un formulaire à la suite

bonsoir klin merci pour le lien en fait je fait ce code mais ça fonctionne pas
>>>
Sub AjoutBloc()
Dim Ligne As Long
Ligne = ActiveSheet.Range("g65536").End(xlUp).Row + 1
If Ligne < 4 Then Ligne = 4
ThisWorkbook.Worksheets("PV chaine").Range("Modèle").Copy Destination:=ActiveSheet.Range("A" & Ligne)
Application.CutCopyMode = False
End Sub

A quoi correspond ligne? et pourquoi (g65536) alors que je veux le ranger a la suite de mon premier formulaire.
Merci pour vos lumière s
amitiés

 

[Lii]

Re : macro pour rajouter un formulaire à la suite

Bonsoir Tous

à tester le

Sub ...
Dim Ligne As Long
  Ligne = ActiveSheet.Range("A65536").End(xlUp).Row + 3
 [COLOR=SeaGreen] Rem : 3 lignes en dessous de la dernière non vide de la colonne A[/COLOR]
  If Ligne > 250 Then Exit Sub [COLOR=SeaGreen]'250 pour limiter à 10 et avec le 3 de la remarque[/COLOR]
  Range("Modèle").Copy Range("A" & Ligne)
  Application.CutCopyMode = False
End Sub

avec Insertion ==> Nom ==> Définir : "Modèle" et ='PV chaine'!$A$1:$U$23
colonnes cachées incluses et liaisons à voir.

 

[nrdz83]

Re : macro pour rajouter un formulaire à la suite

Merci lii pour ton code il marche impec et si je veux faire un code pour supprimer le formulaire que l'on vient de recréer? il faut mettre .delete ??
Et y at'il la possibilité de surtout ne pas supprimer le premier formulaire ?
Encore merci 😎

 

[Lii]

Re : macro pour rajouter un formulaire à la suite

Re,

Il te faudra supprimer les lignes avec un code du genre :

  Rows("n1:n2").Delete

où n1 et n2 sont, respectivement, les numéros de la première ligne et de la dernière ligne de la plage à supprimer.