incrémentation particuliere de série

Gorfael

XLDnaute Barbatruc

• 14 Juin 2006

• #2

Salut
en admettant que ce soit des nombres, que tu ais :
A1 : 0101
A2 : 0101
A3 : 0102
tu écris la formule suivante en A4 :
=SI(A1=A2;A3;A3+1)
et tu fais de la recopie sur le reste de ta série
A+

Message édité par: Gorfael, à: 14/06/2006 14:36

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 14 Juin 2006

• #3

Salut,

En B2 : =B1+MOD(LIGNE();2)
formule à copier vers le bas.

Â+

EDITION :

OUPS !
J'avais pas vu que tu voulais passer de 0110 à 0201, je regarde.

Message édité par: andré, à: 14/06/2006 15:00

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Juin 2006

• #4

bonjour

josé adjugé vendu

andré, j'ai un souci pour le passage des centaines, apres 0110, la formule doit passer à 0201, et non à 0111.

merci à vous trois pour vous etes penché sur mon problème.

salut

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Juin 2006

• #5

bonjour Hervé, Gorfael, jmps, andré

selon ma vieille habitude:

par vba [file name=hervedemande_20060614150248.zip size=10288]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hervedemande_20060614150248.zip[/file]

 

Pièces jointes

• hervedemande_20060614150248.zip

  10 KB · Affichages: 28

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Juin 2006

• #6

re, salut pierrejean

merci à toi

salut

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Juin 2006

• #7

re

une autre proposiiton en vba par function, ne fonctionne qu'a partir de la ligne 3.

Public Function incremente()
Dim c As Range

Application.Volatile
Set c = Application.Caller

If c.Row < 3 Then Exit Function

If Not c.Offset(-1, 0) = c.Offset(-2, 0) Then
        incremente = c.Offset(-1, 0)
Else
        If c.Offset(-1, 0) Mod 10 = 0 Then
                incremente = c.Offset(-1, 0) + 91
        Else
                incremente = c.Offset(-1, 0) + 1
        End If
End If

End Function

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 14 Juin 2006

• #8

Re,

Et voilà :
=B1+MOD(LIGNE();2)+(MOD(LIGNE()-1;20)=0)*90

Â+

Message édité par: andré, à: 14/06/2006 16:23

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 15 Juin 2006

• #9

Bonjour les joyeux lurons

Une autre formule, plus longue que celle d'Ândré :

=(ENT((LIGNE()-1)/20)+1)*100+MOD(ENT((LIGNE()-1)/2);10)+1

en partant de la 1ère ligne. Si tu commences à une ligne différente de 1, il te suffit d'adapter la formule comme suit :

=(ENT((LIGNE()-LIGNE(CelluleDébut))/20)+1)*100+MOD(ENT((LIGNE()-LIGNE(CelluleDébut))/2);10)+1

C'était juste pour mettre mon grain de sel

A+ les amis

 

Vote positif 0 Vote négatif