Incrémentation de numéros

[Patanes]

Bonjour, je souhaiterai pouvoir incrémenter de 1 des numéro sur 2 feuilles en parallèle. et cela lorsque l'on saisi un mon dans la colonne à) coté.
Exemple joint car je ne sais pas si je suis très clair

 

[job75]

Re : Incrémentation de numéros

Bonjour Patanes, le forum,

Voyez ce code dans ThisWorkbook du fichier joint :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Sh.CodeName <> "Feuil1" And Sh.CodeName <> "Feuil2" Then Exit Sub
Set Source = Intersect(Source, Sh.[C5:C65536], Sh.UsedRange)
If Source Is Nothing Then Exit Sub
Dim cel As Range, maxi As Long
'---effacement éventuel des numéros en colonne B---
For Each cel In Source
  If cel = "" Then cel.Offset(, -1) = ""
Next
'---incrémentation en colonne B---
For Each cel In Source
  If cel <> "" And Not IsNumeric(cel.Offset(, -1).Text) Then
    maxi = Application.Max(Feuil1.[B:B], Feuil2.[B:B])
    cel.Offset(, -1) = maxi + 1
  End If
Next
Application.OnRepeat "", "" 'impossible de répéter
End Sub

Bien noter qu'on utilise le CodeName des feuilles, cela évite tout problème si l'on renomme les onglets.

A+

 

[Patanes]

Re : Incrémentation de numéros

Grand merci à vous c'est exactement ce que je souhaite faire