XL pour MAC Test couleur (mise en forme conditionnelle) cellules non adjacentes (VBA)

Rolu · 28 Février 2022

Bonjour

Je suis novice en VBA et malgrès toutes mes recherche je sèche un peu, c'est pourquoi je vous demande un petit coup de main.

Je cherche à faire un test sur la couleur (mise en forme conditionnelle)de plusieurs cellules non adjacentes.

J'ai écris cela mais apparement cela ne fonctionne pas :
If [d4,e4,f4,g4,j4,k4,l4,m4,p4,q4,r4,s4,u4,v4,w4,x4,z4,aa4,ab4,ac4].Interior.ColorIndex = 4 Then End

Ai-je fais une erreur de syntaxe ?

Si quelqu'un a un idée je suis preneur.

Par avance merci

sylvanu · 28 Février 2022

Re,

Rolu à dit:
If [AG4].Interior.ColorIndex = 3 Then End
Cela fonctionne.

Non, cela ne marche pas. Vous lisez la couleur de la cellule et non la couleur de la MFC.

Regardez cette PJ.
La plage a comme couleur Jaune ( colorindex=6 ) et la MFC met en bleu les cellules qui contiennent 1.
Vous verrez qu'avec la macro ci dessous, toutes les couleurs de la plage valent 6, et la MFC n'est pas prise en compte.

VB:

Sub couleur()
    Dim L%
    For L = 5 To 13
        Range("D" & L) = Range("C" & L).Interior.ColorIndex
    Next L
End Sub

sylvanu · 28 Février 2022

Bonjour Rolu et bienvenu sur XLD,
Outre cette syntaxe qui n'est pas correcte, il n'est pas possible de détecter une MFC avec interior.color.
La MFC vient en supplément de la couleur de la cellule, "par dessus" et non à la place.
Deux solutions :
- La détection des MFC, vous trouverez des ex sur XLD, mais ce sont des usines à gaz
- Recreer les conditions des MFC en VBA.
Si les conditions des MFC son simples alors la seconde solution l'est tout autant.

Phil69970 · 28 Février 2022

Bonjour @Rolu

Edit : Bonjour Sylvain

Petit rappel comment fonctionne d'une manière générale

If .... then

Si ma conditioni alors ==> If ma condition then
Je fais ceci ==> Blablabla.... (ma condition est vrai)
Fin de ma condition ==> End if

Après on peut compliquer .....

Si ma condition alors ==> If ma condition then
Je fais ceci ==> Blablabla.... (ma condition est vrai)
Ma condition est fausse ==> Else
Je fais plutot cela ==> Autre blablabla...... (ma condition est fausse)
Fin de ma condition ==> End if

@Phil69970

Rolu · 28 Février 2022

sylvanu à dit:
Bonjour Rolu et bienvenu sur XLD,
Outre cette syntaxe qui n'est pas correcte, il n'est pas possible de détecter une MFC avec interior.color.
La MFC vient en supplément de la couleur de la cellule, "par dessus" et non à la place.
Deux solutions :
- La détection des MFC, vous trouverez des ex sur XLD, mais ce sont des usines à gaz
- Recreer les conditions des MFC en VBA.
Si les conditions des MFC son simples alors la seconde solution l'est tout autant.

Bonjour Sylvanu

Merci de ta réponse.

Par contre tu me dis qu'il n'est pas possible de détecter une MFC or quand je fais le test sur une seule cellule avec le code qui suit :
If [AG4].Interior.ColorIndex = 3 Then End

Cela fonctionne.

Mon souci est la syntaxe pour déclarer plusieurs cellule non adjacentes (cela n'est peut-être pas possible ?)

Rolu · 28 Février 2022

Phil69970 à dit:
Bonjour @Rolu

Edit : Bonjour Sylvain

Petit rappel comment fonctionne d'une manière générale

If .... then

Après on peut compliquer .....

@Phil69970

Bonjour @Phil69970
Merci de ces informations

sylvanu · 28 Février 2022

Re,

Rolu à dit:
If [AG4].Interior.ColorIndex = 3 Then End
Cela fonctionne.

Non, cela ne marche pas. Vous lisez la couleur de la cellule et non la couleur de la MFC.

Regardez cette PJ.
La plage a comme couleur Jaune ( colorindex=6 ) et la MFC met en bleu les cellules qui contiennent 1.
Vous verrez qu'avec la macro ci dessous, toutes les couleurs de la plage valent 6, et la MFC n'est pas prise en compte.

VB:

Sub couleur()
    Dim L%
    For L = 5 To 13
        Range("D" & L) = Range("C" & L).Interior.ColorIndex
    Next L
End Sub

Rolu · 28 Février 2022

sylvanu à dit:
Re,

Non, cela ne marche pas. Vous lisez la couleur de la cellule et non la couleur de la MFC.

Regardez cette PJ.
La plage a comme couleur Jaune ( colorindex=6 ) et la MFC met en bleu les cellules qui contiennent 1.
Vous verrez qu'avec la macro ci dessous, toutes les couleurs de la plage valent 6, et la MFC n'est pas prise en compte.

VB:

Sub couleur() Dim L% For L = 5 To 13 Range("D" & L) = Range("C" & L).Interior.ColorIndex Next L End Sub

Autant pour moi effectivement je testais la couleur de la cellule et non de la MFC

Encore merci, il va falloir que je trouve une autre solution

sylvanu · 28 Février 2022

Si la MFC est simple, recréez la en VBA.

Rolu · 28 Février 2022

sylvanu à dit:
Si la MFC est simple, recréez la en VBA.

Malheureusement cela dépasse mes compétences

sylvanu · 28 Février 2022

Rolu à dit:
Malheureusement cela dépasse mes compétences

Si par ex vous avez en MFC A1 : Rouge si A1=1 alors en VBA vous pouvez faire :

VB:

If range("A1")=1 then
  ... votre macro
End If

Rolu · 1 Mars 2022

sylvanu à dit:
Si par ex vous avez en MFC A1 : Rouge si A1=1 alors en VBA vous pouvez faire :

VB:

If range("A1")=1 then ... votre macro End If

Rolu · 1 Mars 2022

Merci beaucoup de votre aide

J'ai trouvé l'instruction qui teste la couleur MFC

If [D4].DisplayFormat.Interior.ColorIndex = 3 Then MsgBox "Ok"

encore merci pour tout

sylvanu · 1 Mars 2022

Bonjour,
Ca, je ne connaissais pas. Mais sur mon PC cela génère systématiquement une erreur.
Quelle version VBA avez vous ? on l'obtient ici :

Moi, je suis en 6.3. peut être est ce dû à cela.
Pouvez vous tester ma PJ ?
Moi, la colonne D est vide car il génère une erreur sur cette instruction. Merci.

Rolu · 1 Mars 2022

Je suis sur Mac la version VBA est 7.1

et votre tableau fonctionne bien chez moi

sylvanu · 1 Mars 2022

Merci infiniment.
C'est donc bien la version VBA qui pose problème.
Il va me falloir investir dans plus récent qu' XL2007 !

XL pour MAC Test couleur (mise en forme conditionnelle) cellules non adjacentes (VBA)

Rolu

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Rolu

XLDnaute Nouveau

Rolu

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Rolu

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Rolu

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Rolu

XLDnaute Nouveau

Rolu

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Rolu

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires