Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, c'est la dixième fois que tu pose cette question. voici ma réponse du 28/12
1
Sub NouvelleLigneX() Dim ZtNumLig As Integer Dim ZtDerCol As Integer ZtNumLig = ActiveCell.Row noLigne = ActiveCell.Row ActiveSheet.Rows(ZtNumLig).Insert ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol)).Copy _ Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)) Application.ScreenUpdating = False For i = 1 To ZtDerCol If Not Cells(ZtNumLig, i).HasFormula Then Cells(ZtNumLig, i).ClearContents End If Next i ActiveCell.Range("A2").Select End Sub
2 Annuler cette action revient à supprimer la ligne inserrée
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel
Salut,
c'est la dixième fois que tu pose cette question.
voici ma réponse du 28/12
1
Sub NouvelleLigneX()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ZtNumLig = ActiveCell.Row
noLigne = ActiveCell.Row
ActiveSheet.Rows(ZtNumLig).Insert
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol)).Copy _
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig, i).HasFormula Then
Cells(ZtNumLig, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
2
Annuler cette action revient à supprimer la ligne inserrée
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
Salut, c'est la dixième fois que tu pose cette question. voici ma réponse du 28/12
1
Sub NouvelleLigneX() Dim ZtNumLig As Integer Dim ZtDerCol As Integer ZtNumLig = ActiveCell.Row noLigne = ActiveCell.Row ActiveSheet.Rows(ZtNumLig).Insert ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol)).Copy _ Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)) Application.ScreenUpdating = False For i = 1 To ZtDerCol If Not Cells(ZtNumLig, i).HasFormula Then Cells(ZtNumLig, i).ClearContents End If Next i ActiveCell.Range("A2").Select End Sub
2 Annuler cette action revient à supprimer la ligne inserrée
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel
