Conditions en VBA

CBernardT

XLDnaute Barbatruc

• 18 Août 2005

• #2

Bonjour Nat54 et le forum,

Si j'ai bien compris la question , la macro devient :

Sub SituationContrat()
Dim C As Range
'les cellules surveillées
For Each C In Range('A3:A300')
If C <> '' Then
'condition fixée pour bleu = prévisionnel
If C.Interior.ColorIndex = 5 Then
Range('BU' & C.Row) = 'prévisionnel'
'condition fixée pour noir = actif ou inactif
Else
If C.Interior.ColorIndex = 52 And Range('A' & C.Row) >= Date Then
Range('BU' & C.Row) = 'actif'
Else
Range('BU' & C.Row) = 'inactif'
End If
End If
End If
Next C
End Sub

Cordialement

Bernard

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 18 Août 2005

• #3

merci bien

sorry pour les erreurs je débute en VBA...

@ jmps : je débute, je débute....
qu'entends-tu par BU dans son assiette ??? :huh:

je vais tester mais le fichier est utilisé par une collègue donc je ne peux pas enregistrer...

Message édité par: nat54, à: 18/08/2005 14:15

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 18 Août 2005

• #4

vous êtes sûrs du terme date ?

car là ca me met des inactifs partout....ou c'est ptetr le code couleur qui va pas....(ya tellemnt de bleus différents ! hmy: )

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #5

Code:

Sub SituationContrat()   
Dim C As Range   
'les cellules surveillées   
For Each C In Range('A3:A300')   
If C <> '' Then   
'condition fixée pour bleu = prévisionnel   
If C.Interior.ColorIndex = 5 Then   
Range('BU' & C.Row) = 'prévisionnel'  
End if 
End if 
End sub

je suis vraiment débutante alors j'ai essayé de décomposer mon pb

là normalement il devraimt m'afficher 'prévisionnel' où ma police est en bleu or ya rien ..

donc ya déjà une erruer là ,non ?

Message édité par: nat54, à: 19/08/2005 10:30

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #6

interior.colorindex, c bien pour la couleur de la police et non un fond ??

euh c où la fenetre execution ?

quand je dis que je débute, je ne mens pas.... hmy:

Message édité par: nat54, à: 19/08/2005 10:44

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #7

ok bon cette partie marche, je remets le code en entier et je te dis

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #8

les prévisionnels marchent (code couleur 5)

par contre le reste j'ai que des inactifs
peut-être est-ce la fonction date qui bug ??

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #9

une question date ca prend jour/moi/année ?

car dans mon tableau en fait il paarait une ligne 'actif' (contrat finissant en déc 2005 donc c bon il est actif)
mais pourquoi les autres ne fonctionnent pas ?
(la colonne a le même format date partout)

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #10

merci pour ton aide

Sub SituationContrat()
Dim C As Range
'les cellules surveillées
For Each C In Range('A3:A300')
If C <> '' Then
'condition fixée pour bleu = prévisionnel
If C.Font.ColorIndex = 5 Then
Range('BU' & C.Row) = 'prévisionnel'
'condition fixée pour noir = actif ou inactif
Else
If C.Font.ColorIndex = 1 And Range('AL' & C.Row) >= Date Then
Range('BU' & C.Row) = 'actif'
Else
Range('BU' & C.Row) = 'inactif'
End If
End If
End If
Next C
End Sub

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #11

jmps écrit:

Pour la fenêtre exécution c'est CTRL+G dans l'éditeur VBA. Ou bien menu Affichage/Fenêtre exécution.

Cliquez pour agrandir...

tu vas me prendre vraiment pour une nulle

bon j'ai fait ctrl G
j'ai copié ton code en modifiant justement la cellule car en a1 ya rien

mais après je fais quoi ???
pour avoir la couleur

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #12

j'attens juste ta réponse pour la fenêtre execution

mais en mettant xlAutomatic ca marche

HYPER GRAND MERCI A TOI

Message édité par: nat54, à: 19/08/2005 11:17

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #13

ca donnait - 4105

merci encore pour tout

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 19 Août 2005

• #14

merci surtuot à toi d'avoir pris de ton temps B)

 

Vote positif 0 Vote négatif