Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel la plus grande en gras en VBA

la plus grande en gras en VBA

4 réponses
Avatar
Xtof
Bonjour à tous,
j'ai un tableau excel avec plein de valeur (des milliers), j'aimerais
pouvoir selectionner des cellules, on va dire (D6:H20), mais ce peut être
n'importe où ailleur dans la feuille excel, et ensuite mettre la plus grande
valeur de chaque colonne en gras, je sais déjà faire pour une selection
globale :

MaxVal = Application.Max(Selection)
For Each MaCellule In Selection
If MaCellule.Value = MaxVal Then
MaCellule.Font.Bold = True
End If
Next MaCellule

Pouvez-vous me donner un coup de main pour finaliser mon code pour que
chaque valeur max de chaque colonne (et ce seulement pour ma selection) soit
en gras

Merci
A+ Xtof
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick Bastard
Bonjour à toi aussi, *Xtof*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

La mise en forme conditionnelle est ton amie :
*Sans VBA*
La valeur de la cellule est égale à =max(taplage)
*En VBA*
la même chose avec l'enregistreur.
Ca va ?


--
Bien cordialement,
==================================== P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Bonjour à tous,
j'ai un tableau excel avec plein de valeur (des milliers), j'aimerais
pouvoir selectionner des cellules, on va dire (D6:H20), mais ce peut
être n'importe où ailleur dans la feuille excel, et ensuite mettre la
plus grande valeur de chaque colonne en gras, je sais déjà faire pour
une selection globale :

MaxVal = Application.Max(Selection)
For Each MaCellule In Selection
If MaCellule.Value = MaxVal Then
MaCellule.Font.Bold = True
End If
Next MaCellule

Pouvez-vous me donner un coup de main pour finaliser mon code pour que
chaque valeur max de chaque colonne (et ce seulement pour ma
selection) soit en gras

Merci
A+ Xtof


Avatar
Xtof
Merci pour ta réponse Patrick,

Je vois bien comment faire pour la sélection globale, mais pour mettre en
gras la valeur max de chaque colonne, pour mon exemple (D6:H20), j'aimerai
que pour :
la valeur max des données contenues dans (D6:D20) soit en gras
la valeur max des données contenues dans (E6:E20) soit en gras
...
la valeur max des données contenues dans (H6:H20) soit en gras

Je ne vois pas comment faire en vba

A+ Xtof



"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de
news:%
Bonjour à toi aussi, *Xtof*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

La mise en forme conditionnelle est ton amie :
*Sans VBA*
La valeur de la cellule est égale à =max(taplage)
*En VBA*
la même chose avec l'enregistreur.
Ca va ?


--
Bien cordialement,
==================================== > P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Bonjour à tous,
j'ai un tableau excel avec plein de valeur (des milliers), j'aimerais
pouvoir selectionner des cellules, on va dire (D6:H20), mais ce peut
être n'importe où ailleur dans la feuille excel, et ensuite mettre la
plus grande valeur de chaque colonne en gras, je sais déjà faire pour
une selection globale :

MaxVal = Application.Max(Selection)
For Each MaCellule In Selection
If MaCellule.Value = MaxVal Then
MaCellule.Font.Bold = True
End If
Next MaCellule

Pouvez-vous me donner un coup de main pour finaliser mon code pour que
chaque valeur max de chaque colonne (et ce seulement pour ma
selection) soit en gras

Merci
A+ Xtof








Avatar
Patrick Bastard
Bonjour à toi aussi, *Xtof*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

Ce que me donne l'enregistreur :
Reste à faire une boucle pour alléger le code en définissant chaque zone

Sub MacroMEFC()
'
'
Range("D6:D20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($D$6:$D$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("E6:E20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($E$6:$E$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("F6:F20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($F$6:$F$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("G6:G20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($G$6:$G$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("H6:H20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($H$6:$H$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
End Sub

Merci pour ta réponse Patrick,

Je vois bien comment faire pour la sélection globale, mais pour
mettre en gras la valeur max de chaque colonne, pour mon exemple
(D6:H20), j'aimerai que pour :
la valeur max des données contenues dans (D6:D20) soit en gras
la valeur max des données contenues dans (E6:E20) soit en gras
...
la valeur max des données contenues dans (H6:H20) soit en gras

Je ne vois pas comment faire en vba

A+ Xtof



"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de
news:%
Bonjour à toi aussi, *Xtof*.
*Pour reprendre les termes de ton intervention* -voir en fin de
message :

La mise en forme conditionnelle est ton amie :
*Sans VBA*
La valeur de la cellule est égale à =max(taplage)
*En VBA*
la même chose avec l'enregistreur.
Ca va ?


--
Bien cordialement,
==================================== >> P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Bonjour à tous,
j'ai un tableau excel avec plein de valeur (des milliers),
j'aimerais pouvoir selectionner des cellules, on va dire (D6:H20),
mais ce peut être n'importe où ailleur dans la feuille excel, et
ensuite mettre la plus grande valeur de chaque colonne en gras, je
sais déjà faire pour une selection globale :

MaxVal = Application.Max(Selection)
For Each MaCellule In Selection
If MaCellule.Value = MaxVal Then
MaCellule.Font.Bold = True
End If
Next MaCellule

Pouvez-vous me donner un coup de main pour finaliser mon code pour
que chaque valeur max de chaque colonne (et ce seulement pour ma
selection) soit en gras

Merci
A+ Xtof






Avatar
Xtof
merci,
je vais essayer
A+ Xtof

"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de
news:
Bonjour à toi aussi, *Xtof*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

Ce que me donne l'enregistreur :
Reste à faire une boucle pour alléger le code en définissant chaque zone

Sub MacroMEFC()
'
'
Range("D6:D20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($D$6:$D$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("E6:E20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($E$6:$E$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("F6:F20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($F$6:$F$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("G6:G20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($G$6:$G$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Range("H6:H20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MAX($H$6:$H$20)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
End Sub

Merci pour ta réponse Patrick,

Je vois bien comment faire pour la sélection globale, mais pour
mettre en gras la valeur max de chaque colonne, pour mon exemple
(D6:H20), j'aimerai que pour :
la valeur max des données contenues dans (D6:D20) soit en gras
la valeur max des données contenues dans (E6:E20) soit en gras
...
la valeur max des données contenues dans (H6:H20) soit en gras

Je ne vois pas comment faire en vba

A+ Xtof



"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de
news:%
Bonjour à toi aussi, *Xtof*.
*Pour reprendre les termes de ton intervention* -voir en fin de
message :

La mise en forme conditionnelle est ton amie :
*Sans VBA*
La valeur de la cellule est égale à =max(taplage)
*En VBA*
la même chose avec l'enregistreur.
Ca va ?


--
Bien cordialement,
==================================== > >> P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Bonjour à tous,
j'ai un tableau excel avec plein de valeur (des milliers),
j'aimerais pouvoir selectionner des cellules, on va dire (D6:H20),
mais ce peut être n'importe où ailleur dans la feuille excel, et
ensuite mettre la plus grande valeur de chaque colonne en gras, je
sais déjà faire pour une selection globale :

MaxVal = Application.Max(Selection)
For Each MaCellule In Selection
If MaCellule.Value = MaxVal Then
MaCellule.Font.Bold = True
End If
Next MaCellule

Pouvez-vous me donner un coup de main pour finaliser mon code pour
que chaque valeur max de chaque colonne (et ce seulement pour ma
selection) soit en gras

Merci
A+ Xtof