| Excel macro mise en forme conditionnelle par evevdll |
dimanche 11 novembre 2007 à 00:16:29 |
Configuration: Windows XP Internet Explorer 7.0
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
|
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
|
|
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
|
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
|
| 15/09 10h59 | [Excel] Colorer des cellules sur conditions | Excel |
| 03/01 10h47 | Formules de Base 2 | Bureautique |
| 12/06 03h04 | Créer rapidement un planning de congés simple [Excel] | Bureautique |
| 06/02 00h35 | bureautique | Excel |
| 05/04 20h33 | Mise en forme des articles de la base de connaissance | FAQ |
| 11/11 00h16 | Excel macro mise en forme conditionnelle | 10 |
| 11/10 22h35 | Macro_mise en forme conditionnelle | 1 |
| 02/04 14h58 | Macro excel - mise en forme conditionnelle | 2 |
| 12/12 15h05 | Macro Excel Mise en forme conditionnelle | 5 |
![]() | OpenOffice.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 |
![]() | HP 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 |
![]() | Switch 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 |
![]() | Excel 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 |