Incrémentation de lignes

Cassivenlonos · 28 Février 2004

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 · 28 Février 2004

bonsoir a tous

c ijoint un exemple a adapter a la situation

bonne soiree a tous

@+Thierry · 28 Février 2004

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

Incrémentation de lignes

Cassivenlonos

Guest

JEAN MICHEL

Guest

Pièces jointes

@+Thierry

Guest

Discussions similaires