cherche fonction plus rapide....

Re : cherche fonction plus rapide....

ci-joint exemple de fichier :

Re : cherche fonction plus rapide....

Bonjour,

Si tu avais donné manuellement le résultat que tu souhaites obtenir, cela aurait été plus facile pour comprendre ce que tu désires.

abcd

Re : cherche fonction plus rapide....

abcd à dit:

Bonjour,

Si tu avais donné manuellement le résultat que tu souhaites obtenir, cela aurait été plus facile pour comprendre ce que tu désires.

abcd

Cliquez pour agrandir...

c fichier c un exemple...j ai beaucoup de fichier .chaque fichier contien 50 000 ligne...c pour c je cherche fonction..merci

Re : cherche fonction plus rapide....

Bonsoir,

Nous sommes prêt à t'aider, mais comme le demande abcd, il faut que tu nous indique une règle de gestion. explique nous en quelques mots ou par un exemple ce que tu fais aujourd'hui à la main, quels sont le ou les critères qui te permettent de lettrer tes opérations comptables.


GIBI

Re : cherche fonction plus rapide....

GIBI à dit:

Bonsoir,

Nous sommes prêt à t'aider, mais comme le demande abcd, il faut que tu nous indique une règle de gestion. explique nous en quelques mots ou par un exemple ce que tu fais aujourd'hui à la main, quels sont le ou les critères qui te permettent de lettrer tes opérations comptables.


GIBI

Cliquez pour agrandir...

ci-joint l'exemple avec l'explication d mon probleme..merci

Re : cherche fonction plus rapide....

Bonjour,

Voici une solution avec une macro VBA Lettrer( lancer via ALT+F8 Lettrer)

La macro marque les montants en correspondance avec le même critère (date+numéro de séquence)

Sub lettrer()
Dim NumLet As Long, Nbligne As Long, LD As Long, LC As Long
Dim Lettrage As String
NumLet = 0

Nbligne = Cells(65536, 1).End(xlUp).Row

For LD = 2 To Nbligne - 1
If Cells(LD, 6).Value <> 0 And Cells(LD, 8).Value = "" Then
For LC = LD + 1 To Nbligne
If Cells(LC, 8).Value = "" Then
If Cells(LD, 6).Value = Cells(LC, 7).Value Then
NumLet = NumLet + 1
Lettrage = Format(Date, "yyyy/mm/dd") & "-" & Format(NumLet, "00000")
Cells(LD, 8).Value = Lettrage
Cells(LC, 8).Value = Lettrage
Exit For
End If
End If
Next
End If

Next

MsgBox "le lettrage est terminé"
End Sub

Souhaitant que cela vous aide

GIBI