Insertion de ligne sous cellule active avec format et formules idem

[Pinay]

Bonjour,

Je cherche depuis un certain temps un code vba pour qu'en cliquant sur un bouton de commande intitulé "insérer ligne" (en haut à droite sur le fichier), une ligne soit insérée sous la cellule active avec comme impératif que cette ligne nouvellement insérée soit :
- identique à celle du dessus concernant la mise en forme (cellules fusionnées) et les formules
- vide de toute valeur
- possibilité d'insérer une nouvelle ligne que dans l'un des 2 "tableaux" (Elément A, B )

Détail qui a peut-être son importance : la feuille sera protégée afin que les cellules verrouillées ne puissent être modifiées.
Au départ, je voulais verrouiller les cellules avec les formules de calcul mais il semble que ce ne soit pas compatible avec l'insertion de ligne et la conservation les formules.

J'ai trouvé des codes de macro pour l'insertion de ligne, mais malgré mes efforts de débutante, je ne parviens pas à créer le code qui me permette d'obtenir ce que je recherche. Donc HELP!🙁 voir fichier joint :"exemple")

 

[Robert]

Re : Insertion de ligne sous cellule active avec format et formules idem

Bonjour Pinay, bonjour le forum,

Pas sûr d'avoir bien compris... Je te popose le code suivant :

Private Sub CommandButton2_Click()
Dim li As Integer
li = ActiveCell.Row
ActiveSheet.Unprotect
Range(Cells(li, 1), Cells(li, 17)).Copy
Range(Cells(li + 1, 1), Cells(li + 1, 17)).Insert Shift:=xlDown
Range(Cells(li + 1, 1), Cells(li + 1, 16)).ClearContents
Cells(l + 1, 1).Select
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub

 

[Pinay]

Re : Insertion de ligne sous cellule active avec format et formules idem

Bonjour Robert,

Merci pour la proposition. Cependant, ce code comme ceux que j'ai essayés, m'insère une ligne en dessous mais alors je n'ai plus les cellules fusionnées et je n'ai pas non plus la ou les formules.
J'ai un code qui m'insert une ligne en dessous de la cellule active et prenant en compte la ou les formules présentes sur la ligne :

Private Sub CommandButton2_Click()
' Insère une ligne sous la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.Range("A2").EntireRow.insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub

Le problème c'est qu'à l'exécution, j'ai "erreur d'exécution "1004" impossible de modifier une cellule fusionnée.Et lorque je fais le débogage ça me surligne la zone en gras sur le code recopié si dessus.

Et là je bloque sur ce que je peux modifier sur ce code pour eviter l'erreur.
Merci pour ton aide.

 

[Pinay]

Re : Insertion de ligne sous cellule active avec format et formules idem

Bonjour,

Bien que ma demande n'ai pas eu un franc succès, je viens enfin de trouver la solution à mon problème : il était temps!🙂
Ci-dessous la solution :

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents

End Sub

Donc problème résolu!!

Bon courrage à tout ceux qui cherchent des réponses à leurs questions et n'ont toujours pas trouvé!🙂

 

[Elodie.]

Re : Insertion de ligne sous cellule active avec format et formules idem

Merci. Ton auto réponse a solutionné mon problème 🙂