Insérer une ligne

[Thibault98]

Bonsoir à tous

Ci-joint un fichier pour vous expliquer le problème, en fait je voudrai à l'aide du bouton de commande insérer une ligne, le problème est que la feuille est protégée car il y a et aura des formules de calculs, pour le moment je n'ai pas mis de mot de passe mais plus tard il y en aura un.

Merci d'avance.
Regarde la pièce jointe Insert.xlsx

Thibault

 

[fenec]

Re : Insérer une ligne

Bonsoir Thibault98

Peut etre comme ca,

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Feuil1").Unprotect Password:="ton mot de passe"
With ActiveCell
         .EntireRow.Insert xlShiftDown
         
         .EntireRow.Copy
         
         With .Offset(-1).EntireRow
             .PasteSpecial xlPasteFormats
             .PasteSpecial xlPasteFormulas
         End With
         Application.CutCopyMode = False
              
     Sheets("Feuil1").Protect Password:="ton mot de passe"
 ActiveSheet.Protect
End Sub

A+

 

[Thibault98]

Re : Insérer une ligne

Merci, mais comment fais tu pour placer le code sur le bouton de commande ?
Ou le placer ?

Merci.

Thibault

 

[fenec]

Re : Insérer une ligne

Re

tu fais un clic droit sur ton bouton de commande et la tu va sur visualiser le code et ensuite tu le colles

A+

 

[fenec]

Re : Insérer une ligne

Re,

En cas de problème le mieu est de joindre un fichier exemple

A+

 

[Thibault98]

Re : Insérer une ligne

Encore merci, j'avais mis un classeur dans mon premier message.

 

[fenec]

Re : Insérer une ligne

je l'avais vu mais ne pouvant l'ouvrir pas pu mettre le code

j'espere que cela te conviens?

A+

 

[Thibault98]

Re : Insérer une ligne

Oui c'est parfait, merci à toi

Bonne soirée.

@+

 

[fenec]

Re : Insérer une ligne

Bonne soirée

A+