annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Commentaires > Commentaire conditionnel

Commentaire conditionnel

Publié par veriland le 11-Aug-2013 16:10 (2547 lectures)

Pour utiliser cette macro, il convient de sélectionner la cellule "Cible

 

pour le commentaire ...

--> faire menu Format / Mise en forme conditionnelle...., 

--> choisir "La formule est" et saisir une formule "fictive" sous la forme : mDF(Condition;Message).
 
Par exemple, dans la cellule D10 :
mDF(A1>7;Salut Jean-Yves, ça te convient ?)

mdf

 

Ainsi fait, si vous indiquez en A1 une valeur supérieure à 7, un commentaire sera créé automatiquement en D10...


Code à placer dans un module de feuille

module


Option Explicit
'-------------------------------------------------------------------
' Auteur : Didier Fourgeot (myDearFriend!)
' Date : 18/04/2005
' Sujet : Commentaires Conditionnels ?
'-------------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FC As FormatCondition
Dim F As String
Dim RF As String
Dim Cellule As Range
For Each Cellule In Cells.SpecialCells(xlCellTypeAllFormatConditions)
With Cellule
For Each FC In Cellule.FormatConditions
If FC.Type = xlExpression Then
F = FC.Formula1
RF = Formule(F)
.ClearComments
If RF <> "" Then
.AddComment RF
.Comment.Visible = True
End If
End If
Next FC
End With
Next Cellule
End Sub

Private Function Formule(T As String) As String
Dim Fml As String
If T Like "*mDF(*" Then
Fml = Mid(T, InStr(1, T, "mDF(") + 4)
Fml = Left(Fml, InStr(1, Fml, ";") - 1)
If Not Evaluate(Fml) Then Exit Function
Formule = Mid(T, InStr(1, T, ";") + 1)
Formule = Left(Formule, Len(Formule) - 2)
End If
End Function


Naviguer à travers les articles
Article précédent Afficher tous les commentaires de la feuille active Image en transparence dans un commentaire Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013