mise en forme tableau par macro

[fredalien]

Bonjour à tous,

et encore félicitations pour ce site qui est une bible pour les "novices" comme moi!!🙂

voici mon soucis:

j'exporte chaque semaine des données commerciales d'un logiciel de gestion de production vers un tableau excel, je souhaiterais le mettre en forme grâce à une macro (demande de mon supérieur!!).

la mise en forme implique de figer les volets et de passer les données qui sont exportées de 2 décimales à aucune.

je précise que le tableau suivant les extractions ne fera jamais le même nombre de colonnes ni de lignes!!😱

je vous joint le fichier d'origine et le fichier mis en forme.

quelqu'un pourrait-il m'aider svp car je ne sais pas écrire de macro!!🙁

 

[mromain]

Re : mise en forme tableau par macro

bonjour fredalien

essaye avec cette macro :

Sub MiseEnForme()
Dim zonePrix As Range
    
    'récupérer la zone comprenant toutes les données
    Set zonePrix = ActiveSheet.Range("C3").CurrentRegion
    'enlever les 3 premières lignes ainsi que les 3 premières colonnes
    Set zonePrix = zonePrix.Offset(3, 3).Resize(zonePrix.Rows.Count - 3, zonePrix.Columns.Count - 3)
    
    'modifier le format
    zonePrix.NumberFormat = "$#,##0_);($#,##0)"
    
    'figer les volets
    zonePrix(1, 1).Select
    ActiveWindow.FreezePanes = True
    
    zonePrix.Select
End Sub

a+

 

[fredalien]

Re : mise en forme tableau par macro [résolu]

salut mromain,

+1
trop fort merci à toi!!

c cool cette communauté!! chapeau!!

@ très plus pour un nouveau défi😀😀😀

fredalien

 

[fredalien]

Re : mise en forme tableau par macro

heu juste un ptit truc!!

j'ai un titre sur trois lignes qui apparait lors du transfert de données, la modif ce serait quoi?

je t'envoies le fichier en restreint car trop gros avec la macro mais c'est juste pour te montrer

merci d'avance mromain

fred

 

[mromain]

Re : mise en forme tableau par macro

Re,

Essaye avec ceci :

Sub MiseEnForme()
Dim zonePrix As Range
    
    'récupérer la zone comprenant toutes les données
    Set zonePrix = ActiveSheet.Range("C6").CurrentRegion
    'enlever les premières lignes ainsi que les 3 premières colonnes
    Set zonePrix = zonePrix.Offset(4, 3).Resize(zonePrix.Rows.Count - 4, zonePrix.Columns.Count - 3)
    
    'modifier le format
    zonePrix.NumberFormat = "$#,##0_);($#,##0)"
    
    'figer les volets
    zonePrix(1, 1).Select
    ActiveWindow.FreezePanes = True
    
    zonePrix.Select
End Sub

a+

 

[fredalien]

Re : mise en forme tableau par macro

merci mromain c super!!
je t'ais envoyé un mail pour le signe € mais ça presse pas

++

 

[mromain]

Re : mise en forme tableau par macro

merci mromain c super!!
je t'ais envoyé un mail pour le signe € mais ça presse pas

++

Re,

Je n'ai reçu aucun mail.
Que ce passe-t-il avec le signe € ?

a+

 

[fredalien]

Re : mise en forme tableau par macro

re,

j'abuse mais mon chef veux le virer c'est possible?

encore merci

fred

 

[mromain]

Re : mise en forme tableau par macro

Re,

Essaye avec cette ligne :

zonePrix.NumberFormat = "#,##0_ ;-#,##0 "

a+

 

[fredalien]

Re : mise en forme tableau par macro

nickel t'es un chef!!!

+1000000 pour mromain!

peut-être à une prochaine?

et encore merci