Conditions avec VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Conditions avec VBA

nat54

Un autre souci.....

voilà la situation
j'ai un tableau avec des contrats
certains sont écris (la ligne entière) en bleu, c les contrats prévisionnels
certains sont en noir, ce sont les contrats actifs ou inactifs
--> actif quand date fin >= aujourd'hui
--> inactif = contrat fini

comment faire apparaitre en colonne BU la situation de chaque contrat ?

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"
'condition fixée pour noir = actif ou inactif
Else
If C.Interior.ColorIndex = 52 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

date ca existe bien ? (je suis sous excel)

comment être sûr du code couleur (car ya plusieurs noir et bleu ...)

merci d'avance

Publicité

nat54

nobody ???? sniffffffffff

olivthill

Vous pouvez répéter la question ?

Il semble que vous ayez déjà trouvé toutes les solutions.

> comment faire apparaitre en colonne BU la situation de chaque contrat ?

C'est déjà ce que vous faites avec Range("BU" & C.Row) = "..."

> date ca existe bien ?

Oui.

> comment être sûr du code couleur (car ya plusieurs noir et bleu ...) ?

La doc (qui apparait quand le curseur est sur le mot "colorindex" et qu'on appuie sur F1) montre tous les codes possibles. Par exemple, pour le noir, je testerais pour le codes 1, 51, et 52; pour le bleu 5, 11, 25, 32, 41, 49, 55.

AlainTech

Pas trouvé? Cherche encore!

Il me paraît très aléatoire de laisser l'utilisateur choisir lui-même la couleur et encore plus de se baser sur la couleur pour faire un traitement.

Il vaut bien mieux avoir une colonne "Etat" où on peut mettre un nombre désignant l'état du contrat et mettre une mise en forme conditionnelle dépendant de cet état (ce nombre).
Pour le traitement, il suffit de se baser sur la valeur de l'état.

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

nat54

AlainTech a écrit :

le tableau excel est déjà conçu de cette manière avec les couleurs... et la personne qui s'en occupe ne souhaite pas changer ses "habitudes"

mais je comprends votre point de vue

me rester à tester les "code couleur" alors..

Message édité par nat54 le 19-08-2005 à 09:36:18

nat54

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 ?

nat54

j'ai avancé un peu ... dur dur quand on débute

c'était pas interior mais font.color car c la couleur dela police

donc pour les prévisionnel (en bleu) ca marche
mais le reste j'ai que des inactifs

la fonction date fonctionne -t-elle bien comme je l'ai utilisée ?

nat54

PB RESOLU

c'était pour la couleur noire que ca buggait c'était pas noir mais couleur automaitque

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.Font.ColorIndex = 5 Then
Range("BR" & C.Row) = "prévisionnel"
'condition fixée pour noir = actif ou inactif
Else
If C.Font.ColorIndex = xlAutomatic And Range("AL" & C.Row) >= Date Then
Range("BR" & C.Row) = "actif"
Else
Range("BR" & C.Row) = "inactif"
End If
End If
End If
Next C
End Sub

Message édité par nat54 le 19-08-2005 à 16:29:37

guendalf

Juste pour qu'on puisse lire plus facilement..
nat54> Pourrais-tu metter ton code entre les balises "code" et indenter ton code. Car on s'y perd rapidement avec les conditions imbriques si le code n'est pas indente.

Merci.

P.S: Qui a dit: mais quel relou celui-la ?!

---------------
Guendalf

nat54

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Conditions avec VBA

Sujets relatifs
Protection projet VBA	[VBA - Word]: Lancer une macro en mode console
[VBA Excel - resolu] ajout d'une feuille	En quoi consiste la compilation sur VBA (Excel)
Différence entre VBA et Visual Basic	VBA excel pb pour récupérer le chemin d'enregistrement et le réinject
accélération d'un code VBA	[VBA][EXC] Fonction de recalcul d'une feuille Excel sous VBA ?
VBA Excel: problème de compatibilité excel 2000 - excel 2003
Plus de sujets relatifs à : Conditions avec VBA

Page générée en 0.055 secondes