incrementation

M

Michel_M

Guest

• 6 Septembre 2004

• #2

Bonjour rem$

Si tu n'as pas beaucoup de données en col A

tu écris en S1
=SI(A1="";"";A1&NB.SI(A$1:A1;A1))
et tu tires vers le bas

sinon il faut passer par une macro

je regarde la macro
ad'taleur
Michel

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 6 Septembre 2004

• #3

Re

Et voici une solution par macro:

Option Explicit

Sub incrementer()
Dim nbre As Long, cptr As Long, var As Long
Dim titre As String

Application.ScreenUpdating = False

'colonne S=19
Columns(19).ClearContents

nbre = Application.CountA(Range("A:A"))
cptr = 1
While cptr <= nbre
If Cells(cptr, 1) > 0 Then
titre = Cells(cptr, 1)
var = Application.CountIf(Range(Cells(1, 1), Cells(cptr, 1)), titre)
Cells(cptr, 19) = titre & var
Else
nbre = nbre + 1
End If
cptr = cptr + 1
Wend

End Sub

A+, bonne soirée
Michel

 

Vote positif 0 Vote négatif

R

rem$

Guest

• 8 Septembre 2004

• #4

bonjour au forum
bonjour Michel_M

dsl je n'ai pas pu consulter ta reponse hier
grand merci le resultat obtenu est celui attendu
je n'ai pas utilisé la macro et ca marche tres bien

Juste pour savoir : est-ce possible de conditionner l'incrementation avec une date j'eclairci
j'ai une colonne avec la date et je voulais savoir si l'incrementation pouvais repartir à 1 à chaque nouvelle journée??
j'espere avoir été assez clair

encore merci

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 8 Septembre 2004

• #5

Bonjour rem$

Pas évident (pour moi) ton truc

Ci joint une proposition avec une colonne intermédiaire en concaténant la date et le nom mais on devrait pouvoir s'en passer avec une formule matricielle...

Le pb est que pour moi, les formules matricielles, c'est "limite"

J'écris cela pour appâter les gros bras des formules.

Je cherche quand même

Bon app
Michel

 

Pièces jointes

• incrementation_coton.zip

  2.2 KB · Affichages: 16

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 8 Septembre 2004

• #6

Bonjour

Michel pas besoin de fonction matricielle

=B1&SOMMEPROD((A$1:A1=A1)*(B$1:B1=B1))

Faire un glisser/déposer sur le reste du tableau

@+Jean-Marie

 

Vote positif 0 Vote négatif

R

rem$

Guest

• 8 Septembre 2004

• #7

re Michel_M
Bonjour Jean-Marie

Merci a tous les 2 les resultats est nickel.........

@ bientôt ;-)

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 8 Septembre 2004

• #8

Sommeprod ???

Bon Dieu, mais c'est bien sûr!

Merci, Jean-Marie

Michel

 

Vote positif 0 Vote négatif