Discussion :

[nadyves]

Bonjour,
J’ai une série de cellules avec une mise en forme conditionnelle. Cette série de cellules sont copiées par la suite dans une autre feuille.
Je voudrai que cette copie garde la couleur de fond (ex : orange ou blanc), mais sans copier la condition.
Est-ce possible ?
Voici mon code actuel :

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
Sub Valider()
' Enregistrement_Données
'
Sheets("Feuille1").Activate
    Rows("13:13").Select
    Selection.Insert Shift:=xlDown
    Range("A13").Select
    Sheets("Feuille2").Select
    Range("Z2:AZ2").Select
    Selection.Copy
    Sheets("Feuille1").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Feuille2").Select
    Range("B6,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,B25").Select
    Selection.ClearContents
    Range("B6").Select
 
End Sub

Merci pour votre aide

[nadyves]

Bonjour à tous,

Est-ce que l'un d’entre vous aurait une solution ou une petite idée?

Merci d'avance

[NVCfrm]

Bonjour nadyves,

Pour t'orienter:

lire la propriété couleur d'une mise en forme conditionnelle

Code :

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

i = Range("a1").FormatConditions(1).Interior.Color

affecter un autre par la valeur de i

Code :

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

range("x").Interior.Color = i

supprimer un format conditionnel

Code :

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

Range("a1").FormatConditions(1).Delete

[nadyves]

Bonjour à tous,

Je te remercie NVCfrm pour ta réponse.

Je n’arrive pas à grand-chose, cela colorie bien les cellules sans garder les conditions, mais malheureusement pour moi cela colorie toutes les cellules.
Je vous joins mon classeur Excel, pour vous aider à mieux comprendre mes attentes.

La feuille "Données" sert à prendre une série de mesure et m’indique les valeurs qui ne sont pas dans les spécifications. Puis pour passer à une autre série, je valide avec le bouton "Valider le master Roll". Les valeurs sont stockées dans la feuille "Base_Données", c’est là que je voudrai conserver les cellules hors tolérance en couleur sans les conditions. Car les séries qui suivent, elles n’ont pas forcément les mêmes tolérances.

Merci encore pour votre aide.

[Sogestion]

Bonjour,

Simple suggestion
Je pense que vous devriez alléger votre code en évitant les activate, select

Code :

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

1
2
3
4
 
    Sheets("Données").Select
    Range("Z2:BE2").Select
    Selection.Copy .....

Aide en ligne :
Cet exemple montre comment copier les formules des cellules A1 à D4 de la feuille Sheet1 dans les cellules E5 à H8 de la feuille Sheet2.

Code :

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

Worksheets("Sheet1").Range("A1:D4").Copy Destination:=Worksheets("Sheet2").Range("E5")

ou bien

Code :

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

1
2
3
4
5
6
7
8
Dim Ws As Worksheet, WsDest As Worksheet
Set Ws = Worksheets("Données")
Set WsDest = Worksheets(("Base_Données")
 
 Ws.Range("Z2:BE2").Copy WsDest.[Z5]
 
' Libère la mémoire
Set Ws = Nothing: Set WsDest = Nothing

Votre code

Code :

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

1
2
3
 Sheets("Données").Select
    Range("B6,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,J6").Select
    Selection.ClearContents

Ce code donnera le même résultat

Code :

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

1
2
3
4
5
6
7
Dim Ws As Worksheet
 
Set Ws = Worksheets("Données")   
 Ws.Range("B6,B8:B25,J6").ClearContents
 
' Libère la mémoire
Set Ws = Nothing

_______________
Cordialement
Albert

[nadyves]

Bonjour à tous,

Toujours pas de solution à mon petit problème

Je te remercie Sogestion, je ne suis pas un expert en VBA, je vais utiliser tes suggestions pour simplifier mes codes.

Si quelqu'un a d'autres conseil où solution, je suis preneur.

Merci à vous