XL 2013 Générations d'écritures

sylvanu à dit:

Re,
Pensez à clore le post 28 en vert (resolu) car il y a tellement de PJ que je plains le futur lecteur pour retrouver ses petits. 🙂

Cliquez pour agrandir...

sylvanu à dit:

Re,
Au fait, si les MFC ne vous sont utiles que pour l'export, alors elles sont inutiles puisque je reconstruit celles ci lors de l'analyse, avec cette fonction :

VB:

Function Analytique(Chaine)
Dim NB
'=OU(GAUCHE(R7;1)="2";GAUCHE(R7;1)="6";GAUCHE(R7;1)="7";GAUCHE(R7;1)="8")
'Renvoie 1 si l'analytique doit être pris en compte, sinonrenvoie 0
If Chaine = "" Then Analytique = 0: Exit Function
NB = CInt(Left(Chaine, 1))
If NB = 2 Or NB = 6 Or NB = 7 Or NB = 8 Then
    Analytique = 1
Else
    Analytique = 0
End If
End Function

Cliquez pour agrandir...