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

[Gils92]

Bonjour à toustes,
Je récupère des données sous une forme inutilisable (Feuil1) et je voudrais les mettre en forme comme dans l'onglet Feuil2 avec une macro, sachant que l'export fait prés de 12.000 lignes.
Est-ce possible ?

 

[Gils92]

Bonjour,
Peut être en modifiant cette ligne :

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

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

Il se produit ça

 

[sylvanu]

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 :

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

 

[Gils92]

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 :

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

J'ai filtré la colonne A sur les cellules vides que j'ai rempli avec "Sté", ça marche mais c'est fastidieux.
Sinon, la dernière correction entraine des erreurs à chaque changement de page

 

[sylvanu]

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 ?

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

Qu'entendez vous par "changement de page" ?

Sinon, la dernière correction entraine des erreurs

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.

 

[Gils92]

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.

Dans le logiciel d'origine, il y a une sorte de mise en forme pour l'impression, à chaque changement de page on a ça :

 

[Gils92]

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.

Pardon, oui j'ai filtré sur les erreurs rencontrées

 

[sylvanu]

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

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.

 

[Gils92]

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.

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

 

[Gils92]

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

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é

 

[Gils92]

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é

 

[sylvanu]

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 :

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.

 

[Gils92]

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 :

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.

Super, ça a l'air de fonctionner, je le teste à nouveau demain matin, je vous tiens au courant

 

[Gils92]

La macro fonctionne super bien, merci pour tout

 

[Gils92]

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 :

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.

Bonjour, je suis désolé de vous solliciter à nouveau, mais je viens de me rendre compte que lorsque le jour de la date d'échéance est inférieur ou égal à 12, il y une inversion jour/mois, par exemple le 4/12/2024 devient, après lancement de la macro, le 12/04/2024 !?!?

 

[sylvanu]

Bonjour,
Il suffit de remettre la date dans le bon sens :

Sortie(Ligne, 5) = Format(Ech, "mm/dd/yyyy")