Discussion :

[vieuxmonsieur]

Bonjour à vous tous,
Ma question :
Sous Excel 2003 Feuil1, j'ai en ligne 1 :
N° (en A1) Titres (en B1)

Est-il possible que lors de la saisie du titre, le numéro se mette automatiquement dans la colonne A de façon chronologique, en bleu.

Ex : __N° _______Titres
(A2) 0001 Ma première saisie
(A3) 0002 Ma seconde saisie
Je vous en remercie

[mercatog]

Code à mettre dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 2 And Target.Row > 1 Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        If Target.Value <> "" Then
            With Target.Offset(0, -1)
                .Value = Val(Target.Offset(-1, -1).Value) + 1
                .NumberFormat = "00000"
            End With
        Else
            Target.Offset(0, -1).ClearContents
        End If
        Application.EnableEvents = True
    End If
End If
End Sub

[vieuxmonsieur]

Je vous en remercie infiniement mercatog.