Merci pour votre aide M MFerrand Fanatique d'Excel Messages 17'170 Votes 1'462 Excel 2010 FR Inscrit 20. 2015 Lieu Réunion
ACCES PREMIUM Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives: Navigation sans publicités Option "No Tracking" Option "Mode Incognito" Option "Dark Mode"
Les bonnes manières dans le Forum! On ne squatte pas n'importe quel vieux sujet pour y flanquer une nouvelle question, on ouvre son propre sujet... on y expose la question et on fournit un fichier adéquat pour la traiter, on le fabrique... C'est le b-a-ba. Et si tu trouves quelque loisir, la révision du cours sur les boucles t'évitera d'infliger un code à rallonge aussi répétitif... Forums Excel - VBA VBA - Mise en forme conditionnelle
Vba Mise En Forme Conditionnelle Pour Toute Une Ligne
Operator) Then
(xFmAddress) = (xFmAddress) & "|" & xOperatorArr(xFormat. Operator - 1)
If Not IsEmpty(rmula1) Then
(xFmAddress) = (xFmAddress) & "|'" & rmula1
Next
If heets("FmCondictionList") Is Nothing Then
= "FmCondictionList"
Sheets("FmCondictionList")(1)() = anspose()
Sheets("FmCondictionList"). Columns(1). TextToColumns,,,, 0, 0, 0, 0, -1, "|"
End Sub
3. Cliquez Outils > Références. 4. Dans la boîte de dialogue Références - VBAProject, veuillez cocher la case Exécution de scripts Microsoft option, et cliquez sur le OK bouton. Voir la capture d'écran:
5. Maintenant que vous revenez à la fenêtre du module, veuillez appuyer sur F5 ou cliquez sur la course bouton pour exécuter ce VBA. Maintenant, une nouvelle feuille de calcul nommée " FmListeConditionnelle »Est créé et ajouté avant la feuille de calcul active. Et vous obtiendrez toutes les règles de mise en forme conditionnelle répertoriées dans cette feuille de calcul. 6. Cliquez Déposez le > IMPRESSION > IMPRESSION pour imprimer la liste des règles de 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.
19/05/2014, 16h06
#14
En effet, pourquoi faire simple quand on peut faire compliqué. Tu ne penses pas qu'il serait plus simple de créer un fichier modèle avec le bon format et de simplement mettre dans ton code:
soit la création d'un nouveau fichier utilisant ce modèle, si tu crées ce dernier en XLTS ou XLTM (1 ligne de code)
soit copier le fichier modèle et ouvrir la copie, si tu veux que ton modèle soit en XLSX ou XLSM pour pouvoir le modifier plus facilement. C'est plus rapide à faire, c'est plus clair, plus simple à modifier. Sans compter que ton fichier modèle peut également te servir à faire bien d'autres choses comme, par exemple, une présentation plus agréable. Comme développeur, l'expérience m'a montré que tout ce qu'on peut mettre dans un fichier modèle plutôt qu'en dur dans le code rendait la vie bien plus facile. 19/05/2014, 22h15
#15
Mon fichier de sortie est en 3 colonnes, d'où les calculs. tColOut(n) table qui contient le nombre de lignes par colonne
wsTo = Nom! rCell = range
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Sub MFCModif ()
nLigne = nLigneTitre + 1
For i = 1 To 3
nCol = ( ( i - 1) * 5) + 3
For j = 1 To tColOut ( i)
For k = nCol To nCol + 3
Set rCell1 = ( j + nLigne, k)
With rCell1.
Vba Mise En Forme Conditionnelle Excel Texte
Résolu
CescoCorp
Messages postés
8
Date d'inscription
dimanche 25 février 2007
Statut
Membre
Dernière intervention
11 mars 2007
-
25 févr. 2007 à 14:19
11 mars 2007 à 11:26
Bonjour,
Je souhaiterais, dans excel, avec une macro, sélectionner une plage (morceau d'une ligne) et dans cette plage mettre en couleur (rouge par exemple) et en gras les x plus grandes valeurs, sachant que "x" est une valeur inscrite dans une cellule (A1 par exemple). Ensuite, dans chaque cellule adjacente à cette ligne (à droite), je voudrais que soit calculée la somme des valeurs des cellules en rouge (et gras). Ceci serait réalisé sur une centaine de colonnes. En fait, c'est pour faire réaliser un classement pour une association sportive, au lieu de tout faire à la main! (comme c'est le cas jusqu'à présent)
Si quelqu'un a une solution à mon problème, qu'il n'hésite pas... Merci
jrivet
7393
mercredi 23 avril 2003
6 avril 2012
59
27 févr. 2007 à 15:16
Re,
Oups, petit buig de ma part je recherchais toujours la premiere valeur dans la plage de donnée avec Find, je n'avais pas prévue que l'on pouvais avoir plusieurs fois les même valeurs.
Pour rendre notre macro plus pratique, nous pouvons encore remplacer 17 par une variable contenant le nombre de lignes. Cela nous permettra d'ajouter/retirer des lignes à notre tableau sans avoir à modifier à chaque fois cette limite dans le code. Pour cela, créons une variable nbLignes et ajoutons cette fonction:
WorksheetFunction. CountA ne vous dit probablement rien mais il s'agit en fait de la fonction NBVAL que vous connaissez probablement déjà (sinon, cliquez ici).
2007 à 14:51
Regarde du côté de
Range("... "). Ensuite, il ne te reste qu'à créer une boucle et vérifier ces valeurs, ligne par ligne
Si la cellule en est une recherchée (valeur, couleur, gras... ), tu l'additionnes dans une variable. Lorsque la boucle est terminée, tu inscris ce total dans la colonne que tu veux. et tu continues la boucle en remettant le total à 0 au début de la lecture de chaque ligne
MPi
25 févr. 2007 à 22:54
Merci pour cette réponse qui correspond à ce que je recherchais, à une exception près, c'est que le nombre de plus grandes valeurs à mettre en forme, je ne le connais pas, puisqu'il est défini par une cellule que l'utilisateur peut modifier. Par exemple, il choisit de prendre en compte 5 courses, il marque alors cette valeur dans la cellule. Mais comment puis-je faire pour que le nombre de cellules en gras correspond ici à 5 (il faut que ça puisse changer à chaque fois)? CescoCorp. 26 févr. 2007 à 09:40
Cet exemple met en gras et en rouge les X plus grandes valeurs (X etant saisie dans la cellule E1) de la plage A1 => D4
IL Calcule aussi la somme de ces plus grandes valeurs et place le résultat dans la cellule F1
Voila il ne reste plus qu'a l'adapter à tes besoins.
Succombez au charme d'une décoration argentée pour vos fêtes de fin d'année. L a table de Noel scintillera de mille feux avec des accessoires argentés: marque place, chemin de table, confettis de table... Faites le plein d'idée pour une décoration de noel argent. Decoration noel blanc et argent
L'argent est très souvent associé au blanc pour créer une décoration à l'ambiance hivernale parfaite pour les fêtes de fin d'année. Que ce soit pour noel ou Nouvel an, la deco de table argent fera l'unanimité auprès de vos invités. Nous vous proposons un large choix de produits dans cette couleur pour faire de votre fête un moment unique. Commencez par décorer la table avec un chemin de table en tulle argent ou recouverts de sequins argentés ou blancs. Vous pourrez également parsemer la table de confettis argent. Déco table de Noël en or et en argent – 22 idées magnifiques | Deco table noel, Table de noël, Deco table. Privilégiez par exemple des paillettes étoiles ou en forme de flocon de neige pour votre table de noel. Ne négligez pas l'éclairage et optez pour des photophores qu'ils soient pailletés ou en verre mercurisé argent.
Deco Table Argent Et Or Digital Only Option
Cest pourquoi dans cet article nous allons vous montrer nos 22 idees magnifiques de deco table de noel qui vous inspireront. Sur vegaooparty chemin de table pas cher et sets de table pour une jolie deco de table. Idees De Decorations De Mariage Rose Poudre Et Agent Joyeux Noel Avec Nos 35 Idees De Deco De Table Pour Noel Decoration Table Pour Noel Le Theme Sur L Hiver A La Deco Table De Noel En Or Et En Argent 22 Idees Magnifiques Deco Table De Noel En Or Et En Argent 22 Idees Magnifiques
Deco Table Argent Et Orale
39€
Nœud de poinsettia avec grelots pailleté argenté 20 cm
1. 69€
167 Stickers alphabet et chiffres paillettes argent 0, 8 à 2 cm
4. 49€
Centre de table chiffre 8 bois argenté à paillettes 20 cm
6 Pinces à linge argentées à paillettes 4 x 2 cm
2. 49€
Deco Table Argent Et Orientation
Vous pourrez utiliser un arbre argenté pour décorer le centre de table. accrochez y des boules de sapin. Le marque place Noel pourra prendre la forme d'un flocon de neige à glisser sur el rebord du verre. Vous pourrez recourir à un marque place argent en forme de cube ou de boule en métal. Créez une décoration de noel argent original en suspendant dans votre intérieur des guirlande d'étoiles ou de pois argent. Des petits cadeaux de noel couleur argent
Vous pourrez offrir à vos invités des petits cadeaux de noel à glisser sur la table. Décorer la table de fêtes en or, argent et violet - Idées conseils et tuto Décoration de table. Nul doute que cette petite attention séduira vos convives. Les cadeaux d'invités pour Noel pourront être des gourmandises: glissez des bonbons ou chocolats dans des boites à dragées en forme de flocon ou en carton argenté.
Deco Table Argent Et Or Winners
top vente Ruban satin argenté 0. 6 cm x 25 m
0. 99€
Nappe rectangulaire en plastique argent 137 x 274 cm
1. 99€
Chemin de table organza Joyeux Anniversaire argent 29 cm x 5 m
5. 99€
Bolduc brillant argent 10 mm x 25 m
2. 99€
24 Confettis de table ronds argent 1, 2 cm
1. 49€
100 Petits confettis de table ronds argentés 0, 6 cm
Photophore en verre givré argenté cœur 7 x 5, 5 cm
Nappe en rouleau papier damassé argenté 6 m
Ruban satin argent 2, 5 cm x 25 m
1. 59€
4 Mini boules à facettes argentées 3, 5 cm
2. 69€
Feutre argenté pour verre et ardoise
2. 49€
4 Photophores en verre miroir argentés 6 x 3 cm
Chemin de table intissé métallisé argenté 30 cm x 5 m
7. Deco table argent et orientation. 99€
Stylo gel argent
12 Boules de décoration métal argenté 2 cm
Crayon de cérémonie argent 18 cm
Photophore en verre à rayures argentées 7 x 5, 5 cm
2. 29€
10 Marque-places galets de verre argentés 4. 5 cm
100 Pétales de rose en tissu argenté 5 x 5 cm
48 Etoiles miroir argentées 1 cm
Perles de pluie argent 80 gr
Nappe en plastique métallisée argent 137 x 274 cm
3.
22 décembre 2012
6
22
/ 12
/ décembre
/ 2012
07:29
Aujourd'hui je vous montre une table décorée pour Noël (2007) en or et argent. Deco table argent et orale. Par contre, les photos ont été prises lors des essais donc la nappe n'est pas
repassée bref c'est pas parfait! Les supports de bougie et les coupes pleines de boules de Noël sont en bois, je les ai peint en ivoire, et tamponnés et embossés à chaud en or et argent (carré et
texte). Une boîte pour les petits cadeaux d'assiette, et le menu:
les créations de mimi
-
dans
noël