High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Excel mise en forme conditionnelle en vba

Dernière réponse le 15 oct 2008 à 13:04:20 winkel, le 15 oct 2008 à 08:56:13 
 Signaler ce message aux modérateurs

Bonjour à tous,

J'ai des mise en formes conditionelles différentes sur plusieurs feuilles. Elles marches bien, mais dès que je fais des copier/coller ou deplacements je perds les mise en formes.
Ma question:

peut-on en vba dire pour une feuille particulière faire =>:

si les valeurs de "F5 à F34"
est supérieur à "F4" => mettre la cel en rouge et la valeur gras+blanc
est inférieur à "F4/2" => mettre la val. en rouge+gras

la même chose pour les col.

si les valeurs de "G5 à G34"
est supérieur à "G4" => mettre la cel en rouge et la valeur gras+blanc
est inférieur à "G4/2" => mettre la val. en rouge+gras

Jusquà "AAE"

Merci à +

Configuration: Windows Vista
Internet Explorer 7.0

Meilleures réponses pour « excel mise en forme conditionnelle en vba » dans :
Excel - Mises en forme conditionnelles illimitées VoirMises en Forme Conditionnelles Illimitées Introduction Principe Code Fichier joint Introduction La Mise en Forme Conditionelle (ou MFC) permet d'appliquer, à une cellule ou à plusieurs cellules sélectionnées, différents formats qui...
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
Posez votre question Répondre

1

g, le 15 oct 2008 à 09:05:10

Bonjour,

Tu trouveras un exemple sur http://pagesperso-orange.fr/gerard.g/logexl_09.htm#mise_form­e_cond

Bonne journée.

   
Répondre à g

2

winkel, le 15 oct 2008 à 09:37:39

Merci,

Très sympa ce lien à garder en mémoire (pour tous)

C'est preesque ca. Mais si tu modifies la valeur de "F4" la mise en forme ne marche pas?

Merci

   
Répondre à winkel

3

g, le 15 oct 2008 à 11:55:09


   
Répondre à g

4

winkel, le 15 oct 2008 à 12:30:38

T'es un chef, ca marche d'enfer.


Grand merci

   
Répondre à winkel

5

 g, le 15 oct 2008 à 13:04:20

ReBonjour,

Je poste à nouveau le code qui te convient.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 5 To 34 'rangées de 5 à 34
'condition 1
If Range("F" & i) > Range("F4") Then 'colonne F
Range("F" & i).Interior.ColorIndex = 3 'colonne F fond Rouge
Range("F" & i).Font.ColorIndex = 2 'colonne F texte blanc
Range("F" & i).Font.FontStyle = "gras" 'colonne F texte gras
'condition 2
ElseIf Range("F" & i) < Range("F4") / 2 Then 'colonne F
Range("F" & i).Font.ColorIndex = 3 'colonne F texte rouge
Range("F" & i).Font.FontStyle = "gras" 'colonne F texte gras
'Pour annuler la couleur des cellules modifiées
ElseIf Range("F" & i) < Range("F4") Then 'colonne F
Range("F" & i).Interior.ColorIndex = xlNone 'colonne F cellule sans couleur
Range("F" & i).Font.ColorIndex = xlAutomatic 'colonne F texte auto
Range("F" & i).Font.FontStyle = xlAutomatic 'colonne F texte auto
End If
Next i
End Sub

Mais sache qu'il y a rique de superposition des formats car les données peuvent entrer en concurrence.
En effet le contenu d'une cellule peut à la fois être > F4 et < F4/2.

Bonne continuation.

   
Répondre à g
Posez votre question Répondre
Ils ont besoin de votre aide