Mise en forme VBA recopie

[Marjo2]

Bonjour,

J'ai un export et je n'arrive pas à mettre mes morceaux de codes bout à bout.
Quelqu'un pourrait-il m'aider svp ?

Insère 3 colonnes
Worksheets("EXPORT").Select
Columns(1).Insert Shift:=xlToRight
Columns(2).Insert Shift:=xlToRight
Columns(3).Insert Shift:=xlToRight

Copie la ligne qui commence par C en colonne 1

On recopie jusqu'à la prochaine

Supprime les lignes dont la colonne N est vide

Merci d'avance

 

[Efgé]

Bonjour Marjo2

Ce fut plus long que prévu, ton fichier pose certains problèmes.
Les nombres n'en sont pas, les cellules vides ne le sont pas vraiment et il faut comprendre le résultat attendu.
Je pense avoir trouvé.
Tu lance la macro Test et le résultat est sur la feuille TST

Cordialement

 

[Marjo2]

Merci beaucoup. Par contre quand je prend l'extraction au complet j'ai 50 000 lignes, le code bug

If Trim(TReport(TRw, 6)) <> "" Then TReport(TRw, 6) = CLng(TReport(TRw, 6))

 

[Efgé]

Re
Parce que dans la colonne C de tes données il y a une valeur qui n'est ni vide, ni blanche (des espaces), ni un chiffre.
Peux-tu envoyer la ligne en défaut ? (La ligne est la valeur de i lors de l'arrêt du code).

Cordialement

 

[Marjo2]

Alors je ne sais pas comment faire pour trouver la ligne.
Mais quand je fais un filtre, dans ma colonne C, il y a que des chiffres ou des vides (avec/sans espace)

 

[Efgé]

(La ligne est la valeur de i lors de l'arrêt du code).

Quand le code s'arrête tu mets ta souris sur le i de

For i = LBound(TData, 1) To UBound(TData, 1)

Cela te donnes le numéro de la ligne de ton tableau source qui pose problème.

Cordialement

 

[Efgé]

Re
Ou alors remplace la ligne en défaut par:

 If Trim(TReport(TRw, 6)) <> "" Then TReport(TRw, 6) = CStr(TReport(TRw, 6))

 

[Marjo2]

Effectivement c'est un format texte mais il y a un chiffre non convertible

 

[job75]

Bonjour Marjo2, salut Fred, heureux de te croiser,

Une autre solution, moins rapide, qui a l'avantage de conserver les formats :

Private Sub Worksheet_Activate()
Dim r As Range
Application.ScreenUpdating = False
Sheets("EXPORT").[A:O].Copy [A1]
[A:C].Insert 'insertion de 3 colonnes
For Each r In [Q:Q].SpecialCells(xlCellTypeConstants).EntireRow.Areas
    r.Cells(0, 4).Resize(, 3).Copy r.Resize(, 3)
Next
[Q:Q].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

La macro est à placer dans le code de la feuille RESULTAT et se déclenche quand on active la feuille.

A+

 

[Efgé]

Re
Bon, nous avançons.
Veux-tu conserver le point comme séparateur (1.00) et avoir un format texte, ou le remplacer par une virgule (1,00) et avoir un vrai nombre ?

EDIT Salut Job

 

[Marjo2]

Merci Efgé, il faut conserver le point

 

[Marjo2]

Bonjour Job et merci également. Il faut d'abord alimenter l'onglet EXPORT et ensuite lancer la macro.
Dans ton code, c'est à quel niveau où on dit qu'on recopie ce qui commence par C ?

 

[Efgé]

Re
Alors, il suffit de supprimer la ligne en erreur

Cordialement

 

[Marjo2]

Efgé, c'est un fichier qui va être utilisé par des personnes qui ne connaissent pas excel et régulièrement.
Je ne peux pas laisser l'erreur. Sinon on converti, ça ira également.

 

[Efgé]

Re
Je ne disais pas de laisser faire les utilisateurs mais que tu supprimes la ligne en erreur dans le code.
Voir exemple
Cordialement