Incrémentation de lignes

[Cassivenlonos]

Bonsoir à toutes et à tous,
J'aimerai savoir qu'elle est la méthode à utiliser pour incrémenter des lignes à partir d'une feuille (détail) vers une autre feuille (récap).
Exemple j'ai sur une feuille une facture simplifiée (HT, TVA, TTC) et je voudrais cumuler chaque nouvelle facture sur une feuille récap avec une incrémentation automatique des lignes de façon à avoir un état récapitulatif.
Si quelqu'un a des conseils, je suis preneur. Oui je sais Access fait çà très bien mais il s'agit pour moi d'utiliser Excel.
Merci

 

[JEAN MICHEL]

bonsoir a tous

c ijoint un exemple a adapter a la situation

bonne soiree a tous

 

[@+Thierry]

Bonsoir Jean-Michel, Cassivenlonos, le Forum

En partant de l'exemple de Jean Michel, on peut faire aussi comme ceci

Sub IncrementationCopy()
Dim Ligne As Integer
Dim PlageSource As Range, PlageCible As Range

Ligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1

Set PlageSource = Sheets("Feuil1").Range("A5:C5")
Set PlageCible = Sheets("Feuil2").Range("A" & Ligne)

PlageSource.Copy PlageCible

End Sub

On peut aussi envisager que la Source de Cassivenlonos n'est pas en ligne sur la feuille Facture et se trouve sur des cellules non contigues, donc on peut faire comme ceci :

Sub Incrementation()
Dim L As Integer

L = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1

With Sheets("Feuil2")
.Range("A" & L) = Sheets("Feuil1").Range("A1") 'on indique l'adresse que l'on veut
.Range("B" & L) = Sheets("Feuil1").Range("B2")
.Range("C" & L) = Sheets("Feuil1").Range("C3")
End With

End Sub

Bonne Programmation et Soirée
@+Thierry