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
- Excel cellule couleur si condition texte - Guide
- Whatsapp date incorrecte ✓ - Forum Mobile
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme
- Alignez la date à droite. alignez "monsieur le directeur” à gauche. alignez des deux côtés le texte du courrier. ✓ - Forum Word
- Formule excel si contient texte alors texte ✓ - Forum Excel
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
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