Incrémenter une série

[Skud]

Bonjour tout le monde,

Je bloque sur l’incrémentation un peu particulière de 2 séries.
Je voudrais une série du type :
=A1
=A1
=A1
=A2
=A2
=A2
.
.
.
Et une autre:
=0
=C1
=C1
=0
=C2
=C2
=0
=C3
=C3
.
.
.
Dans le fichier en pièce jointe, il y a dans les colonnes en bleu les résultats attendus avec à coté (colonnes vertes) les formules attendues.

Merci de votre aide et bonne journée.

 

[mromain]

Re : Incrémenter une série

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

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+

 

[Raja]

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.

 

[Catrice]

Re : Incrémenter une série

Bonjour,

Ci-joint 2 formules à tester

 

[hoerwind]

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.

 

[Skud]

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.

 

[pierrejean]

Re : Incrémenter une série

bonjour a tous

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