XL 2016 Mise en forme d'un export de logiciel dans un fichier Excel

sylvanu à dit:

Bonjour,
Peut être en modifiant cette ligne :

VB:

ElseIf T(N, 2) <> "" And T(N, 3) <> "" Then

On regarde non pas les colonnes A et C mais les colonnes B et C.

Cliquez pour agrandir...

sylvanu à dit:

Re,
Dans votre fichier un N) de contrat ne comporte pas "N° " mais probablement "N°".
Essayez cette PJ.
Si ça ne marche pas, mettez votre fichier en ligne.
J'ai modifié Découpe :

VB:

Sub Découpe(C$)
' Entrée : T 31/10/2024 N° 400118839
' Typ="T"  Ech=31/10/2024  Contrat=400118839
On Error GoTo FinDecoupe
Typ = Left(C, 1)
Ech = Mid(C, 3, 10)
Contrat = Split(C, "N°")(1)
FinDecoupe:
End Sub

Cliquez pour agrandir...

Gils92 à dit:

la dernière correction entraine des erreurs à chaque changement de page

Cliquez pour agrandir...

Gils92 à dit:

Sinon, la dernière correction entraine des erreurs

Cliquez pour agrandir...

sylvanu à dit:

Re,
Je ne comprends pas, votre fichier n'a rien à voir avec la structure du fichier initial.
Il n'y a plus de nom, de genre, de dates et n'a que 5 colonnes au lieu de 6.

Est il le résultat d'un filtrage ?

Qu'entendez vous par "changement de page" ?

Comment splitter sur "N°" au lieu de "N° " peut il entrainer des erreurs ?
Si la colonne C est bien de type "D 31/01/2026 N° 255462818" on ne peut pas avoir d'erreur, cela donne le même résultat.

Je n'y comprends plus rien.

Cliquez pour agrandir...

sylvanu à dit:

Re,
Je ne comprends pas, votre fichier n'a rien à voir avec la structure du fichier initial.
Il n'y a plus de nom, de genre, de dates et n'a que 5 colonnes au lieu de 6.

Est il le résultat d'un filtrage ?

Qu'entendez vous par "changement de page" ?

Comment splitter sur "N°" au lieu de "N° " peut il entrainer des erreurs ?
Si la colonne C est bien de type "D 31/01/2026 N° 255462818" on ne peut pas avoir d'erreur, cela donne le même résultat.

Je n'y comprends plus rien.

Cliquez pour agrandir...

Gils92 à dit:

Dans le logiciel d'origine, il y a une sorte de mise en forme pour l'impression,

Cliquez pour agrandir...

sylvanu à dit:

Et c'est maintenant que vous le dites ?
Comment pouvais je le savoir ?
La structure du fichier est fondamental dans ce genre d'exercice puisque c'est lui qui définit le filtrage.
Vous auriez un petit fichier test vraiment représentatif ?
Cela risque de faire reprendre la macro au début.

Cliquez pour agrandir...

Gils92 à dit:

Désolé, c'est ce que je suis en train de préparer

Cliquez pour agrandir...

Gils92 à dit:

Je ne pense pas que tout doive être repris, la ligne dont je vous parle apparaissait déjà dans le 1er fichier que j'ai posté

Cliquez pour agrandir...

sylvanu à dit:

J'ai trouvé.
Quand je "nettoyais" la base j'effaçais seulement la première cellule. Ensuite j'utilisais cette cellule pour le filtrage.
Mais comme avec la dernière modif j'utilise non pas les cellules A et B, mais B et C, le nettoyage n'avait plus d'effet.
Maintenait j'efface les cellules A,B,C lors du nettoyage avec :

VB:

Sub Nettoie()
' Supprime les lignes inutiles ( tout du moins essaye ! )
For i = 1 To UBound(T)
    If _
        T(i, 1) Like "*Contrats*" Or _
        T(i, 1) Like "*Page*" Or _
        T(i, 1) Like "*PARIS*" Or _
        T(i, 1) Like "*Tournée*" _
    Then
        T(i, 1) = "": T(i, 2) = "": T(i, 3) = ""
    End If
Next i
End Sub

C'est ce qu'on appelle un effet de bord.
Sorry.
Faites un feedback, en espérant qu'il sera positif.

Cliquez pour agrandir...

sylvanu à dit:

J'ai trouvé.
Quand je "nettoyais" la base j'effaçais seulement la première cellule. Ensuite j'utilisais cette cellule pour le filtrage.
Mais comme avec la dernière modif j'utilise non pas les cellules A et B, mais B et C, le nettoyage n'avait plus d'effet.
Maintenait j'efface les cellules A,B,C lors du nettoyage avec :

VB:

Sub Nettoie()
' Supprime les lignes inutiles ( tout du moins essaye ! )
For i = 1 To UBound(T)
    If _
        T(i, 1) Like "*Contrats*" Or _
        T(i, 1) Like "*Page*" Or _
        T(i, 1) Like "*PARIS*" Or _
        T(i, 1) Like "*Tournée*" _
    Then
        T(i, 1) = "": T(i, 2) = "": T(i, 3) = ""
    End If
Next i
End Sub

C'est ce qu'on appelle un effet de bord.
Sorry.
Faites un feedback, en espérant qu'il sera positif.

Cliquez pour agrandir...