rss
ExcelPlus
Excel macro mise en forme conditionnelle
par evevdll
 Fil de Discussions
Statut : Non résolu
dimanche 11 novembre 2007 à 00:16:29
Bonjour,
Toujours débutante en programmation (j'avance à taton mais j'avance quand même), j'aimerai pouvoir appliquer une mise en forme conditionnelle à l'aide d'une macro.
Les mises en formes conditionnelles n'en propose que 3 jusqu'à la version 2003 et c'est bien mieux depuis la version 2007 mais je dois travailler dans les deux versions et j'ai déjà des mises en formes créées dans mon classeur.

Donc, j'aimerai pouvoir appliquer un format police (une couleur) dès que :
si colonne F = "Vente" et colonne O = "" (vide) ==> je veux couleur bleue pour la ligne entière (ou les données de la ligne)
si colonne F = "Vente" et colonne O = variable (un numéro de facture : V071011) ==> je veux couleur orange pour la ligne entière (ou les données de la ligne)
sinon couleur automatique donc pas de changement.

Je pense que je peux appliquer le même type de condition pour 3 cellules différentes à comparer.

Je remercie tous ceux et celles qui pourront m'aider.
a+
Eve
Configuration: Windows XP
Internet Explorer 7.0
Répondre à evevdll  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par Raymond PENTIER, le dimanche 11 novembre 2007 à 00:26:43 Fil de Discussions
Sois plus précise :
* Tu veux une réponse pour la version 2003 ou la version 2007 ?
* Tu veux absolument une macro ou une manipulation normale te suffit-elle ?
Un retraité au soleil des Antilles :-)
Raymond
Répondre à Raymond PENTIER

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par evevdll, le dimanche 11 novembre 2007 à 00:40:49 Fil de Discussions
Bonsoir,
Non j'ai besoin de la version 2002 ou 2003 (pas beaucoup de différence) mais surtout en macro
Merci
Eve
Répondre à evevdll

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par eriiic, le dimanche 11 novembre 2007 à 00:37:28 Fil de Discussions
Bonoir,

Il est un peu tard donc je ne vais pas trop développer...
En macro, tu ne vas plus trop parler de mise en forme conditionnelle puisque c'est toi par programmation qui sélectionne les cellules et leur applique le format que tu veux.
Il n'y a donc plus de limitation.
Pour connaitre les propriétés qui t'interessent mets toi en enregistrement de macro et change la couleur de fond, de la police, change la police et sa taille et tu en auras déjà une bonne partie.
Pour les couleurs c'est souvent plus pratique de réserver des cellules où tu mets les couleurs, et tu récupères leurs valeurs :
couleur1 = [A1].Interior.ColorIndex
C'est plus facile à changer pour l'utilisateur sans toucher à ton code et sans t'embeter à retrouver le numéro de couleur.
Ensuite à toi de balayer ton tableau pour retrouver les cellules ayant les critères qui t'interessent et appliquer dessus les formats désirés.
Des methodes qui pourront te servir
.entirerow :
la ligne entière Ex: [A1].EntireRow.Interior.ColorIndex = 6
et .offset(ligne,colonne) :
Si tu balayes ta colonne F .offset(0,9).value te ramene la valeur 9 colonnes plus loin (la colonne O donc)

Voilà pour que tu démarres un peu...
Bon courage :-)

eric
Répondre à eriiic

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par evevdll, le dimanche 11 novembre 2007 à 00:50:27 Fil de Discussions
Merci Eriiic,
Oui il est tard pour moi aussi.
Je te remercie de ta réponse et je vais essayer ce que tu me dis (mais peut être pas avant 15 jours car j'aurai beaucoup de travail).
Je te dirai si j'ai trouvé mais si j'ai des petits soucis, j'espère que tu pourras encore m'aider.
Merci d'avance et bonne nuit.
A+
Eve
Répondre à evevdll

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par eriiic, le dimanche 11 novembre 2007 à 00:53:30 Fil de Discussions
Ah mais tu es partout toi...
Bonne nuit à toi aussi
Répondre à eriiic

6


  • 1
    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
Par néné, le dimanche 11 novembre 2007 à 13:16:43 Fil de Discussions
Bonjour,

Voici une macro

Sub formatConditionnelle()
Application.ScreenUpdating = False

For Each c In [f1:f25] 'plage a testée
c.Select
Dim l As Long
l = ActiveCell.[Row]
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) <> "" Then

Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 45
Else
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) = "" Then
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 5
Else
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 1
End If
End If

Next

Application.ScreenUpdating = True
Range("f1").Select
End Sub
Répondre à néné

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par evevdll, le dimanche 11 novembre 2007 à 19:02:58 Fil de Discussions
Bonjour Néné,
Merci de ta réponser c'est impec. Par contre j'essaie de comprendre à chaque fois pour mieux réutiliser par la suite et je constate que j'ai un peu de mal à saisir les phrases :
Application.ScreenUpdating = False
et
Application.ScreenUpdating = True

ça veut dire mise à jour de l'écran ? Pour moi ça voudrait dire que la macro fonctionne sans l'appeler mais comme ça ne fonctionne pas tout seul j'aimerai savoir exactement ce que ça veut dire pour l'utiliser à bon escient. Peut-être que ma question est stupide pour les pro mais j'aime comprendre ce que je fais.
Merci de ta réponse
A+
Eve
Répondre à evevdll

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par eriiic, le dimanche 11 novembre 2007 à 21:17:21 Fil de Discussions
Bonsoir,

Je répond à la place de néné s'il n'y voit pas d'inconvénient (il n'est pas là pour le dire de toute façon...)

Application.ScreenUpdating te désactive le rafraichissement écran.
Ca évite les clignotements et les scrolling lors de tes select et surtout ça accélère considérablement ta macro.
Tout les calculs se font en arrière plan
Ne pas oublier de remettre Application.ScreenUpdating=true à la fin que l'utilisateur ait le résultat.

eric
Répondre à eriiic

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par evevdll, le dimanche 11 novembre 2007 à 21:58:39 Fil de Discussions
Bonsoir,
Merci Eric, je vois ce dont tu parles. Je pourrait donc saisir ces deux lignes pour mes autres macros car il est vrai que ça fait mal aux yeux.
A+
Eve
Répondre à evevdll

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par eriiic, le dimanche 11 novembre 2007 à 22:08:29 Fil de Discussions 
Tout à fait, dès que la macro dure un peu et manipule des données un peu partout c'est préférable, ça fait plus propre et ça accélère le traitement.
Mais tu sais que tu n'es pas toujours obligée de selectionner une cellule pour la lire ou pour l'écrire, c'est souvent superflu
eric
Répondre à eriiic
Logiciels pertinents trouvés dans les téléchargements
Télécharger OpenOffice.org 2.4.1OpenOffice.org - OpenOffice est une suite bureautique complète entièrement gratuite, compatible avec la suite Microsoft Office. Elle...Catégorie: Suite bureautique
Licence: Open Source
Télécharger HP USB Disk Storage Format Tool 2.0.6HP USB Disk Storage Format Tool - HP USB Disk Storage Format Tool est un petit utilitaire permettant de formater une clé USB ou un lecteur MP4 . Il permet...Catégorie: Formatage/Partitionnement
Licence: Freeware/gratuit
Télécharger Switch Sound Format Converter 1.05Switch Sound Format Converter - Switchest un convertisseur de formats audio pour Windows ou Mac, capable de convertir des fichiers audio à partir de...Catégorie: Conversion audio
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Excel macro (mise en forme conditionnelle) »
Répondre
Titre du message :
Votre pseudo:
Votre email :
Message: 
  •  
  •  
Options: Recevoir les réponses par mail.
 

Aide