Probleme d'insertion de ligne

[Dragor]

Salut tout le monde,

Voila le probleme,

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.


Merci pour l'aide.

A+

 

[jacktati]

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

 

[Dragor]

Salut

Et merci pour la macro.

Elle fonctionne mais il y a un bug, a priori à la ligne:

'Cells(ZtNumLig + 1, i).ClearContents'

Symptome:
Quan je lance la macro, l'insertion de ligne se passe normalement, puis j'ai la fenetre de débugage qui s'affiche.
Si je la ferme sans vouloir resoudre le probleme; la ligne inserer a les formules indentique au lignes precedente.

Donc la le seul inconvegnant c'est la fenetre de debugage.

Sinon bien.

Peux-tu voir ce qui ne va pas dans cette ligne?

Merci

A+

 

[Dragor]

Salut tout le monde

Quelqu'un peut resoudre le probleme.

Merci beaucoup


A+

 

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