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 Format conditionnel sur plage

Format conditionnel sur plage

5 réponses
Avatar
boitebidon310
Bonjour,
Pouvez-vous compl=E9ter cette formule afin que la mise en forme
automatique s'applique =E0 chaque cellule (A1:A100) pour toutes les
valeurs comprises entre sur la colonne B (B1:B100) et la colonne C
(C1:C100). je veux absolument utiliser VB car j'ai plus de 100 lignes

Sub test()
For k =3D 1 To 1
For n =3D 1 To 100
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=3DxlCellValue, Operator:=3DxlBetween,
_
Formula1:=3D"=3D", Formula2:=3D"=3D"


Merci, pour le coup de main
Signaler un problème avec ce contenu

5 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
AV
Bien que ne voyant pas du tout l'intérêt d'une macro....

Sub zzz()
[A1:A100].Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET($A1>=$B1;$A1<=$C1;NBVAL($B1:$C1)=2)"
.FormatConditions(1).Interior.ColorIndex = 19
End With
End Sub

AV
Avatar
lSteph
Bonjour,

(C1:C100). je veux absolument utiliser VB car j'ai plus de 100 lignes


Si tu veux aller plus loin que 100 voici pour la sélection de dernière
ligne mais VBA n'était du reste pas nécessaire

Sub tmfc()
Range("a1:" & [a65536].End(xlUp).Address).Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, _
Operator:=xlBetween, _
Formula1:="=" & .Cells(1).Offset(0, 1).Address _
(rowabsolute:úlse, columnabsolute:úlse), _
Formula2:="=" & .Cells(1).Offset(0, 2).Address _
(rowabsolute:úlse, columnabsolute:úlse)
.Interior.ColorIndex = 6
End With
End Sub

'Cordialement.

'lSteph

a utilisé son clavier pour écrire :
Bonjour,
Pouvez-vous compléter cette formule afin que la mise en forme
automatique s'applique à chaque cellule (A1:A100) pour toutes les
valeurs comprises entre sur la colonne B (B1:B100) et la colonne C
(C1:C100). je veux absolument utiliser VB car j'ai plus de 100 lignes

Sub test()
For k = 1 To 1
For n = 1 To 100
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween,
_
Formula1:="=", Formula2:="="


Merci, pour le coup de main


--
- -

Avatar
boitebidon310
Merci bcp, c'est exactement ce que je cherchais.
Ne connaissans pas trop VB, je souhaitais passer par une macro pour
contrôler la mise à jour automatique de la MFC.

Ce que vous m'avez donné fonctionne, donc grand merci
@ +
Avatar
AV
Ce que vous m'avez donné fonctionne, donc grand merci


Je suis rouge de confusion...

AV

Avatar
Jacquouille
Salut Président
Tu passes bon marché.
En cette pré-veille du 18/11, j'en connais qui doivent se taper un litron
entier pour devenir "nez rouge", tout en étant nez rond (voire étant né
rond). -))
Votre fidèle Secrétaire,
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"AV" a écrit dans le message de news:
OmTxyNA$
Ce que vous m'avez donné fonctionne, donc grand merci


Je suis rouge de confusion...

AV