Discussion :

[PariPassu]

Bonjour,

J'ai créé une macro de mise en forme conditionnelle d'un tableau de relevés de prix pour que, notamment, la quantité achetée d'un article soit affichée dans un format correspondant au type de quantité mise à la vente. Par exemple, si l'article est vendu à l'unité, le format sera # ##0 ; s'il est vendu au kg, le format sera # ##0,000 kg ; s'il est vendu au litre, le format sera # ##0,000 l ; etc.

Je ne suis pas un professionnel et j'ai créé cette macro à l'aide la commande "Enregistrer une macro". A chaque mise en forme conditionnelle d'un nombre, cette commande a ajouté une ligne "ExecuteExcel4Macro". Mais lorsque je lance la macro, elle s'arrête à la première ligne "ExecuteExcel4Macro" [dont je ne comprends d'ailleurs ni le fonctionnement ni l'utilité ici ;-)].

Le message d'erreur est le suivant :



Nota : La commande "Enregistrer une macro" ne crée pas de ligne "ExecuteExcel4Macro" pour d'autres mises en forme que celle des formats de nombres ; il n'y en a pas, par exemple pour la création de traits de séparation en fonction de la date, de l'acheteur (payeur) ou du tiers (magasin) ...

Voici le code de ma macro :

Sub MiseEnForme()
'
' Mise en forme conditionnelle du tableau :
' - Application des formats appropriés en fonction du type de quantité mise à la vente
' - Insertion d'une bordure entre chaque date et chaque tiers
'
Application.ScreenUpdating = False

Dim Plage As Range

'Redéfinit les champs nommés

'Identifie la dernière ligne du tableau de la feuille active
ActiveSheet.Range("N1").Select
Selection.End(xlDown).Offset(0, -1).Select
Selection.End(xlUp).Select
L = ActiveCell.Row

'Définit le tableau des données dans la feuille sélectionnée
With ActiveSheet
Set Plage = Range("A1:M" & L)
ActiveWorkbook.Names("Tableau").RefersTo = Plage
End With

'Définit la colonne des quantités
With ActiveSheet
Set Plage = Range("G1:G" & L)
ActiveWorkbook.Names("Quantités").RefersTo = Plage
End With

'Définit la colonne des prix
With ActiveSheet
Set Plage = Range("H1:H" & L)
ActiveWorkbook.Names("Prix").RefersTo = Plage
End With

'Définit la colonne des vérifications
With ActiveSheet
Set Plage = Range("M1:M" & L)
ActiveWorkbook.Names("Vérifications").RefersTo = Plage
End With

'Crée les règles de mise en forme conditionnelle du tableau

'Annule les précédentes règles
Range("Tableau").Select
Cells.FormatConditions.Delete

'Règle 1 : Applique le format nombre standard aux cellules contenant des quantités de type "unité" dans la colonne G
Range("Quantités").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F1=""unité"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,""# ##0"")"
Selection.FormatConditions(1).StopIfTrue = False

'Règle 2 : Applique le format nombre 0,000 kg aux cellules contenant des quantités de type "kg" dans la colonne G
Range("Quantités").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F1=""kg"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,""# ##0,000"" kg"""")"
Selection.FormatConditions(1).StopIfTrue = False

...

'Règle 9 : Trace un trait de séparation entre les dates, les payeurs et les tiers sur toute la largeur du tableau
Range("Tableau").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU($A1<>$A1;$B2<>$B1;$D2<>$D2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
Selection.FormatConditions(1).StopIfTrue = False

Range("A1").Select
Application.ScreenUpdating = True

End Sub

Savez-vous pourquoi la macro bloque sur ces lignes "ExecuteExcel4Macro" ? Merci d'avance pour vos lumières !

[Philippe Tulliez]

Bonjour,
Je ne sais pas ce que vous avez utilisé comme commande en enregistrant votre macro car ExecuteExcel4Macro provient des anciennes macros avant que l'on utilise le VBA.
Pour obtenir ce que vous souhaitez, il faut utiliser le format personnalisé et en VBA le format nombre d'une cellule, c'est la propriété NumberFormat que je ne vois pas dans votre code.
Je n'utilise jamais de code VBA pour la mise en forme conditionnelle, je le fais manuellement.

[PariPassu]

Bonjour,
Je ne sais pas ce que vous avez utilisé comme commande en enregistrant votre macro car ExecuteExcel4Macro provient des anciennes macros avant que l'on utilise le VBA.
Pour obtenir ce que vous souhaitez, il faut utiliser le format personnalisé et en VBA le format nombre d'une cellule, c'est la propriété NumberFormat que je ne vois pas dans votre code.
Je n'utilise jamais de code VBA pour la mise en forme conditionnelle, je le fais manuellement.

Merci de cette indication. Personnellement je n'avais jamais vu et je connaissais pas cette instruction ExecuteExcel4Macro : c'est en utilisant la fonctionnalité d'enregistrement automatique d'une macro proposée par Excel dans le menu développeur qu'elle est apparue toute seule dans les lignes de codes [mais où va-t-on si Excel ne sait pas exécuter les commandes qu'il propose lui même :-) !]

Pièce jointe 643723

Dans mon cas, je ne peux laisser la mise en forme conditionnelle à la main de l'utilisateur : il faut que je la code en VBA. Or, en ce qui concerne la propriété NumberFormat, il me semble qu'elle permet de formater des nombres dans une plage déterminée, mais je ne vois pas comment l'utiliser dans une mise en forme conditionnelle programmée en VBA.

[Philippe Tulliez]

Bonjour,

Dans mon cas, je ne peux laisser la mise en forme conditionnelle à la main de l'utilisateur : il faut que je la code en VBA.

Je ne laisse pas non plus les utilisateurs appliquer la mise en forme conditionnelle. Je voulais juste dire que je ne vois pas la raison de faire en VBA ce que je peux faire manuellement en quelques minutes.

Voici un exemple de code avec une mise en forme conditionnelle sur la colonne "Qté" du tableau nommé "t_Catalogue"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ApplyConditionalFormatting()
  Const TableName As String = "t_Catalogue"       ' Nom de la table
  Const LabelName As String = "Qté"               ' Colonne où appliquer la MFC
  Const FormulaPattern As String = "=(D3=<Type>)" ' Modèle de la formule
  Const NumberPattern As String = "#.##0 <Unité>" ' Modèle du format nombre à appliquer
  Dim l As ListObject            ' Table à traiter
  Dim r As Range                 ' Plage où appliquer la MFC (voir LabeName)
  Dim t As Variant, u As Variant ' Tables
  Dim e As Byte
  Set l = Range(TableName).ListObject
  Set r = l.ListColumns("Qté").DataBodyRange
  t = Array("Poids;Kg", "Longueur;m", "Unité;Pcs")
  ' Effacer tous les formats conditionnels existants
  r.FormatConditions.Delete
  ' Appliquer le format conditionnel suivant liste t
  For e = LBound(t) To UBound(t)
    u = Split(t(e), ";")
    With r.FormatConditions.Add(Type:=xlExpression, Formula1:=Replace(FormulaPattern, "<Type>", Chr(34) & u(0) & Chr(34)))
    .NumberFormat = Replace(NumberPattern, "<Unité>", Chr(34) & u(1) & Chr(34))
    End With
  Next
  Set l = Nothing: Set r = Nothing
End Sub

Illustration

[PariPassu]

OK, merci beaucoup : j'ai un exemple sérieux.

Maintenant, je vais essayer de le décrypter ;-).

En tout cas, il me reste beaucoup à apprendre !

[PariPassu]

Bonjour,
Voici un exemple de code avec une mise en forme conditionnelle sur la colonne "Qté" du tableau nommé "t_Catalogue"

L'idée que vous m'avez donnée d'utiliser NumberFormat, votre exemple et quelques autres recherches sur le net m'ont permis, enfin, de faire tourner ma macro.

C'est quand même extraordinaire que la commande "Enregistrer une macro" d'Excel 365 fournisse du code erroné !

En tout cas, merci encore : l'aide sur ce forum est précieuse !