Incompréhension Font / Interior

[ya_v_ka]

Bonsoir tout le monde

Des jours que je planche sur un problème pour colorer l'interieur d'une celulle en fonction d'une autre... et ce soir j'essaye quelque chose d'absurde: colorer la police au lieu de la celulle... et ca fonctionne a merveille, mais ne me sert à rien !

voilà mon bout de code qui fonctionne:

If Worksheets('Cp').Range('AC' & Ligne).Value = 0 Then
Worksheets('Cp').Range('E' & Ligne).Font.ColorIndex = 3
ElseIf Worksheets('Cp').Range('AC' & Ligne).Value = 1 Then
Worksheets('Cp').Range('E' & Ligne).Font.ColorIndex = 4...


pourquoi ne puis-je pas faire cela:

If Worksheets('Cp').Range('AC' & Ligne).Value = 0 Then
Worksheets('Cp').Range('E' & Ligne).Interior.ColorIndex = 3
ElseIf Worksheets('Cp').Range('AC' & Ligne).Value = 1 Then
Worksheets('Cp').Range('E' & Ligne).Interior.ColorIndex = 4...

à noter que 'interior' ne se met pas en majuscule... pas reconnu ????

merci pour toute information me permettant de comprendre quelque chose à ça.

Ya'v

Message édité par: ya_v_ka, à: 15/10/2005 00:29

 

[Bricofire]

Bonjour yavka,

Pas de raison apparente, mais le mieux pour ce genre de choses est de ne pas retaper ton code, mais de faire copier dans ton code et coller dans le post ce qui permet de reproduire d'éventuels détails de syntaxe qu'on peut ne pas reproduire à la frappe, ce que tu n'as pas du faire vu que dans ton extrait Intérior est bien avec un I majuscule et que les points de suspensions :whistle:

sinon joindre un extrait du fichier

bon courage,

Bfr

 

[ya_v_ka]

salut

ci-joint un extrait de fichier allegé... donc certains rechercheV ne sont plus ok, mais le code VBA devrait fonctionner quand même...


merci encore


ya'v [file name=mili3.zip size=23777]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mili3.zip[/file]

 

[ya_v_ka]

Resalut

à noter, encore plus étrange que comme ca ca marche :


If Worksheets('Cp').Range('AC' & Ligne).Value = 0 Then
ActiveSheet.Cells(Ligne, 5).interior.ColorIndex = 3
ElseIf Worksheets('Cp').Range('AC' & Ligne).Value = 1 Then
ActiveSheet.Cells(Ligne, 5).interior.ColorIndex = 4
ElseIf Worksheets('Cp').Range('AC' & Ligne).Value = 2 Then
ActiveSheet.Cells(Ligne, 5).interior.ColorIndex = 27
ElseIf Worksheets('Cp').Range('AC' & Ligne).Value = 3 Then
ActiveSheet.Cells(Ligne, 5).interior.ColorIndex = 7
ElseIf Worksheets('Cp').Range('AC' & Ligne).Value = 4 Then
ActiveSheet.Cells(Ligne, 5).interior.ColorIndex = xlNone
End If


même que le interior n'a toujours pas l'air d'être reconnu... je comprends de moins en moins !!!

ya'v

 

[Bricofire]

Re Ya_v-Ka

J'avoue que je ne peux te répondre sur ce coup, j'ai chargé ton classeur, mais ton code est trop fouilli à suivre ( le mien l'est pour d'autres d'ailleurs, les habitudes sont différentes et le language équivaut à divers patois ).

Je ne vois pas pourquoi le i est en minuscule, surtout que ça fonctionne quand même sur des lignes de test....

Sinon tu pourrais surement quand même alléger beaucoup ton code, une fois qu'une feuille est active, tu n'as pas besoin de répéter son nom à tout bout de champ par exemple, sinon il faudrait aussi citer constamment l'objet Application

Bon courage et bon WE

Brico