Richard_9
Messages postés26Date d'inscriptionmardi 13 juillet 2004StatutMembreDernière intervention 1 juillet 2008
-
24 janv. 2005 à 15:58
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 2009
-
25 janv. 2005 à 12:52
J'ai créé un plan avec excel. Chaque cellule représente la surface occupée par un marchand.
Si celui-ci a payé sa cotisation pour un mois donné, le mois est repris en commentaire dans la cellule.
Après quelques mois, j'ai donc en commentaire quelque chose comme ceci :
09/2004
10/2004
11/2004
12/2004
J'aimerai recolorier la cellule si un certain mois figure dans le commentaire.
Par exemple pour savoir quel marchand a payé sa cotisation pour 11/2004, et visualiser sur le plan
qui n'a pas encore payé et qui a déjà payé.
Comment puis-je faire pour interroger une partie du commentaire et trouver ceux qui contiennent
la chaine de caractère que je cherche.
Par exemple : la cellule A2 contient
en commentaire
09/2004
10/2004
11/2004
12/2004
Je questionne pour savoir si le mois "11/2004" est contenu dans le commentaire,
Si oui je met un fond de couleur grisé pour la cellule,
si non je je met un fond de couleur rouge pour cette cellule.
Merci de votre aide.
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 24 janv. 2005 à 16:17
'Si le commentaire de la cellule C3 contient "11/2004", alors le fond est mis en gris, sinon en rouge
If InStr(1, Range("c3").Comment.Text, "11/2004") > 0 Then
Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(128, 128, 128)
else
Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
Richard_9
Messages postés26Date d'inscriptionmardi 13 juillet 2004StatutMembreDernière intervention 1 juillet 2008 25 janv. 2005 à 12:44
Merci,
cela fonctionne très bien. Je ne connaissais pas cette fonction.
Encore une petite question :
Certaines cellules ne contiennent pas de commentaires, comment tester si la cellule contient un commentaire avant de faire la recherche. ceci pour éviter le plantage.
Merci
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 25 janv. 2005 à 12:52
'Teste si l'objet Comment existe
If Not Range("c3").Comment Is Nothing Then
If InStr(1, Range("c3").Comment.Text, "11/2004") > 0 Then
Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(128, 128, 128)
Else
Range("C3").Comment.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End if