XL 2016 Numero d'ordre

[KTM]

Salut FORUM
JE voudrais ajouter des numeros d'ordre à mes enregistrements effectués.
J'ai donc élaboré le code qui suit et qui marche comme souhaité.
Par curiosité j'aimerais savoir si je peux avoir mieux.
Les numéros sont en colonne A
Merci

Sub num()
Range("A2").Value = Range("B" & Rows.Count).End(xlUp).Row - 1
Range("A3").Value = Range("B" & Rows.Count).End(xlUp).Row - 2
Range("A2:A3").AutoFill Destination:=Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
End Sub

 

[Dranreb]

Bonjour.
Peut être :

Sub Macro3()
   With Range("A2").Resize(Range("B" & Rows.Count).End(xlUp).Row - 1)
      .Formula = "=" & .Rows.Count + 2 & "-ROW()": .Value = .Value
      End With
   End Sub

 

[KTM]

Bonjour.
Peut être :

Sub Macro3()
   With Range("A2").Resize(Range("B" & Rows.Count).End(xlUp).Row - 1)
      .Formula = "=" & .Rows.Count + 2 & "-ROW()": .Value = .Value
      End With
   End Sub

Merci

 

[Dranreb]

Une autre possibilité :

Sub Macro3()
   With Range("A2").Resize(Range("B" & Rows.Count).End(xlUp).Row - 1)
      .FormulaR1C1 = "=ROWS(RC:R" & .Rows.Count + 1 & "C)"
      End With
   End Sub

 

[KTM]

Une autre possibilité :

Sub Macro3()
   With Range("A2").Resize(Range("B" & Rows.Count).End(xlUp).Row - 1)
      .FormulaR1C1 = "=ROWS(RC:R" & .Rows.Count + 1 & "C)"
      End With
   End Sub

OK ça marche aussi

 

[job75]

Bonjour KTM, Bernard,

Organisez le tableau A1:B65 en tableau Excel structuré et entrez en A2 la formule :

=LIGNES(A2:INDEX([CPT];LIGNES([CPT])))

S'il faut du VBA :

Sub Macro3()
ActiveSheet.ListObjects(1).Range(2, 1).FormulaR1C1 = "=ROWS(RC:INDEX([CPT],ROWS([CPT])))"
End Sub

A+

 

[KTM]

Bonjour KTM, Bernard,

Organisez le tableau A1:B65 en tableau Excel structuré et entrez en A2 la formule :

=LIGNES(A2:INDEX([CPT];LIGNES([CPT])))

S'il faut du VBA :

Sub Macro3()
ActiveSheet.ListObjects(1).Range(2, 1).FormulaR1C1 = "=ROWS(RC:INDEX([CPT],ROWS([CPT])))"
End Sub

A+

Bonjour KTM, Bernard,

Organisez le tableau A1:B65 en tableau Excel structuré et entrez en A2 la formule :

=LIGNES(A2:INDEX([CPT];LIGNES([CPT])))

S'il faut du VBA :

Sub Macro3()
ActiveSheet.ListObjects(1).Range(2, 1).FormulaR1C1 = "=ROWS(RC:INDEX([CPT],ROWS([CPT])))"
End Sub

A+

MERCI JOB 75