Microsoft 365 Incrémenter un nombre dans cellules d'une colonne selon un filtre sur autre cellules dans une colonne.

Rom52

XLDnaute Nouveau
comment je peux automatiquement remplir, Incrémenter un nombre dans cellules d'une colonne selon un filtre sur autres cellules d'une colonne.
Merci pour votre aide
 

Pièces jointes

  • Exemple_test.xlsx
    10.7 KB · Affichages: 4

Rom52

XLDnaute Nouveau
Bonne nuit tous,

Avec formule:
Merci beaucoup pour cette aide. Encore une question: est-ce que l'incrémentation fonctionne également avec cette formule lorsqu'on veut incrémenter à partir de 3 ou 7, ou 22, n'importe quel nombre. Ou bien c'est toujours à partir de 1.
Bonne nuit tous,

Avec formule:
Re

@Rom52

Un essai de ce que je comprends

Merci de ton retour

Merci à vous pour votre précieuse aide.
 

Rom52

XLDnaute Nouveau
Précisions concernant mon problème.
Veuillez Excuser ma démarche et être un peu confus dans ma requête
Ci-joint un fichier un peu plus clair concernant ma demande d'aide.
Merci encore
 

Pièces jointes

  • Exemple_test-5.xlsx
    13 KB · Affichages: 5

Rom52

XLDnaute Nouveau
J'ai une autre formule qui incrémente selon filtre à partir de 1.
1709295527474.png


Est-ce que cette formule peut tenir compte d'une incrémentation à partir de n'importe quel nombre.
Merci pour votre aide
Romain
 

Rom52

XLDnaute Nouveau
Comment puis-je automatiquement remplir, -copier. incrémenter les cellules Nb selon le filtre "Nom" dans le tableau et ceci depuis n'importe quel chiffre, pas uniquement à partir de 1.
Ci-joint encore un exemple pour ma requête.
Merci
 

Pièces jointes

  • Exemple_test-6.xlsx
    12 KB · Affichages: 3

Rom52

XLDnaute Nouveau
Ici macros que j'ai trouvées mais qui ne sont pas adaptées à mon exemple

Sub NumeroteLigneVisible()
Dim i As Long, DerLig As Long, P As Long
Sheets("feuil2").Select
DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Numérote la colonne H (8)
P = 1
For i = 1 To DerLig
If CelR.Rows(i).Hidden = False Then
Cells(i, 8) = P
P = P + 1
End If
Next i
End Sub
ou cette macro



Sub NumFacture()
' sélectionner la plage à numéroter avant d'appeler la macro
Dim c As Range, num As Long
num = CLng(InputBox("Premier numéro de facture ?", "Numérotation automatique de la plage sélectionnée"))
For Each c In Selection
If c.EntireRow.Hidden = False Then
c.Value = num
num = num + 1
End If
Next c
End Sub
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Tri et Import
Réponses
4
Affichages
173

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 184
dernier inscrit
Di Martino