numéroter les lignes au fur et à mesure

[guirmi]

bonjour le forum,

trés simple sans doute.
Je voudrais que le n° 1 apparaisse automatiquement dans la cellule A1 (colonne A) quand je saisis une donnée dans la ligne 1.
Et ainsi de suite : 2 dans dans A2 si je saisis des données dans ligne 2.
Mais uniquement si je saisis des données. Pas de numérotation préalable.
Est-ce possible ? Quel code évènementiel ?
Merci beaucoup à tous .

 

[ziopizza]

Bonsoir guirmi

A mettre dans a1 et tirer vers le bas.

=SI(B1='';'';LIGNE())
Yves

 

[Robert]

Bonsoir Guirmi, Ziopizza, bonsoir le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column DIFFÉRENT_DE 1 Then 'condition : permet d'effacer éventuellement cette numérotation
Cells(Target.Row, 1).Value = Target.Row 'place le numéro de ligne dans la colonne A
End If 'fin de la condition
End Sub

Remplace DIFFÉRENT_DE par les deux symboles consécutifs Inférieur, Supérieur qui plante dnas ce forum...

 

[AV]

Ave,

Pour que la numérotation soit supprimée en cas d'effacement...
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
x = zz.Row
If zz.Column DIFFERENTDE 1 Then
If Evaluate('counta(B' & x & ':IV' & x & ')') SUPERIEURA 0 Then Cells(x, 1) = x Else: Cells(x, 1) = ''
End If
End Sub

** Remplacer DIFFERENTDE et SUPERIEURA par les caractères qui vont bien

AV [MVP Excel]

 

[guirmi]

bonjour,
je suis toujours agréablement surpris da la qualité et de la rapidité des réponse que je trouve sur ce forum.
Vous êtes tous super sypma et efficaces. Et rapides.
Merci à zopizza, à Robert et à AV.
Vos solutions me vont bien. Bravo.
Bonne journée à tous.

Michel