recopie mise en forme conditionnelle

[bpierre]

bonjour,

comment faire pour recopier une mise en forme conditionnelle en incrémentant le nom d'une cellule ?

exemple condition 1 :
avant recopie
=SI(ET(D3<AUJOURDHUI();S6S3<>"");VRAI;FAUX)
après recopie
=SI(ET(D3<AUJOURDHUI();S5S3<>"");VRAI;FAUX)
=SI(ET(D3<AUJOURDHUI();S4S3<>"");VRAI;FAUX)

merci pour votre aide

 

[pierrejean]

Re : recopie mise en forme conditionnelle

bonjour bpierre

un essai par macro

note: j'ai limité l'incrementation (negative) pour ne pas passer en dessous de 0
On part de 6 pour aboutir a 1 dans S653

 

[bpierre]

Re : recopie mise en forme conditionnelle

merci mais n'est-il pas possible d'éviter les macros ?

 

[bpierre]

Re : recopie mise en forme conditionnelle

est-il possible de changer 2008 en 2009 automatiquement pour toutes mes cellules ?
mise en forme conditionnelle (condition 3) :
=ET(AUJOURDHUI()<D12;ANNEE(D12)<2008)

merci

 

[chris]

Re : recopie mise en forme conditionnelle

Bonjour
Tu parles d'incrémenter mais ton exemple décrémente.
Pour incrémenter
remplacer S6S3 par DECALER(S6S3;1;0) dans la formule

par DECALER(S6S3;-1;0) pour décrémenter

 

[chris]

Re : recopie mise en forme conditionnelle

Re
Pour l'année il serait plus simple de la mettre dans une cellule nommée ou une variable nommée.
Il suffit de changer la MFC de la 1ère cellule puis de recopier la mise en forme sur les autres cellules.
Sinon VBA

 

[bpierre]

Re : recopie mise en forme conditionnelle

merci Chris pour tes réponses.

Toutefois dans l'exemple que je joins à ce mail, je ne peux pas faire de recopie simple. Si je tape 2009 à la place de 2008, l'incrémentation ne suit pas.

Donc, comment changer automatiquement 2008 par 2009, dans la condition 3, dans toutes les cellules ?
Sans toucher à l'incrémentation puisqu'elle est bonne.

 

[chris]

Re : recopie mise en forme conditionnelle

Bonjour

C'est bien pourquoi je te donnais une méthode pour dynamiser la formule.
Tu as maintenant une MFC par cellule : tu ne peut plus changer facilement sauf par VBA et de plus cela alourdit le nombre de formats à gérer par Excel avec un risque d'atteindre la limite.

 

[bpierre]

Re : recopie mise en forme conditionnelle

je n'ai pas envie de tout changer.
Quelle est la formule VBA pour ne changer que 2008 en 2009 dans la condition 3 de ma MFC ?

merci d'avance

 

[pierrejean]

Re : recopie mise en forme conditionnelle

Re

teste ceci:

Sub test()
x = Range("D3").FormatConditions(3).Formula1
For n = 3 To 16
 Range("D" & n).FormatConditions(3).Modify xlExpression, , Replace(x, "2008", "2009")
Next n
End Sub

 

[bpierre]

Re : recopie mise en forme conditionnelle

Effectivement, ça marche bien pour dans la colonne D pour les cellules 3 To 16

Comment faire fonctionner cette macro pour qu'elle change 2008 en 2009 dans plusieurs colonnes qui ne se suivent pas (A,C,D,F,H,...) ?

merci

 

[pierrejean]

Re : recopie mise en forme conditionnelle

Re

serait-il possible d'avoir la totalité de l'énoncé du problème ?
a savoir :
quelles lignes ?
quelles colonnes ?

 

[bpierre]

Re : recopie mise en forme conditionnelle

le changement doit se faire dans ces cellules :
D3 à D18
G3 à G18
J3 à J18
M3 à M18
P3 à P18
S3 à S18
V3 à V18
Y3 à Y18
AB3 à AB18
AE3 à AE18
AH3 à AH18

 

[pierrejean]

Re : recopie mise en forme conditionnelle

Re

Voila:

Sub test()
x = Range("D3").FormatConditions(3).Formula1
z = Array("D", "G", "J", "M", "P", "S", "V", "Y", "AB", "AE", "AH")
For n = 3 To 18
 For a = 0 To UBound(z)
   Range(z(a) & n).FormatConditions(3).Modify xlExpression, , Replace(x, "2008", "2009")
 Next a
Next n
End Sub

 

[bpierre]

Re : recopie mise en forme conditionnelle

j'ai une erreur 400 lorsque j'exécute la macro.
Je joins le classeur avec la macro dedans.