format conditionnel

[Bruce68]

Bonjour à tous
dans cellule A2 j'ai une mise en forme conditionnelle (1° condition= valeur de A2 >=à 12 mettre cellule couleur rouge, 2° condition= si A2 < à 12 pas de remplissage)par la suite je voudrais remplir des lignes avec une macro en recupérant le format conditionnel de la cellule A2.
comment ecrire cette macro pour recuperer le format conditinnel de la cellile A2 pour transcrire ce format dans des lignes via un compteur.
Merci à tous [file name=Coul_Condition.zip size=9076]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Coul_Condition.zip[/file]

Message édité par: bruce68, à: 01/05/2006 20:40

 

[Temjeh]

Bonjour Bruce

Sub Macro1()
'Test si est fond rouge
If Range('A2').Interior.ColorIndex = 3 Then
'ici ta condition si OUI
MsgBox 'Fond rouge'
End If
End Sub

Temjeh

 

[Bruce68]

Cela ne fonctione pas seulement si l'on rempli la cellule avec l'icone de remplissage, si la cellule est remplie avec le format conditionnel la macro ne prend pas en compte la couleur.
quelqu'un a t'il la solution ?
Merci à tous

 

[moustache]

Bonsoir Bruce, Temjeh,

    Range('A2').Select
    Selection.Copy
    Range('B5').Select
    Selection.PasteSpecial Paste:=xlPasteFormats

 

[moustache]

Bonsoir Bruce, Temjeh,

    Range('A2').Select
    Selection.Copy
    Range('B5').Select
    Selection.PasteSpecial Paste:=xlPasteFormats

 

[Charly2]

Bonsoir Bruce68, Temjeh et Moustache,
buena notte a tutte e tutti

Eh bien non ! Malheureusement, la seule façon de procéder pour réagir en fonction de la couleur d'une cellule affectée par un format conditionnel est de tester la condition elle-même :

If Range('A2') >= 12 Then
  Range(TaPlage).Interior.ColorIndex = 3
End If

Il est possible de faire plus généraliste mais le temps de développement pour une condition connue serait franchement disproportionné. Sinon, pourquoi ne pas appliquer le format conditionnel à ta plage de cellules :

La formule est : =$A$2>=12, puis ton format.

A+