Mise en forme conditionnelle par VBA

[Nidrig63]

Bonjour ... Site TRES intéressant (Bravo) ... Mais 'un peu' touffu ... Pas facile de savoir si l'info existe déjà ... 😉

Je cherche à mettre en place une MEFC calculée.
Je précalcule la formule ...
-----------
Dim MaFeuille as Worksheet
Dim Zone as string
Dim FormuleMEFC As Variant

[....]
FormuleMEFC = '= NON ($' & ParamCellName & ')'
-----------

puis je mets en place la MEFC ...

--------------
MaFeuille.Range(Zone).FormatConditions.Delete
MaFeuille.Range(Zone).FormatConditions.Add _
Type:=xlExpression, _
Formula1:=FormuleMEFC

--------------
Mais VBA ne veut rien entendre ... (Erreur d'exécution '5')

Je pensais être plutôt bon sous Excel ...
Mais je séche ... et cherche mon maître !

Obiwan ?... Es-tu là ?

Merci d'avance.

Promis ... Je reviendrai aussi souvent que possible pour apporter ma contribution.

 

[pierrejean]

bonsoir Nidrig63

tu peux peut-etre t'inspirer de cela [file name=mfc_20060530195311.zip size=5538]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mfc_20060530195311.zip[/file]

 

[MichelXld]

bonsoir


bonsoir tu peux tester ce type de synthaxe

With Range('A1')
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Operator:=xlGreater, Formula1:='=NON(ESTVIDE(A1))'
.FormatConditions(1).Interior.ColorIndex = 3
End With


bonne soirée
MichelXld

 

[Nigrid63 (Vincent)]

Michel, Pierre Jean,

merci à tous les deux !
Hélas, j'avais déjà testé ce genre de choses ...
Voir fichiers joints (contenu banalisé ... confidentiel client ... ;-) )

Le code est neutralisé en fin de la procédure ImportTable du module Import (!!!)

Réactivé ... la sub plante ...

Pour tester, utiliser la feuille 'Import des sources'. Après avoir utilisé le bouton ad-hoc pour trouver le fichier, lancer l'import ...

Merci d'avance de votre coup de main ...

Et M ... (sensuré !)
Même allégé, mon fichier est quinze fois trop gros ... même zippé ! ...

Envoie par mail ?...

 

[Nidrig63]

Le même ...
Mais enregistré ...