Discussion :

[erikose51]

Bonjour

Dans un fichier que j'ai construit, j'ai une macro qui a pour vocation de faire des copier/coller spécial valeur + format de cellule.
En parallèle, j'ai une macro qui me permet de créer la fonction Couleur pour m'aider à récupérer la couleur de fond d'une cellule

Mon problème est le suivant, avant de créer la fonction couleur, la macro faisait bien les copier/coller, depuis que j'ai créer par VBA la fonction couleur, la macro s'emmèle les crayons (de couelurs et passe d'une macro à l'autre, voici mon code :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Cleaner()
'
' Cleaner Macro
'
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ordre"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ordre")
        .PivotItems("1").Visible = True
        .PivotItems("(blank)").Visible = True
        .PivotItems("ordre").Visible = True
    End With
    Range("A6:E9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Plan d'action").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Contrôles").Select
        Range("E6").Select
    Selection.Copy
    Range("E7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ordre"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ordre")
        .PivotItems("1").Visible = False
        .PivotItems("(blank)").Visible = False
        .PivotItems("ordre").Visible = False
    End With
 
    Application.CutCopyMode = False
End Sub
--------------------------------------------------------------------------------------------------------
Function couleur(Cellule As Range)
    Application.Volatile
    couleur = Cellule.Interior.ColorIndex
End Function

Ce que je ne comprends pas c'est comment excel démarre ma macro Cleaner puis va directement à la fonction en bas du code puis tourne en boucle ... et si je la laisse faire elle finit par supprimer la couleur de toutes les cellules avant de faire un copier/coller.

Pouvez vous m'aider ?

[Mr Ananas]

Bonjour,

A ta place je n'utiliserai pas les macros Excel, c'est pas du tout efficient.

[Menhir]

Code :

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

1
2
3
4
Function couleur(Cellule As Range)
    Application.Volatile
    couleur = Cellule.Interior.ColorIndex
End Function

Fais le test suivant :
Mets la cellule A1 en rouge.
Dans la cellule B1, mets la formule =couleur(A1).
Normalement, B1 affiche 3.
Mets la cellule A1 en jaune.
Tu verras que B1 n'a pas changé de valeur.

Tout ça pour dire que la fonction couleur que tu as créé va non seulement alourdir l'utilisation de ton fichier (à cause de l'option Volatile) mais en plus elle n'est pas fiable.

[erikose51]

Fais le test suivant :
Mets la cellule A1 en rouge.
Dans la cellule B1, mets la formule =couleur(A1).
Normalement, B1 affiche 3.
Mets la cellule A1 en jaune.
Tu verras que B1 n'a pas changé de valeur.

Tout ça pour dire que la fonction couleur que tu as créé va non seulement alourdir l'utilisation de ton fichier (à cause de l'option Volatile) mais en plus elle n'est pas fiable.

oui mais dans ce cas comment faire pour récupérer la couleur d'une cellule dans une autre (plus simplement une sorte de rechercheV qui récupérer la couleur au lieu de la valeur)

(j'ai fait ton test, B1 change bien de valeur, je précise que la création de cette fonction n'est pas de moi ^^)

[Menhir]

oui mais dans ce cas comment faire pour récupérer la couleur d'une cellule dans une autre (plus simplement une sorte de rechercheV qui récupérer la couleur au lieu de la valeur)

On ne peut pas.
Plus exactement, il n'existe pas de solution dynamique fiable pour utiliser la couleur comme donnée d'entrée dans Excel.

La seule solution fiable que j'ai trouvée est d'avoir un bouton "mise à jour" qui recalcule les indexes des couleurs par une macro Sub. Mais la fiabilité est sujette à la rigueur de l'utilisateur pour bien réaliser cette mise à jour. En somme, le risque de défaillance du processus est reporté sur un élément peut fiable en lui-même : l'humain.
Ca n'est pas idéal mais le risque est plus contrôlable.