J
JJ1
Guest
Bonjour,
J'arrive à mettre en caractères" (+2) des nombres dans une plage par:
Sub Gros()
Dim ZoneAnalysé As Range
Dim Cell As Range
Set ZoneAnalysé = Range("BE10:BI42")
For Each Cell In ZoneAnalysé
If Cell = [BD1] Or Cell = [BE1] Or Cell = [BF1] Or Cell = [BG1] Or Cell = [BH1] Or Cell = [BI1] Or Cell = [BJ1] Or Cell = [BK1] Or Cell = [BL1] Or Cell = [BM1] Or Cell = [BN1] Or Cell = [BO1] Or Cell = [BP1] Or Cell = [BQ1] Or Cell = [BR1] Or Cell = [BS1] Then Cell.Font.Size = Cell.Font.Size + 2
'ici rajout cerclage des nombres présents en BT1 et BU1
If Cell = [BT1] Or Cell = [BU1] Then ?
Next Cell
End Sub
je voudrais que le cerclage s'adapte à la taille de la cellule (si la cellule est grande avec un nombre en police 24, ne pas entourer ce nombre avec un cercle "riquiqui" adapté à un nombre en police 10 ou inversement !!!
merci de cet ajout.
A+
J'arrive à mettre en caractères" (+2) des nombres dans une plage par:
Sub Gros()
Dim ZoneAnalysé As Range
Dim Cell As Range
Set ZoneAnalysé = Range("BE10:BI42")
For Each Cell In ZoneAnalysé
If Cell = [BD1] Or Cell = [BE1] Or Cell = [BF1] Or Cell = [BG1] Or Cell = [BH1] Or Cell = [BI1] Or Cell = [BJ1] Or Cell = [BK1] Or Cell = [BL1] Or Cell = [BM1] Or Cell = [BN1] Or Cell = [BO1] Or Cell = [BP1] Or Cell = [BQ1] Or Cell = [BR1] Or Cell = [BS1] Then Cell.Font.Size = Cell.Font.Size + 2
'ici rajout cerclage des nombres présents en BT1 et BU1
If Cell = [BT1] Or Cell = [BU1] Then ?
Next Cell
End Sub
je voudrais que le cerclage s'adapte à la taille de la cellule (si la cellule est grande avec un nombre en police 24, ne pas entourer ce nombre avec un cercle "riquiqui" adapté à un nombre en police 10 ou inversement !!!
merci de cet ajout.
A+
