Si date -> texte
Fermé
Matt3108
Messages postés
1
Date d'inscription
vendredi 19 juin 2015
Statut
Membre
Dernière intervention
19 juin 2015
-
19 juin 2015 à 11:21
Matt3187 - 22 juin 2015 à 06:49
Matt3187 - 22 juin 2015 à 06:49
A voir également:
- Si date -> texte
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Iphone 14 date de sortie - Guide
- Excel si cellule contient texte alors ✓ - Forum Excel
- Fonction si avec date ✓ - Forum Excel
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
19 juin 2015 à 12:14
19 juin 2015 à 12:14
Bonjour,
Pourriez-vous m'aider svp ?
Bien sur!
J'ai une base de code tellement pourrie que j'ai honte de l'afficher.
Mais justement c'est nécessaire pour voir ce qu'il convient de faire...
Dans l'attente...
Pourriez-vous m'aider svp ?
Bien sur!
J'ai une base de code tellement pourrie que j'ai honte de l'afficher.
Mais justement c'est nécessaire pour voir ce qu'il convient de faire...
Dans l'attente...
Modifié par pijaku le 22/06/2015 à 08:31
Sub cloturé() ' variables Dim v1 As invites, dates As Date, v2 As invites v1 = "En cours" v2 = "Clôturé" dates = Columns("H") ' Si la date de fin est remplie (manuellement) dans la colonne J, la case de la colonne H (clôturé) lui correspondant se colore en vert If IsDate(Columns("J")) Then v2 = Range("H3:H200") Columns("H").Select.Interior.Color = 4 End If ' S'il n'y a pas de date de fin dans la colonne J, la case de la colonne H inscrit lui correspondant inscrit "en cours" et se colore en bleu If IsDate(Columns("J"))=False Then v1=Range ("H3:H200") End If If .Columns("H") = v1 Then Columns("H").Select.Interior.Color = 41 End If End Sub