Bonjour à tous bjr Mr roblochonBonjour,
.... lire la charte du forum et apprendre à dire bonjour.
Cordialement
Sub lettrage()
Application.ScreenUpdating = False
Dim derlig As Long
With Worksheets("Autres fournisseurs")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
.Range("E2:E" & derlig).ClearContents
For i = 2 To derlig
For j = i + 1 To derlig '
If .Cells(i, 5) = "" And .Cells(i, 6) > 0 Then
If .Cells(i, 3) = .Cells(j, 3) And .Cells(i, 6) = .Cells(j, 7) Then
.Cells(i, 5) = "A"
.Cells(j, 5) = "A"
End If
End If
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub
Sub lettrage2()
Dim journal As Variant
Dim derlig As Long
' Dernière ligne du journal
derlig = Worksheets("Autres fournisseurs").Range("a" & Rows.Count).End(xlUp).Row
' Effacement du contenu de la colonne lettre
Range("E2:E" & derlig).ClearContents
' Affectation du contenu de la feuille au tableau journal
journal = Worksheets("Autres fournisseurs").Range("A2:H" & derlig).Value
' lettrage des écritures sans correspondance avec les libellés.
' correspondance des montants uniquement
For i = 1 To UBound(journal)
For j = i + 1 To UBound(journal) '
If journal(i, 5) = "" And journal(i, 6) > 0 Then
If journal(i, 6) = journal(j, 7) Then
journal(i, 5) = "A" & i
journal(j, 5) = "A" & i
End If
End If
Next j
Next i
' Affichage du journal traité
Worksheets("Autres fournisseurs").Range("A2:H" & derlig).Value = journal
End Sub