Numérotation en fonction du contenu

Bonsoir

Je cherche le moyen de numéroter les cellules d'une colonne en fonction du contenu de la colonne à coté.Je m'explique :

Si dans certaines cellules de la colonne B il y a le mot vérifier alors je numérote la cellule de la colonne A.

Je joins un fichier pour illustrer.

Merci d'avance pour votre aide

13exemple.xlsx (9.72 Ko)

Bonjour,

17exemple-1.xlsx (11.24 Ko)

A+

Bonjour !

Essayez cette formule-ci matricielle (à confirmer avec CTRL+MAJ+ ENTRÉE, non seulement ENTRÉE) dans la cellule A5 et copiez-la vers le bas :

=SI(B5<>"Vérifier";"";PETITE.VALEUR(LIGNE(INDIRECT("1:"&NB.SI($B$5:$B$16;"Vérifier")));LIGNES($B$5:$B5)-NB.SI($B$5:$B5;"<>Vérifier")))

Cordialement


Ha! Je n'ai pas vu le post de frangy, qui est mille fois plus simple et élégante que la mienne, donc s'il vous plaît ignorer!

Bonsoir @ tous,

Ou bien en A5,

=SI(B5="Vérifier";MAX(A$4:A4)+1;"")

@ tirer vers le bas

@ + +

Merci R@chid

Votre solution fonctionne.Par contre j'aurais voulu savoir si il était possible de l'intégrer dans du code vba pour ne pas avoir à tirer vers le bas car je ne sais pas de combien je vais avoir besoin de numéro quand je crée un nouveau fichier.

Bonjour,

Moi et le VBA faisons 5...

Surement une âme charitable va passer par là pour te donner de l'aide.

Tu aurais du^ le faire par Macro depuis le début sans formule

@ + +

Bonjour,

Voir fichier

Option Explicit
Public Sub numérotation()
Dim wS As Worksheet
Dim Derligne As Long, i As Long
Dim Cpt As Long

    Application.ScreenUpdating = False
    Set wS = Worksheets("Feuil1")
    Cpt = 1
    With wS
        Derligne = .Range("B" & Rows.Count).End(xlUp).Row       
        For i = 2 To Derligne
            If .Cells(i, 2) = "Vérifier" Then
                .Cells(i, 1) = Cpt
                Cpt = Cpt + 1
            End If
        Next
    End With

End Sub

Merci cela correspond exactement

Rechercher des sujets similaires à "numerotation fonction contenu"