XL 2016 Numero d'ordre

KTM · 21 Juin 2019

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 · 21 Juin 2019

Bonjour.
Peut être :

VB:

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 · 21 Juin 2019

Dranreb à dit:

Bonjour.
Peut être :

VB:

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 · 21 Juin 2019

Une autre possibilité :

VB:

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 · 21 Juin 2019

Dranreb à dit:

Une autre possibilité :

VB:

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 · 21 Juin 2019

Bonjour KTM, Bernard,

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

Code:

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

S'il faut du VBA :

VB:

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

A+

KTM · 21 Juin 2019

job75 à dit:
Bonjour KTM, Bernard,

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

Code:

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

S'il faut du VBA :

VB:

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

A+

MERCI JOB 75

XL 2016 Numero d'ordre

KTM

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

Discussions similaires