Numérotatation automatique

[Mapat]

Bonjour

Quelqu'un peut-il m'aider pour ce petit problème:

En ayant 2 colonnes A et B :
B est remplie avec des numéros mais pas sur toutes les lignes.
Peut-on remplir la colonne A avec une numérotation automatique
numérotant les lignes remplies de B.
Merci et bonne soirée

 

[R@chid]

Re : Numérotatation automatique

Bonsoir,
Si j'ai bien compris en A1,

=SI(B1="";"";NB.SI(B$1:B1;"<>"&""))

@ tirer vers le bas
@ + +

 

[Mapat]

Re : Numérotatation automatique

Bonsoir Rachid

Je te remercie. C'est exactement ce que je désirais.
Bonne soirée à toi et tous les présents du forum

 

[R@chid]

Re : Numérotatation automatique

Re,
Si la colonne B ne contient que des valeurs numériques, tu peux fraie plus courte,

=SI(B1="";"";NB(B$1:B1))

@ + +

 

[DoubleZero]

Re : Numérotatation automatique

Bonjour, Mapat, R@chid 🙂, le Forum,

Une autre suggestion, par macro :

Option Explicit
Sub Numéroter()
    Dim c As Range
    Application.ScreenUpdating = False
    Dim numéro As Integer
    numéro = 0
    For Each c In Columns("B:B").SpecialCells(xlCellTypeConstants, 23)
        If c <> "" Then c.Offset(, -1) = numéro + 1
        numéro = numéro + 1
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[Modeste geedee]

Re : Numérotatation automatique

Bonsour®

que doit-il se passer si l'on ressaisi une valeur en colonne B ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
' ------ordre de classement colonne B
If Target.Value <> "" Then Target.Offset(0, -1).FormulaLocal = "=RANG(" & Target.Address & ";B:B;1)"

'------- dernier cumul nombre de valeurs saisies colonne B
'Target.Offset(0, -1).Value = WorksheetFunction.Count(Range("B:B"))

'----- mettre ou oter le commentaire devant l'instruction souhaitée
End If

End Sub