MFC

Le
IMER09
Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5018491
Bonsoir,

Dans un module
Alt+F11

Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function

MFC
Sélectionner le champ A1:A10 par ex

-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)

http://cjoint.com/?lbtYPJmO2X

JB


On 1 nov, 19:39, IMER09
Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09


Misange
Le #5018481
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'inverse :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée avec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré lurette à
comprendre que cela venait de là. Est ce que c'est la volatilité ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonsoir,

Dans un module
Alt+F11

Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function

MFC
Sélectionner le champ A1:A10 par ex

-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)

http://cjoint.com/?lbtYPJmO2X

JB


On 1 nov, 19:39, IMER09
Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09






JB
Le #5018441
Bonsoir Misange,

La volatilité n'est pas indispensable.
Je n'ai pas effectué de test sur des champs de taille importante.

Une alternative (si les formules ne sont pas coloriées)

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub SupCouleurFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex =
xlNone
End Sub

JB
On 1 nov, 19:56, Misange
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'inver se :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée avec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré lurette à
comprendre que cela venait de là. Est ce que c'est la volatilité ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki. free.fr/wikihttp://www.excelabo.net




Bonsoir,

Dans un module
Alt+F11

Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function

MFC
Sélectionner le champ A1:A10 par ex

-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)

http://cjoint.com/?lbtYPJmO2X

JB

On 1 nov, 19:39, IMER09
Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelquel s oit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




IMER09
Le #5018341
Merci a vous 2 mais j'ai des difficultés à comprendre
qu'est ce que la volatilité?
que dois je conclure?
--
IMER09



Bonsoir Misange,

La volatilité n'est pas indispensable.
Je n'ai pas effectué de test sur des champs de taille importante.

Une alternative (si les formules ne sont pas coloriées)

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub SupCouleurFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex > xlNone
End Sub

JB
On 1 nov, 19:56, Misange
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'inverse :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée avec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré lurette à
comprendre que cela venait de là. Est ce que c'est la volatilité ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.free.fr/wikihttp://www.excelabo.net




Bonsoir,

Dans un module
Alt+F11

Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function

MFC
Sélectionner le champ A1:A10 par ex

-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)

http://cjoint.com/?lbtYPJmO2X

JB

On 1 nov, 19:39, IMER09
Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









JB
Le #5018331
A chaque recalcul, une fonction Volatile est exécutée.
Essaie la MFC avec la fonction et si les temps de réponse se
dégradent, abandonne cette solution.

JB
On 1 nov, 22:16, IMER09
Merci a vous 2 mais j'ai des difficultés à comprendre
qu'est ce que la volatilité?
que dois je conclure?
--
IMER09




Bonsoir Misange,

La volatilité n'est pas indispensable.
Je n'ai pas effectué de test sur des champs de taille importante.

Une alternative (si les formules ne sont pas coloriées)

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub SupCouleurFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex =
xlNone
End Sub

JB
On 1 nov, 19:56, Misange
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'i nverse :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée a vec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré luret te à
comprendre que cela venait de là. Est ce que c'est la volatilité ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlw iki.free.fr/wikihttp://www.excelabo.net




Bonsoir,

Dans un module
Alt+F11

Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function

MFC
Sélectionner le champ A1:A10 par ex

-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)

http://cjoint.com/?lbtYPJmO2X

JB

On 1 nov, 19:39, IMER09
Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelqu el soit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



- Afficher le texte des messages précédents -






IMER09
Le #5018321
je n'y comprend en effet pas grd chose mais la solution de jb fonctionne
si j'ai des soucis j'essaierai de me souvenir de ce pb de volatilite

Merci encore
--
IMER09



Rebonjour à tous

je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.

Merci
--
IMER09


Misange
Le #5018311
Bonsoir Jacques
J'avais pensé à ce que tu proposes mais justement... tu perds la volatilité.
Je n'ai pas essayé mais à ton avis, entre une MFC et un appel de
fonction sur un événement de feuille, question conso de ressources
leplus économe c'est quoi ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonsoir Misange,

La volatilité n'est pas indispensable.
Je n'ai pas effectué de test sur des champs de taille importante.

Une alternative (si les formules ne sont pas coloriées)

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub SupCouleurFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex > xlNone
End Sub

JB
On 1 nov, 19:56, Misange
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'inverse :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée avec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré lurette à
comprendre que cela venait de là. Est ce que c'est la volatilité ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.free.fr/wikihttp://www.excelabo.net




Bonsoir,
Dans un module
Alt+F11
Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function
MFC
Sélectionner le champ A1:A10 par ex
-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)
http://cjoint.com/?lbtYPJmO2X
JB
On 1 nov, 19:39, IMER09
Rebonjour à tous
je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -










JB
Le #5018211
Bonjour Misange,

Après test, il apparaît que la MFC avec fonction perso sur un champ
important consomme du temps si on déplace celui ci.

Alertantives pour colorier les formules:

http://cjoint.com/?lciTEjZKp6

-L'ancienne couleur est perdue:

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub DecolorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex =
xlNone
End Sub

-On peut restituer les anciennes couleurs avant la fermeture du
classeur:

Dim temp1(), temp2(), n
Sub colorie2()
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
n = n + 1
ReDim Preserve temp1(1 To n)
ReDim Preserve temp2(1 To n)
temp1(n) = c.Address
temp2(n) = c.Interior.ColorIndex
c.Interior.ColorIndex = 36
End If
Next c
End Sub

Sub decolorie2()
For i = 1 To n
Range(temp1(i)).Interior.ColorIndex = temp2(i)
Next i
End Sub

-On mémorise l'ancienne couleur en commentaire:

Sub colorie3()
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
If c.Comment Is Nothing Then
c.AddComment
c.Comment.Text Text:=CStr(c.Interior.ColorIndex)
c.Interior.ColorIndex = 3
End If
End If
Next c
End Sub

Sub decolorie3()
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
On Error Resume Next
c.Interior.ColorIndex = Val(c.Comment.Text)
c.Comment.Delete
End If
Next c
End Sub

JB

On 1 nov, 23:01, Misange
Bonsoir Jacques
J'avais pensé à ce que tu proposes mais justement... tu perds la vola tilité.
Je n'ai pas essayé mais à ton avis, entre une MFC et un appel de
fonction sur un événement de feuille, question conso de ressources
leplus économe c'est quoi ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki. free.fr/wikihttp://www.excelabo.net




Bonsoir Misange,

La volatilité n'est pas indispensable.
Je n'ai pas effectué de test sur des champs de taille importante.

Une alternative (si les formules ne sont pas coloriées)

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub SupCouleurFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex =
xlNone
End Sub

JB
On 1 nov, 19:56, Misange
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'in verse :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée av ec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré lurett e à
comprendre que cela venait de là. Est ce que c'est la volatilité ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwi ki.free.fr/wikihttp://www.excelabo.net




Bonsoir,
Dans un module
Alt+F11
Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function
MFC
Sélectionner le champ A1:A10 par ex
-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)
http://cjoint.com/?lbtYPJmO2X
JB
On 1 nov, 19:39, IMER09
Rebonjour à tous
je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -





- Afficher le texte des messages précédents -






Misange
Le #5018191
Hello Jacques

Je regarderai ça ce WE. Et je te dirai ce que ça fait sur mon gros
classeur, sachant qu'en fait ce que je dois mettre en couleur ce sont
les cellules sans formules et que cette couleur soit l'automatique dès
qu'il y a une formule, le but étant de repérer tout de suite les
cellules qui ont été modifiées à la mimine.
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour Misange,

Après test, il apparaît que la MFC avec fonction perso sur un champ
important consomme du temps si on déplace celui ci.

Alertantives pour colorier les formules:

http://cjoint.com/?lciTEjZKp6

-L'ancienne couleur est perdue:

Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub

Sub DecolorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex > xlNone
End Sub

-On peut restituer les anciennes couleurs avant la fermeture du
classeur:

Dim temp1(), temp2(), n
Sub colorie2()
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
n = n + 1
ReDim Preserve temp1(1 To n)
ReDim Preserve temp2(1 To n)
temp1(n) = c.Address
temp2(n) = c.Interior.ColorIndex
c.Interior.ColorIndex = 36
End If
Next c
End Sub

Sub decolorie2()
For i = 1 To n
Range(temp1(i)).Interior.ColorIndex = temp2(i)
Next i
End Sub

-On mémorise l'ancienne couleur en commentaire:

Sub colorie3()
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
If c.Comment Is Nothing Then
c.AddComment
c.Comment.Text Text:=CStr(c.Interior.ColorIndex)
c.Interior.ColorIndex = 3
End If
End If
Next c
End Sub

Sub decolorie3()
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
On Error Resume Next
c.Interior.ColorIndex = Val(c.Comment.Text)
c.Comment.Delete
End If
Next c
End Sub

JB

On 1 nov, 23:01, Misange
Bonsoir Jacques
J'avais pensé à ce que tu proposes mais justement... tu perds la volatilité.
Je n'ai pas essayé mais à ton avis, entre une MFC et un appel de
fonction sur un événement de feuille, question conso de ressources
leplus économe c'est quoi ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.free.fr/wikihttp://www.excelabo.net




Bonsoir Misange,
La volatilité n'est pas indispensable.
Je n'ai pas effectué de test sur des champs de taille importante.
Une alternative (si les formules ne sont pas coloriées)
Sub colorieFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
End Sub
Sub SupCouleurFormules()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex >>> xlNone
End Sub
JB
On 1 nov, 19:56, Misange
Méfiance méfiance : j'utilisais un truc équivalent (en fait l'inverse :
pour visualiser les cellules qui n'ont pas de formule dedans). Le
classeur était un peu musclé certes mais je me suis retrouvée avec des
plantages fréquents, des pertes d'infos. J'ai mis une sacré lurette à
comprendre que cela venait de là. Est ce que c'est la volatilité ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.free.fr/wikihttp://www.excelabo.net
Bonsoir,
Dans un module
Alt+F11
Function EstFormule(c As Range)
Application.Volatile
EstFormule = c.HasFormula
End Function
MFC
Sélectionner le champ A1:A10 par ex
-Format/Mise en forme conditionnelle
-La formule est
=estformule(A1)
http://cjoint.com/?lbtYPJmO2X
JB
On 1 nov, 19:39, IMER09
Rebonjour à tous
je voudrai faire une MFC si la cellule contient une formule quelquel soit
je fouille depuis 2 heures mais je n'ai pas trouvé.
Merci
--
IMER09- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -












Publicité
Poster une réponse
Anonyme