Numérotation avec 2 conditions

Bonjour

Je dois numéroter des lignes en fonction deux critères ( le numéro s'inscrit en colonne G à partir de la ligne 16). Ces numéros permettent de répertorier les documents Joints au formulaire imprimé. J'utilise ce code (voir ci-Dessous). Mais j'ai des totaux intermédiaires et donc sur la ligne où le mot TOTAL est noté en colonne B de la ligne on ne numérote pas, merci de m'aider et de me préciser ce que je dois modifier. Je vous joins mon fichier.

' NUMEROTATION DES DOCUMENTS

'

Dim Ligne As Long

Range("g16", Range("g16").End(xlDown)).ClearContents

For Ligne = 16 To Range("B" & Rows.Count).End(xlUp).Row

If Range("d" & Ligne).Value <> "" Then

Range("g" & Ligne) = Format(Application.CountIf(Range(Range("d16"), Range("d" & Ligne)), "<>"), "00")

Else

Range("g" & Ligne) = ""

End If

Next Ligne

Bonjour,

à tester,

Sub macro3()
 ' NUMEROTATION DES DOCUMENTS
'
Dim Ligne As Long
    Range("g16", Range("g16").End(xlDown)).ClearContents
    For Ligne = 16 To Range("B" & Rows.Count).End(xlUp).Row
        If Range("d" & Ligne).Value > 0 And Range("B" & Ligne).Value <> "TOTAL" Then
            Range("g" & Ligne) = Format(Application.CountIf(Range(Range("d16"), Range("d" & Ligne)), "<>"), "00")
        Else
            Range("g" & Ligne) = ""
        End If
    Next Ligne
End Sub

Bonjour

Merci pour la réponse que j'ai testé.Je n'ai pas de numéro qui s'affiche sur la ligne où le mot TOTAL est en colonne B mais il compte quand même un numéro. Je n'ai pas ce problème si la ligne est complétement vide. Je ne vois pas ce que je doit changer dans ce code.

Bonjour,

voici la modification,

Sub macro3()
 ' NUMEROTATION DES DOCUMENTS
'
Dim Ligne As Long
    Range("g16", Range("g16").End(xlDown)).ClearContents
    For Ligne = 16 To Range("B" & Rows.Count).End(xlUp).Row
        If Range("d" & Ligne).Value > 0 And Range("B" & Ligne).Value <> "TOTAL" Then
            Range("g" & Ligne) = Application.Max(Range("G16:G" & Ligne)) + 1
        Else
            Range("g" & Ligne) = ""
        End If
    Next Ligne
End Sub

Génial merci beaucoups pour cette aide

j 'suis bien contente que tout fonctionne,

merci pour ce retour et bonne continuation, @+ isabelle