recopie mise en forme conditionnelle

pierrejean

XLDnaute Barbatruc

• 29 Février 2008

• #16

Re : recopie mise en forme conditionnelle

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

Code:

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

 

Vote positif 0 Vote négatif

B

bpierre

XLDnaute Junior

• 29 Février 2008

• #17

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 !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Février 2008

• #18

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

 

Vote positif 0 Vote négatif

B

bpierre

XLDnaute Junior

• 29 Février 2008

• #19

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

 

Vote positif 0 Vote négatif

G

guitou77

XLDnaute Occasionnel

• 29 Février 2008

• #20

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 @ +.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Mars 2008

• #21

Re : recopie mise en forme conditionnelle

bonjour guitou77

tu peux utiliser cette fonction personnalisée

Code:

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

 

Vote positif 0 Vote négatif

G

guitou77

XLDnaute Occasionnel

• 1 Mars 2008

• #22

Re : recopie mise en forme conditionnelle

Bonjour le forum, bonjour jeanpierre

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Mars 2008

• #23

Re : recopie mise en forme conditionnelle

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

 

Vote positif 0 Vote négatif

G

guitou77

XLDnaute Occasionnel

• 1 Mars 2008

• #24

Re : recopie mise en forme conditionnelle

Bonsoir à tous,

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

Encore merci et @+.

 

Vote positif 0 Vote négatif