Nmérotation automatique VBA

Bonjour à tous et toutes

j'aimerais savoir comment ajouter module le compteur pour "obtenir une numérotation automatique"" a mon macro .

voici le macro:

Sub Rectangleàcoinsarrondis1_Cliquer()
Dim NbLg As Long

  Application.ScreenUpdating = False
  Range("B13:P80").Clear
  With Sheets("Liste")
    If .AutoFilterMode = True Then .AutoFilterMode = False
    NbLg = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("A2:P" & NbLg).AutoFilter field:=6, Criteria1:=Range("X2")
    If Application.Subtotal(103, .Columns("F")) > 1 Then
      .Range("A3:O" & NbLg).SpecialCells(xlCellTypeVisible).Copy Range("B13")
    End If
    If .AutoFilterMode = True Then .AutoFilterMode = False
 End With
End Sub

Bien cordialement à tous!!!

Merci d'avance

Bonjour, zinelamri

Que voulez-vous numéroter avec votre macro ?

Si c'est les données (lignes ) d'un tableau, la fonction Si est plus simple

postez un fichier exemple , cela sera plus simple

Amicalement

Pierrot

Bonjour Papy,

le fichier en arabe je ne sais pas si vous pouvez déchiffrer

je vais essayer de simplifier

Voici un exemple de mon fichier

Merci beaucoup!

Bonjour,

Le fichier n'est pas joint

P

Plus de 300 ko

Dans quelle colonne voulez-vous les numéros

donnez-moi un exemple avec des Riri, Fifi, loulou

Pierrot

voila

Voila, mon ami la formule est copiée jusqu'à la ligne 100 dans la colonne A

Amicalement

Pierrot

zinelamri

Si vous avez des problèmes pour copier la formule, envoyez-moi, votre fichier complet

A mon adresse mail ci-dessous

pierrotcappe@gmail.com

Pierrot

Re papy

j'aimerai associer le compteur a mon macro vba

le nombre de lignes visibles après l'application d'un filtre

« Amicalement. »

Re

Voici le code modifié

Sub Rectangleàcoinsarrondis1_Cliquer()
    Dim NbLg As Long

      Application.ScreenUpdating = False
      Range("B13:P80").Clear
      With Sheets("Liste")
        If .AutoFilterMode = True Then .AutoFilterMode = False
        NbLg = .Range("B" & Rows.Count).End(xlUp).Row
        .Range("A2:P" & NbLg).AutoFilter field:=6, Criteria1:=Range("X2")
        If Application.Subtotal(103, .Columns("F")) > 1 Then
          .Range("A3:O" & NbLg).SpecialCells(xlCellTypeVisible).Copy Range("B13")
        End If
        If .AutoFilterMode = True Then .AutoFilterMode = False
     End With
      ActiveCell.Range("A9").Select     ' Ajout formule
        ActiveCell.FormulaR1C1 = "=IF(RC[1]<>"""",R[-2]C+1,"""")"
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A500"), Type:= _
        xlFillDefault

    End Sub

Bonne soirée

Pierrot

Re Bonsoir

malheureusement pas encore marcher.

Voici un extrait du fichier.

Merci pour ton aide,

Bonjour,

Je répète ce que j'ai écrit hier, si tu as des problèmes, postes ton fichier sur mon adresse mail personnelle

Dans ton fichier joint, j'ai remis la macro Numérotation avec un bouton,

je ne vois pas ce que je peux faire d'autre.

Bon week-end

Amicalement

Pierrot

Bonjour le forum

Bonjour Cappe Pierre

Le macro marche très bien et je vos remercie ,mais je souhaite intégrer à ma macro principale.

Merci bcp de votre support

« Bien cordialement. »

Bonjour, zinelamri

J'ignore quelle est ta macro principale, dans ce cas, tu copie ma macro et tu la colle

au bas de ta macro principale juste avant le End Sub.

Bon week-end

Amicalement

Pierrot

Bonsoir à tous

Bonsoir Cappe Pierre

j'ai réussi à adapter ta proposition à mon module

Merci beaucoup pour votre aide

Cordialement