Macro qui met en forme une colonne : couleur + format de chiffre

M

MaxInpact

XLDnaute Nouveau
Bonjour,

Je voudrais ajouter dans une macro un code qui met en forme une colonne de mon tableau automatiquement : couleur et format de chiffres (euros sans virgule) : est-ce que quelqu'un peut me donner le code VBA ?

Informations complémentaires :
Endroit : début : colonne H à partir de la ligne 3 ; fin : quand il n'y a plus de chiffre
Couleur : vert clair
Format de chiffre : euros sans virgule

Merci pour votre aide.
 
Trier par date Trier par votes
L

link93

XLDnaute Occasionnel
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Bonjour, je ne sais si ça peut t'aider mais si c'est pour de la mise en forme passe peut être par l'enregistreur vba. C'est le bouton rouge.

A plus
 
Vote positif 0 Vote négatif
M

MaxInpact

XLDnaute Nouveau
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Oui merci, c'est effectivement une idée. Par contre, j'ai peur qu'en passant par l'enregistreur de macro, je ne puisse pas avoir : mise en forme de la colonne tant qu'il y a un chiffre (notamment la couleur verte) : est-ce que je me trompe ?
 
Vote positif 0 Vote négatif
JNP

JNP

XLDnaute Barbatruc
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Bonjour le fil :),
Code: 
Dim DerLig As Long
DerLig = Range("H" & Rows.Count).End(xlUp).Row
With Range("H3:H" & DerLig)
    With .Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    .Style = "Currency"
    .NumberFormat = "_-* #,##0 $_-;-* #,##0 $_-;_-* ""-""?? $_-;_-@_-"
End With
Bonne journée :cool:
 
Vote positif 0 Vote négatif
M

MaxInpact

XLDnaute Nouveau
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Alors je viens d'essayer : cela colorie bien la colonne H.. mais pas dans le bon onglet :(

Comment faire en sorte que cela fasse cela dans l'onglet "suivi détaillé d" (et non pas "perf" comme maintenant) ?

Merci !
 
Vote positif 0 Vote négatif
M

MaxInpact

XLDnaute Nouveau
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Pour info, le code complet :

Sub DerniereValo_IFLC()

Worksheets("d").Activate


' renseigne les valo
Worksheets("perf").Activate
For i = 0 To 1000

If Range("B1").Offset(i, 0).Value <> 0 Then

'check liste d
For k = 1 To 500
If Range("B1").Offset(i, 0).Value = Range("iflc_ctt").Offset(k, 0).Value Then
Range("B1").Offset(i, 2).Value = Range("iflc_valo").Offset(k, 0).Value
End If
Next k
End If
Next i

' renseigne les valo
Worksheets("perf").Activate
For l = 0 To 1000

If Range("B1").Offset(i, 0).Value <> 0 Then

'check liste d
For m = 1 To 500
If Range("B1").Offset(l, 0).Value = Range("admin_contrat").Offset(m, 0).Value Then
Range("B1").Offset(l, 2).Value = Range("admin_valo").Offset(m, 0).Value
End If
Next m
End If
Next l

' renseigne les valo
Worksheets("perf").Activate
For n = 0 To 1000

If Range("B1").Offset(i, 0).Value <> 0 Then

'check liste d
For o = 1 To 500
If Range("B1").Offset(n, 0).Value = Range("iflc4_contrat").Offset(o, 0).Value Then
Range("B1").Offset(n, 2).Value = Range("iflc4_valo").Offset(o, 0).Value
End If
Next o

End If
Next n


Range("O1").Offset(0, 0).Value = "D:" & Date

Sheets("suivi détaillé d").PivotTables(1).RefreshTable

Dim DerLig As Long
DerLig = Range("H" & Rows.Count).End(xlUp).Row
With Range("H3:H" & DerLig)
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Style = "Currency"
.NumberFormat = "_-* #,##0 $_-;-* #,##0 $_-;_-* ""-""?? $_-;_-@_-"
End With

End Sub
 
Vote positif 0 Vote négatif
JNP

JNP

XLDnaute Barbatruc
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Re :),
En ajoutant la feuille dans le code :
Code: 
Sub test()
Dim DerLig As Long
With Sheets("suivi détaillé d")
    DerLig = .Range("H" & Rows.Count).End(xlUp).Row
    With .Range("H3:H" & DerLig)
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 5296274
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        .Style = "Currency"
        .NumberFormat = "_-* #,##0 $_-;-* #,##0 $_-;_-* ""-""?? $_-;_-@_-"
    End With
End With
End Sub
Ça plairait à Jean-Marie, y a plein d'endives (humour réservé à Stapple :p)
Bon courage :cool:
 
Vote positif 0 Vote négatif
M

MaxInpact

XLDnaute Nouveau
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Alors j'ai "Erreur de compilation : End Sub attendu" : du coup je l'ai ajouté là où il me disait, mais résultat, ta macro n'est plus exécuté ;)

Je mets le code complet, je pense que c'est plus simple pour toi que mes explications louches ;)

Code: 
Sub DerniereValo_IFLC1()

Worksheets("d").Activate


' renseigne les valo
Worksheets("perf").Activate
For i = 0 To 1000
            
            If Range("B1").Offset(i, 0).Value <> 0 Then
                    
                    'check liste d
                    For k = 1 To 500
                            If Range("B1").Offset(i, 0).Value = Range("iflc_ctt").Offset(k, 0).Value Then
                            Range("B1").Offset(i, 2).Value = Range("iflc_valo").Offset(k, 0).Value
                            End If
                    Next k
            End If
Next i

' renseigne les valo
Worksheets("perf").Activate
For l = 0 To 1000
            
            If Range("B1").Offset(i, 0).Value <> 0 Then
                    
                    'check liste d
                    For m = 1 To 500
                            If Range("B1").Offset(l, 0).Value = Range("admin_contrat").Offset(m, 0).Value Then
                            Range("B1").Offset(l, 2).Value = Range("admin_valo").Offset(m, 0).Value
                            End If
                    Next m
            End If
Next l

' renseigne les valo
Worksheets("perf").Activate
For n = 0 To 1000
            
            If Range("B1").Offset(i, 0).Value <> 0 Then
                    
                    'check liste d
                    For o = 1 To 500
                            If Range("B1").Offset(n, 0).Value = Range("iflc4_contrat").Offset(o, 0).Value Then
                            Range("B1").Offset(n, 2).Value = Range("iflc4_valo").Offset(o, 0).Value
                            End If
                    Next o
                
            End If
Next n


Range("O1").Offset(0, 0).Value = "D:" & Date

Sheets("suivi détaillé d").PivotTables(1).RefreshTable

End Sub

Sub test()
Dim DerLig As Long
With Sheets("suivi détaillé d")
    DerLig = .Range("H" & Rows.Count).End(xlUp).Row
    With .Range("H3:H" & DerLig)
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 5296274
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        .Style = "Currency"
        .NumberFormat = "_-* #,##0 $_-;-* #,##0 $_-;_-* ""-""?? $_-;_-@_-"
    End With
End With

End Sub
 
Vote positif 0 Vote négatif
JNP

JNP

XLDnaute Barbatruc
Re : Macro qui met en forme une colonne : couleur + format de chiffre

Re :),
Tout simplement là où tu l'avais mis la première fois, pour la tester, il fallait bien que je mette une sub :rolleyes:...
Code: 
Sub DerniereValo_IFLC1()
 
Worksheets("d").Activate
 
 
' renseigne les valo
Worksheets("perf").Activate
For i = 0 To 1000
 
If Range("B1").Offset(i, 0).Value <> 0 Then
 
'check liste d
For k = 1 To 500
If Range("B1").Offset(i, 0).Value = Range("iflc_ctt").Offset(k, 0).Value Then
Range("B1").Offset(i, 2).Value = Range("iflc_valo").Offset(k, 0).Value
End If
Next k
End If
Next i
 
' renseigne les valo
Worksheets("perf").Activate
For l = 0 To 1000
 
If Range("B1").Offset(i, 0).Value <> 0 Then
 
'check liste d
For m = 1 To 500
If Range("B1").Offset(l, 0).Value = Range("admin_contrat").Offset(m, 0).Value Then
Range("B1").Offset(l, 2).Value = Range("admin_valo").Offset(m, 0).Value
End If
Next m
End If
Next l
 
' renseigne les valo
Worksheets("perf").Activate
For n = 0 To 1000
 
If Range("B1").Offset(i, 0).Value <> 0 Then
 
'check liste d
For o = 1 To 500
If Range("B1").Offset(n, 0).Value = Range("iflc4_contrat").Offset(o, 0).Value Then
Range("B1").Offset(n, 2).Value = Range("iflc4_valo").Offset(o, 0).Value
End If
Next o
 
End If
Next n
 
 
Range("O1").Offset(0, 0).Value = "D:" & Date
 
Sheets("suivi détaillé d").PivotTables(1).RefreshTable
Dim DerLig As Long
With Sheets("suivi détaillé d")
DerLig = .Range("H" & Rows.Count).End(xlUp).Row
With .Range("H3:H" & DerLig)
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Style = "Currency"
.NumberFormat = "_-* #,##0 $_-;-* #,##0 $_-;_-* ""-""?? $_-;_-@_-"
End With
End With
 
End Sub
Bon courage :cool:
 
Vote positif 0 Vote négatif

Discussions similaires

O
  • Résolu(e)
XL 2013 Formule ou Codage VBA qui met à jour un tableau en fonction de quantité
Réponses
5
Affichages
243
onyirimba
O
Wayat
  • Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
589
fanfan38
fanfan38
H
  • Question
XL 2021 Couleurs des graphiques qui se remettent par défaut sur fichier partagé, c'est usant
Réponses
1
Affichages
388
Efgé
Efgé
P
  • Résolu(e)
Microsoft 365 Macro qui change l'épaisseur du contour d'une forme
Réponses
11
Affichages
281
pat66
P
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
224
CS49
C
Electron24
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
333
Electron24
Electron24
Z
  • Question
Microsoft 365 Mise en forme de tableau et répétition de formule
Réponses
2
Affichages
413
DJunqueira
D
M
  • Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
340
MCOTTEND
M
F
  • Résolu(e)
XL 2010 Macro : Remplissage de texte sous conditions
Réponses
11
Affichages
258
FLG
F
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
TooFatBoy
guy72
  • Question
XL 2010 Changer de couleur de texte dans une zone de texte
2
Réponses
15
Affichages
887
guy72
guy72
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
689
Laliepomm
L
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
342
Leo98
L
L
  • Question
XL 2010 Filtrer et mise en couleur de cellules sur une colonne
Réponses
8
Affichages
599
sylvanu
sylvanu
J
  • Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
344
jerome91
J
B
  • Question
Microsoft 365 Mise en forme conditionnelle d'une colonne
Réponses
2
Affichages
541
Ben92290
B
M
  • Question
Microsoft 365 Verrouiller des cellules qui sont en couleur suite à une mise en forme conditionnelle
Réponses
4
Affichages
776
meunierceline78
M
didus
  • Question
XL 2021 VBA Ajout d'une valeur en heure dans une cellule
2
Réponses
21
Affichages
684
TooFatBoy
TooFatBoy
R
  • Question
XL 2016 copie de forme conditionnel en automatique VBA
Réponses
1
Affichages
489
Lolote83
L
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
549
NONO14
N

Membres actuellement en ligne

12 membres et 147 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 261
Messages
2 117 857
Membres
113 354
dernier inscrit
caillet