'Public Sub VALEURS() 'Range("A2"). 'Range("E2"). Range("L5:L94"). Case Is < 6 lorIndex = 4 'vert ' = True Case 6 To 10 lorIndex = 44 'jaune Case Is > 10 lorIndex = 3 'rouge #6 Encore si j'avais mis de K5:N94, la je comprendrais que sa me prennent une plage complete de valeur de plus, j'ai remarqué que si je lance Range("K5:K94"). la première sélection n'est pas prise en comptze, il faut que je reface une macro qui reprend uniquement cette plage de valeur. C'est a ni plus rien comprendre! #7 Je pense avoir réglé le problème. Pour empecher la mise en couleur des colonnes a coté de ma plage de valeurs je suis obligé de rajouter la ligne Range("Q5:Q95")lorIndex = 0 et la sa marche. Mais comment faire sans cette condition. #8 re pourquoi ne regardes-tu pas du côré de la mise en forme conditionnelle?
#2 Re: Mise en forme conditionnelle en vba Bonjour Si la formule est vraie, alors la cellule est remplie par bicolore blanc et vert avec un dégradé partant du centre. Heuuuuu bicolore blanc/vert avec dégradé partant du centre... ça existe dans les MFC!? #3 Oui ça existe puisque c'est déjà le cas sur mon fichier... Mais en même temps, ce n'est pas le plus important. Ca pourrait être rouge, vert, jaune avec des pois noirs... Ce qui m'importe surtout, c'est la prise en compte de la forumle est mise en forme conditionnelle. #4 Re, Un petit bout de fichier alors? #5 Voici le lien pour accéder au fichier: Le but de ce fichier est que si sur l'onglet CS01, A est supérieur à 2 pour la T22, alors si sur l'onglet 02, A est affecté sur T22, la cellule soit jaune à pois noirs... #6 Voici le code (j'ai utilisé l'enregistreur) Code: Sub MFCCellule() With Selection. Type:=xlExpression, Formula1:= _ "=INDEX('CSN-1'! $A$1:$CZ$979;EQUIV($C6;'CSN-1'! $A$1:$A$979;0);EQUIV(D6;'CSN-1'! $A$3:$MM$3;0))>1" With.
[XL-2010] Installer une mise en forme conditionnelle avec VBA - Macros et VBA Excel Office Access Excel Word Outlook PowerPoint SharePoint MS Project OpenOffice & LibreOffice Navigation Inscrivez-vous gratuitement pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter Sujet: Macros et VBA Excel 12/05/2014, 09h36 #1 Membre du Club Installer une mise en forme conditionnelle avec VBA Bonjour, Avec VBA, au départ d'une liste, je crée un fichier de numéros de téléphone. Noms! triée sur Noms et prénoms Prenoms! triée sur Prénoms et noms Sauvetage! est une copie (invisible) de Noms! J'aimerais installer une mise en forme conditionnelle sur les cellules de Nom! : si Nom! $X$n <> Sauvetage! $X$n alors CouleurTexte ( Nom! $X$n) = 3 (rouge) Comment faire? 1 2 3 4 5 6 7 With ( "A1"). Type:= xlNotEqual, Formula1:=?? With FormatCondition ( 1) = 3 ' rouge End With Merci de votre aide. Je suis au bureau, j'ai aussi d'autres choses à faire, il est donc possible que je ne réagisse pas de suite à une réponse.
Code: Sub Sub Worksheet_SelectionChange (ByVal Target As Range) Dim MyRange As Range End Sub Étape 4: Utilisez Set et choisissez la plage définie comme indiqué ci-dessous. Code: Sous-feuille privée Worksheet_SelectionChange (cible ByVal en tant que plage) Dim MyRange As Range Set MyRange = End Sub Étape 5: Après cela, sélectionnez la feuille de calcul à laquelle nous voulons appliquer la mise en forme conditionnelle. Ici, notre feuille est Sheet1. Nous pouvons également mettre la séquence sur 1 au lieu d'écrire Sheet1. Et puis sélectionnez la plage de ces cellules que nous devons formater. Ici, notre gamme va de la cellule A1 à B8. Code: Sous-dossier privé Worksheet_SelectionChange (cible ByVal en tant que plage) Dim MyRange en tant que plage définie MyRange = Worksheets ("Sheet1"). Range ("A1: B8") End Sub Étape 6: Ouvrez maintenant une boucle For Each-Next comme indiqué ci-dessous. Et commencez par sélectionner la variable définie par cellule MyRange. Code: Sous-feuille privée Worksheet_SelectionChange (cible ByVal en tant que plage) Dim MyRange en tant que plage Définir MyRange = Worksheets ("Sheet1").
FormatColor = 5287936. TintAndShade = 0 End With Ici la cellule cible est "B & nb_lignes" cependant dans la MFC cela m'affiche ="B33" alors que pour que cela fonctionne il faut =$B$33.. Comment faire..? Merci pour vos réponses! Mickael M Multhani Jeune membre Messages 32 Votes 1 Excel 2010 FR Voici mon code: rmatConditions(1). ColorScaleCriteria(2) = "$B$" & nb_lignes End With Essaye comme sa... M MFerrand Fanatique d'Excel Messages 17'170 Votes 1'462 Excel 2010 FR Inscrit 20. 07. 2015 Lieu Réunion Bonjour, Sub test() With ("B1").. (xlExpression,, "=ET($B$1<>"""";$B$1=$A$1)"). Interior _ = RGB(0, 176, 80). (xlExpression,, "=ET($B$1<>"""";$B$1<$A$1)"). Interior _ = RGB(255, 0, 0) End Sub Multhani, cela marche pas car il y a encore les guillemets: ="$B$33", pour que la MFC fonctionne il faut =$B$33 Qui a une idée svp? AMIR Membre impliqué Messages 1'010 Votes 104 Excel 2007 bonjour Si B1 est égal à A1 alors ma cellule sera verte Si B1 est inférieur à A1 alors ma cellule sera rouge Si B1 est vide, aucun remplissage n'est effectué.
Par exemple, pour affecter la police Courier 16 points gras italique souligné à la plage A5:C3, vous pouvez écrire: Range("A2:C5") = "Courier" Range("A2:C5") = 16 Range("A2:C5") = True Les attributs gras et italique peuvent être définis dans la propriété FontStyle. Cette propriété admet les valeurs suivantes: Regular Italic Bold Bold Italic Le code devient: Range("A2:C5") = "Bold Italic" Il est encore possible d'améliorer le code. En factorisant Range(« A2:C5 »), le code devient: Sub test() With Range("A2:C5") = "Courier" = 16. Underline = True. FontStyle = "Bold Italic" End With Format des cellules Vous pouvez utiliser des instructions VBA pour définir le format des cellules: nombre, monétaire, date, etc. Pour cela, vous utiliserez la propriété NumberFormat d'un objet Range, Rows, Columns, Cells ou ActiveCell.
Quel est le meilleur mois de naissance? LE PRINTEMPS, PERÇU COMME LA MEILLEURE SAISON POUR ACCOUCHER Selon l'étude, une grande majorité des femmes à qui l'on a demandé « si vous pouviez choisir, quel est le meilleur mois pour accoucher? » a répondu le mois de mai. Le printemps est apprécié par les parents en devenir pour plusieurs raisons. Quel mois le plus de naissance? Juillet: le mois où il y a eu le plus de naissances en 2019 En 2019, les naissances ont été les plus nombreuses en juillet (figure 2), avec un pic le 26 (2 448 naissances). Depuis 2013, juillet est chaque année le mois où il y a le plus de naissances. Quelle est la meilleure date de naissance? Savez-vous pourquoi le 23 septembre est le jour où il y a le plus de naissances dans l'année? Ce lundi sera sans doute une nouvelle fois le jour le plus fécond du calendrier. Premier mois de bébé - Bébés et Mamans. Le 23 septembre, il naît en moyenne 5% de bébés en plus que les autres jours de l'année. Pour aller plus loin Référence 1 Référence 2 Référence 3 Référence 4 Reference 5
Mais grâce à l'aide de mon entourage j'ai peu à peu repris des forces, on me faisait à manger, on m'obligeait à manger, à déléguer et aller dormir. J'ai également été voir une psychologue pour discuter de tout ça. Quand mon homme est revenu je suis restée fragile jusqu'au jour où j'ai vraiment craqué et lui ai dit que j'étais terrorisée de rester seule avec la petite, que j'étais épuisée. Pendant 2 semaines il s'est occupé des nuits malgré le travail en journée et j'ai vraiment repris des forces. Quand elle avait 3 mois il est reparti 1 mois en mission. Ma fille a commencé à ce moment à faire ses nuits. Cela a tout changé! Premier mois bébé difficile de trouver. Après avoir bien dormi j'étais assez forte pour gérer seule la journée. Cela a été un vrai soulagement quand elle a commencé à pouvoir dormir en journée sans les bras ou à rester éveillée sagement dans son parc. Je me souviens parfaitement de la première fois où j'ai pu coller ses photos dans son album pendant 2h sans être interrompue, quel bonheur! Petit à petit j'ai appris à m'organiser, à trouver du temps pour m'occuper de moi tout en m'occupant d'elle.