Probleme d'insertion de ligne

[Dragor]

Salut Tout le monde

J'avais un probleme qui était :

'J'ai fusionné des cellule
A-B22 / A-B23 / A-B24....
et
C-D22 / C-D23 / C-D24....

Dans ces cellule il y a des des formules.

Je souhaite savoir comment inserrer des lignes au milieu des existante et que dans les lignes inserer les cellules concerve le meme format et dans les quelles les formules soient copiées. '

Et JACKTATI m'a trouver cette solution qui fonctionne bien sauf que lors de l'execution de la macro, Bug sur la ligne:
Cells(ZtNumLig + 1, i).ClearContents
- Erreur d'éxecution '1004'

Si je fais fin de débugage la fenetre se ferme et ma ligne est correctement inserer.

Est-il possible d'éviter ça?

Merci

jacktati écrit:

salut Dragor,

j'ai trouvé ca !


Sub NouvelleLigneEnDessous()

Dim ZtNumLig As Integer
Dim ZtDerCol As Integer

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

copie les formules , mais le contenu
à voir si d'autres peuvent t'aidés.
@+

 

[toubib]

salut dragor,

tu peux essayer d'insérer un: on error resume next, avant la ligne ou ca bugue

j'espère que ca marchera mieux

 

[Dragor]

Merci

Ca marche


Super


A+ TOUBIB