Mise en forme VBA recopie

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #2

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

 

Pièces jointes

• TEST_2.xlsm

  20 KB · Affichages: 5

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 19 Février 2019

• #3

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))

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #4

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

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 19 Février 2019

• #5

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)

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #6

Efgé à dit:

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

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #7

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

Code:

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

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 19 Février 2019

• #8

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

 

Pièces jointes

• Ligne pb.xlsx

  8.4 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Février 2019

• #9

Bonjour Marjo2, salut Fred, heureux de te croiser,

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

Code:

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+

 

Pièces jointes

• TEST(1).xlsm

  26.5 KB · Affichages: 5

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #10

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 🙂

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 19 Février 2019

• #11

Merci Efgé, il faut conserver le point

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 19 Février 2019

• #12

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 ?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #13

Re
Alors, il suffit de supprimer la ligne en erreur

Cordialement

 

Vote positif 0 Vote négatif

Marjo2

XLDnaute Occasionnel

• 19 Février 2019

• #14

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.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Février 2019

• #15

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

 

Pièces jointes

• TEST_3.xlsm

  20.7 KB · Affichages: 8

Vote positif 0 Vote négatif