Incrémenter une série

mromain

XLDnaute Barbatruc

• 7 Mai 2009

• #2

Re : Incrémenter une série

bonjour Skud, voici une macro qui a l'air de fonctionner :

Code:

Sub test()
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Range("E" & (i - 1) * 3 + 1) = Range("A" & i)
    Range("E" & (i - 1) * 3 + 2) = Range("A" & i)
    Range("E" & (i - 1) * 3 + 3) = Range("A" & i)
    
    Range("H" & (i - 1) * 3 + 2) = 0
    Range("H" & (i - 1) * 3 + 3) = Range("C" & i)
    Range("H" & (i - 1) * 3 + 4) = Range("C" & i)
Next i
End Sub

a+

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 7 Mai 2009

• #3

Re : Incrémenter une série

Bonjour,

Recommence ton explication et surtout le rapport entre les données et les résultats que tu veux obtenir. Pour le moment ce n'est pas clair.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 7 Mai 2009

• #4

Re : Incrémenter une série

Bonjour,

Ci-joint 2 formules à tester

 

Pièces jointes

• Incrémentation série.xls

  37 KB · Affichages: 160
• Incrémentation série.xls

  37 KB · Affichages: 154
• Incrémentation série.xls

  37 KB · Affichages: 150

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 7 Mai 2009

• #5

Re : Incrémenter une série

Bonjour,

E2 : =INDIRECT("A"&ENT((LIGNES($1:2)-1)/3)+1)
H2 : =SI(MOD(LIGNES($1:2)+1;3)=0;0;INDIRECT("C"&ENT((LIGNES($1:2)+1)/3)))
formules à copier vers la bas.

 

Vote positif 0 Vote négatif

S

Skud

XLDnaute Junior

• 7 Mai 2009

• #6

Re : Incrémenter une série

Bonjour mromain, bonjour Raja, bonjour Catrice et bonjour hoerwind,

D'abord merci à tous d'avoir pris le temps de me lire et de me répondre.

Raja:
Désolé si je n'ai pas été très clair.

mromain:
J'ai testé ta macro et cela fonctionne impeccable.

Catrice et hoerwind:
Vos formules respectives fonctionnent à merveille !

J'utiliserai surement les formules car cela fera une macro de moins à gérer et c'est ce vers quoi je m'orientais au départ. Mais il faut que je les décortique pour mieux les comprendre.

En tous cas, un grand Merci à vous tous.

Bonne journée.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Mai 2009

• #7

Re : Incrémenter une série

bonjour a tous

pour m'exercer a un genre que je connais peu j'ai commis ceci

 

Pièces jointes

• Incrémentation série.zip

  14.4 KB · Affichages: 95

Vote positif 0 Vote négatif