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:
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.
@+