Si changement Renvoyer Successivement (1,2,3,4....)

[Hamzaoui]

Bonjour,
J'aimerais savoir s'il existe une fonction qui permettrait de detecter le changement des valeurs dans les cellules est de renvoyer successivement les valeurs (1,2,3,4,5,6)

Ex :
Si A1=
A
A
C
C
B
A
A
B1 Renvoie
1
1
2
2
3
4
4
Merci d'avance si quelqu'un a une idée 🙂

 

[Iznogood1]

Re : Si changement Renvoyer Successivement (1,2,3,4....)

Dans le module de ta feuille :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Static svg
  If Not Intersect(Target, [A1]) Is Nothing Then
    If Target.Value <> svg Then
      svg = Target.Value
      [B1].Value = [B1].Value + 1
    End If
  End If
End Sub

 

[excfl]

Re : Si changement Renvoyer Successivement (1,2,3,4....)

Bonjour le forum,

B1 : 1

B2 : =SI(A2=A1;B1;B1+1)

A tirer vers le bas.

excfl

 

[Hamzaoui]

Re : Si changement Renvoyer Successivement (1,2,3,4....)

Merci Beaucoup les amis Les deux fonctions sont corretes 🙂