Insérer une ligne

[Mimi]

Bonjour à tous,
Sur la feuille je remplies la petite fiche avec l'userform produit (que Robert m'a gentiment fait).
Lorsque j'ai fini de renseigner la ligne 12, je souhaiterais qu'une nouvelle ligne se mette automatiquement dessous et ce avant la ligne Total.
Une Fois fini de faire cette fiche il faudrait avec le bouton effacer remettre la fiche à son état d'origine.
En manuel je sais faire mais en automatique je sèche.
Cordialement
Mimi

Je vous joint un petit fichier

 

[grisan29]

Re : Insérer une ligne

bonjour Mimi
dans le module 2 tu peux essayer ceci si c'est ce que tu veux

Sub Efface() ' Efface Macro
'remplacer cette ligne
'Range("A9:I13").ClearContents
'par celle ci
Rows("9:13").Delete Shift:=xlUp
Range("A2").Select
End Sub

j'ai essayer pour inserer une ligne mais comme le code de Robert incrémente l'article s'il est choisi plusieurs fois il ne fonctionne pas correctement

Else 'sinon
'================================================================================
lig = F.Range("C65536").End(xlUp)(2).Row
    If lig < 9 Then lig = 9
    'insertion d'une ligne
  F.Rows(lig + 1).Insert

Pascal

 

[Mimi]

Re : Insérer une ligne

Bonjour,
Je teste et je tiens au courant
Merci
Mimi

 

[grisan29]

Re : Insérer une ligne

re mimi

j'ai oublier il faut déclarer la variable "lig"

Dim lig As Integer

a mettre après celle ci

Dim I As Byte 'déclare la variable I (Incrément)

dans le module

Public Sub Placer()

Pascal

 

[Mimi]

Re : Insérer une ligne

Bonjour Pascal,
Sa ma convient très bien merci pour ton aide
Mimi