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

Re
Les zones devaient commencer en ligne 3 !!!!
Avec un debut en ligne 4 la macro devient:

Sub test()
x = Range("D[COLOR=red]4[/COLOR]").FormatConditions(3).Formula1
z = Array("D", "G", "J", "M", "P", "S", "V", "Y", "AB", "AE", "AH")
For n = 4 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

ça marche bien sur le fichier envoyé mais chez moi problème :

ça bloque sur cette ligne :
z = Array("D", "G", "J", "M", "P", "S", "V", "Y", "AB", "AE", "AH")
"erreur d'exécution 1004
erreur définie par l'application ou par l'objet"

je ne comprends pas !

 

[pierrejean]

Re : recopie mise en forme conditionnelle

Re

Je ne vois pas d'explication hormis une declaration de variable pour z ou une recopie erronée de ladite ligne

 

[bpierre]

Re : recopie mise en forme conditionnelle

j'ai trouvé !
vue le nombre élevé de feuille, la macro n'était pas bien associée.

en tout cas merci beaucoup pour votre aide

 

[guitou77]

Re : recopie mise en forme conditionnelle

Bonsoir à tous du forum,

Pierrejean, ta macro test est très intéressante, mais sous mac "Replace" n'est pas reconnu y a t-il une substitution à faire.

Merci d'avance et @ +.

 

[pierrejean]

Re : recopie mise en forme conditionnelle

bonjour guitou77

tu peux utiliser cette fonction personnalisée

Function remplace(ou As String, quoi As String, par As String) as String
x = InStr(ou, quoi)
remplace = Left(ou, x - 1) & par & Right(ou, Len(ou) - x - Len(quoi) + 1)
End Function

 

[guitou77]

Re : recopie mise en forme conditionnelle

Bonjour le forum, bonjour jeanpierre

Merci pour ta réponse, je vais essayer celle-ci.
Encore merci et @ +.

 

[pierrejean]

Re : recopie mise en forme conditionnelle

Re
Quand ce sera @ +
Souviens-toi moi c'est pierrejean !!

 

[guitou77]

Re : recopie mise en forme conditionnelle

Bonsoir à tous,

Excuse moi pierrejean d'avoir inversé celà n'arrivera plus (promis, juré).

Encore merci et @+.