Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplacer mfc par macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion 2b7a
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
2

2b7a

XLDnaute Occasionnel
Bonsoir à toutes et tous

J'ai dans une feuille excel différents petits tableaux.
Dans l'une des colonnes de chacun des ces tableaux, j'ai fait une mise en forme conditionnelle pour que la cellule qui a la plus grande valeur soit coloriée : =$C4=MAX($C$4:$C$10)
Ca fonctionne bien

Mais je me demandais si j'aurais pu faire une petite macro à la place de cette mise en forme conditionnelle
.... je me lance dans VBA alors je cherche les occasions 'd'appliquer' ...
Je m'aide pour cela du bouquin Excel et VBA aux edtions Pearson mais je n'ai pas trouver de solution.

D'avance merci pour votre aide !
 
Trier par date Trier par votes
Re : Remplacer mfc par macro

Salut 2b7a,

Voici ci-dessous ta MFC en VBA :
VB: 
Sub MFC()
Dim ValeurMax As Single
Dim NuméroLigne As Integer

ValeurMax = Application.WorksheetFunction.Max(Range("C4:C10"))

For NuméroLigne = 4 To 10
    If Range("C" & NuméroLigne) = ValeurMax Then
        
        With Range("C" & NuméroLigne).Font
            .FontStyle = "Gras"
            .ColorIndex = 3
        End With

    End If
Next NuméroLigne

End Sub

Cette macro va te permettre d'apprendre :
Le chapitre "boucle" :
Plus précisement la boucle : For... To ... Next

Le chapitre "Condition" :
If ta condition Then étapes à réaliser lorsque la condition est vrai End If

Le chapitre "With" :
Qui te permet d'éviter de répéter plusieurs fois la même chose. Dans le cas présent : "Range("C" & NuméroLigne).Font"

Si l'on n'avait pas utilisé cette astuce ta macro aurait dû écrite ainsi :
VB: 
Sub MFC()
Dim ValeurMax As Single
Dim NuméroLigne As Integer

ValeurMax = Application.WorksheetFunction.Max(Range("C4:C10"))

For NuméroLigne = 4 To 10
    If Range("C" & NuméroLigne) = ValeurMax Then
        
        Range("C" & NuméroLigne).Font.FontStyle = "Gras"
        Range("C" & NuméroLigne).Font.ColorIndex = 3

    End If
Next NuméroLigne

End Sub

Si tu as besoin de plus de précision, n'hésite pas à consulter ton livre ou re-venir ici.

Bonne fin d'après midi
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 [MFC Excel] Simplification des Règles
Réponses
9
Affichages
975
lav
L
A
  • Question Question
XL 2019 Code VBA qui ne fonctionne plus du jour au lendemain.
Réponses
4
Affichages
863
arla
A
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
788
casualexcel
C
R
  • Question Question
XL 2013 Macro : remplacer cellule vide par une autre
Réponses
2
Affichages
707
Rincevent29
R
N
  • Résolu(e)
XL 2010 Macro "remplacer par" successifs
Réponses
9
Affichages
901
nicopat
N
M
  • Question Question
Autres Mise en forme cond. Plage saute si copier coller
Réponses
2
Affichages
953
marcenana
M
E
  • Question Question
XL 2016 Copier la mise en forme d'une cellule MFC
Réponses
1
Affichages
1 K
AtTheOne
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
792
job75
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
P
  • Question Question
XL 2016 améliorer mon userform
Réponses
13
Affichages
2 K
PiLVaLK
P
D
  • Question Question
Autres MFC si 3 chiffres après la virgule
2
Réponses
17
Affichages
3 K
job75
D
  • Résolu(e)
XL 2016 Mise en Forme Conditionnelle
Réponses
3
Affichages
1 K
DomCab
D
M
  • Question Question
XL 2010 Macro VBA de mise en forme conditionnelle ?
Réponses
3
Affichages
1 K
sylvanu
D
  • Résolu(e)
Microsoft 365 Résolu par Djidji59430 - Budget Gestion
2
Réponses
16
Affichages
3 K
Djeen
D
S
  • Question Question
Autres Lourdeur du fichier excel et lenteur du traitement macro : comment identifier les éléments générant ces lenteurs et lourdeurs et comment optimiser ?
Réponses
9
Affichages
5 K
TooFatBoy
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
S
  • Question Question
XL 2013 Copier coller en vba en valeur et mise en forme d'origine
Réponses
0
Affichages
1 K
shamir786
S
B
  • Question Question
Microsoft 365 Macro pour colorer cellule d'un onglet en fonction du texte de la cellule
Réponses
4
Affichages
2 K
benjy555
B
B
  • Question Question
Remplacer la fonction Indirect par une macro VBA
Réponses
10
Affichages
2 K
billylooping
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…