format d'un mot dans une boucle

[Marion]

Bonsoir au forum

un petit soucis en ce vendredi soir

j'ai une boucle qui recherche des valeurs dans un tableau

la voici:
For Each Cel In Range('G65:G416')
If Cel < 0 Then
L = L + 1
Range('M' & L).Offset(4, 0).Value = Cel.Value
Range('L' & L).Offset(4, 0).Value = Range('B' & Cel.Row).Value
Range('K' & L).Offset(4, 0).Value = Range('A' & Cel.Row).Value
Range('n' & L).Offset(4, 0).Value = Range('j' & Cel.Row).Value

End If
Next Cel

cette boucle liste toutes les valeurs dont la corespondance est negatives.

cette boucle rencontre des mot cles comme 'cartons' 'callage' 'stick' comment arriver a les griser lorsque il se positionne dans mon tableau
la mise en forme conditionnel me permet que de faire trois condition et ce n'est pas suffisant.

Merci de votre aide

A+Marion

 

[Bebere]

bonsoir Marion

tu regardes dans l'aide de vba pour choisir la couleur

For Each cel In Range('G65:G416')
If cel < 0 Then
L = L + 1
Range('K' & L).Offset(4, 0).Value = Range('A' & cel.Row).Value
Range('L' & L).Offset(4, 0).Value = Range('B' & cel.Row).Value
Range('M' & L).Offset(4, 0).Value = cel.Value
Range('N' & L).Offset(4, 0).Value = Range('j' & cel.Row).Value
End If
If cel = 'cartons' Or cel = 'callage' Or cel = 'stick' Then
Cells(cel.Row, cel.Column).Interior.ColorIndex = 4'4=index couleur
End If
Next cel

à bientôt

 

[Marion]

Re bonsoir a 'ensemble du forum

Merci a toi bebere il me semble que c'est toi qui m'avait donné ce code.

Je viens de faire la correction du code mais il y a un problème
cel est la valeurs negative qui me permet de mettre en colonne L le code donc cela ne peut pas fonctionner

J'ai essayer de remplace la variable Cel par L dans le morceau de code que tu m'a donné mais rien a faire

Si tu peux faire quelque chose

Merci a toi

A+Marion

 

[Bebere]

bonjour Marion,le Forum
dans quelle colonne as tu cartons, callage,etc..
du côté ou le code est lu ou du côté ou le code est écrit
à bientôt

 

[Marion]

Bonjour au forum

Bonjour a toi bebere

les cartons callages sont en colonne B


Merci de ton aide

A+Marion

 

[Bebere]

rebonjour Marion

le code qui suit:
If cel = 'cartons' Or cel = 'callage' Or cel = 'stick' Then
Cells(cel.Row, cel.Column).Interior.ColorIndex = 4'4=index couleur
End If
devient:
If Range('B' & cel.Row).Value= 'cartons' Or Range('B' & cel.Row).Value = 'callage' Or Range('B' & cel.Row).Value = 'stick' Then
Range('B' & cel.Row).Interior.ColorIndex = 4'4=index couleur
End If
rmq:il peut y avoir des fautes dans le code avec les copier/coller
à bientôt

 

[Marion]

Re bonjour

merci Bebere c'est OK

Bisous

A+Marion