question de newb :D

[Kaverne]

Voila mon script

*************************
Sub CheckRentabilite()
Dim Rentabilite As Currency
Dim Cell As Range

For Each Cell In Range('K2:K60')
Rentabilite = Cell.Value
Select Case Rentabilite
Case Is <= 0
With Cell.Characters.Font
.FontStyle = 'Gras'
.ColorIndex = 3 ' rouge
End With
Case Is > 0
With Cell.Characters.Font
.FontStyle = 'Gras'
.ColorIndex = 4 ' rouge
End With
End Select
Next Cell

End Sub
**************************

Je previens de suite que je ne suis pas tres bon en VB. Je suis admin Unix en fait et je me sert eaucoup d'excel pour de nombreuses rasons. J'ai decidé de m'ameliorer car je trouve que c'est un tres bon produit mais je suis encore bien impermeable a la logique (cela dit ca devrait finir par rentrer).
Ici l'idee c'est de colorer le texte en rouge si <=0 et vert si > 0.
Il me met une erreur sur cett eligne
Rentabilite = Cell.Value

Quelqu'un pourrait il m'expliquer ? 😱

 

[Kaverne]

Bon je me reponds tout seul apres des recherches plus poussées.

Le pb venait du fait qu'une des cases avait un pb, mais la macro semble bonne.

 

[PascalXLD]

Bonjour

Tu dis :'Je previens de suite que je ne suis pas tres bon en VB'

Franchement ce n'est pas grave il faut bien débuter un jour

Par contre tu peux très vite progresser DANS CE DOMAINE

Bonne soirée

 

[_Thierry]

Bonjour Kaverne, le Forum

Tiens transmission de pensée....

Regarde ce Fil d'aujourd'hui !!!

=> Lien supprimé

'Y a tou'se ki fo' dedans...


Sinon pour ton erreur sur Rentabilite = Cell.Value, ce doit être parceque tu ne testes pas si c'est numérique avant et tu as des Cellules non numériques dans 'K2:K60'... et comme tu as déclaré 'As Currency' il faut du numérique ... (Préfère As Double au fait)...

Bon Après Midi...
@+Thierry

EDITION !!! Pas vu Pascal... Mais tu as parfaitement raison...

Message édité par: _Thierry, à: 05/04/2005 16:13