Dupliquer ma derniere ligne

job75

XLDnaute Barbatruc

• 12 Avril 2010

• #2

Re : Dupliquer ma derniere ligne

Bonjour Sophie,

Si la colonne A est la colonne de référence (celle dont la dernière cellule remplie est toujours sur la dernière ligne du tableau) :

Code:

Sub AjouteLigne()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row + 1
If lig < 4 Then Exit Sub
Rows(lig - 1).Copy Rows(lig)
On Error Resume Next
Rows(lig).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2010

• #3

Re : Dupliquer ma derniere ligne

Re,

Puisqu'il y a des formules, peut-être vaut-il mieux rechercher la dernière cellule où il y a une formule :

Code:

Sub AjouteLigne()
Dim ref As Range, lig As Long
Set ref = Cells.Find("=*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
On Error Resume Next
lig = ref.Row + 1
If lig < 4 Then Exit Sub
Rows(lig - 1).Copy Rows(lig)
Rows(lig).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

A+

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 13 Avril 2010

• #4

Re : Dupliquer ma derniere ligne

Nickel Merci job75 mais il faut savoir que certaine de mes cellule contiennent simplement des valeurs...
Donc j'ai repris :

Sub ligne()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row + 1
If lig < 4 Then Exit Sub
Rows(lig - 1).Copy Rows(lig)
On Error Resume Next
End Sub

Par contre j'ai une cellule avec une fonction qui me donne la date "=today()"
donc si je la duplique je vais avoir la meme date sur toutes les lignes, je pensais à remplacer toute les formules de ma précedente ligne par leur resultat (value), si quelqu'un a une idée???

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2010

• #5

Re : Dupliquer ma derniere ligne

Bonjour Sophie,

Sophie11 à dit:

il faut savoir que certaine de mes cellule contiennent simplement des valeurs...

Cliquez pour agrandir...

J'avais bien pensé à ça, et sur une nouvelle ligne il me semblait qu'il fallait les effacer (remise à zéro) par :

Code:

Rows(lig).SpecialCells(xlCellTypeConstants).ClearContents

Mais si vous voulez les laisser, à vous de voir...

(...) je pensais à remplacer toute les formules de ma précedente ligne par leur resultat (value), si quelqu'un a une idée???

Cliquez pour agrandir...

Ben comme ça il n'y aura plus de formules du tout, pas très cohérent tout ça 🙄

A+

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 13 Avril 2010

• #6

Re : Dupliquer ma derniere ligne

>Ben comme ça il n'y aura plus de formules du tout, pas très cohérent tout ça
Si 🙂 par exemple on utilise le code ci-dessus qui va dupliquer ma ligne avec les formules et ensuite on indique à la macro que la ligne du dessus ne soit plus qu'en valeur mais la ligne dupliquer contient tjrs les formules 😉
Tu vois ce que je veux dire? 😎

Aussi quelqu'un pourrait m'expliquer à la signification de cette ligne de code
If lig < 4 Then Exit Sub

merci beaucoup!!!! 😛😛🙂😱

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2010

• #7

Re : Dupliquer ma derniere ligne

Re,

Mettez donc en fin de macro (après création de la nouvelle ligne) :

Rows(lig - 1) = Rows(lig - 1).Value

Pour :

If lig < 4 Then Exit Sub

ce code sert au début : quand il n'y a pas de lignes créées après la ligne 2 => la copie ne se fait pas.

A+

 

Dernière édition: 13 Avril 2010

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 13 Avril 2010

• #8

Re : Dupliquer ma derniere ligne

Job75 tu es trop fort!!! Merciii beaucoup 🙂 😉

 

Vote positif 0 Vote négatif