La formule pour la mise en forme conditionnelle pour une
cellule qui contient seulement une formule composée
du symbole "=" ou "+" et une adresse
comme par exemple : = G25
La formule est : =MichD_Formule(A1) = 1
Pour tous les autres types de formules :
La formule est : =MichD_Formule(A1) = 2
La fonction personnalisée dans un module standard est :
'--------------------------------
Function MichD_Formule(Cellule As Range) As Integer
Dim Rg As Range
If Cellule.HasFormula Then
On Error Resume Next
Set Rg = Range(Replace(Cellule.Formula, "=", ""))
If Err = 0 Then
MichD_Formule = 1
Else
Err = 0
MichD_Formule = 2
End If
End If
End Function
'--------------------------------
Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
et ne sont disponibles et utilisables que dans les formules
des "NOMS" (Insertion / nom / définir)
48 est le paramètre qui énonce que la cellule mentionnée contient
une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
Cette fonction "Lire.Cellule" contient plus de 60 paramètres différen ts
de 1 à 60... chacun désignant un type de format possible de la cellul e...
MichD
--------------------------------------------
La formule pour la mise en forme conditionnelle pour une
cellule qui contient seulement une formule composée
du symbole "=" ou "+" et une adresse
comme par exemple : = G25
La formule est : =MichD_Formule(A1) = 1
Pour tous les autres types de formules :
La formule est : =MichD_Formule(A1) = 2
La fonction personnalisée dans un module standard est :
'--------------------------------
Function MichD_Formule(Cellule As Range) As Integer
Dim Rg As Range
If Cellule.HasFormula Then
On Error Resume Next
Set Rg = Range(Replace(Cellule.Formula, "=", ""))
If Err = 0 Then
MichD_Formule = 1
Else
Err = 0
MichD_Formule = 2
End If
End If
End Function
'--------------------------------
Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
et ne sont disponibles et utilisables que dans les formules
des "NOMS" (Insertion / nom / définir)
48 est le paramètre qui énonce que la cellule mentionnée contient
une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
Cette fonction "Lire.Cellule" contient plus de 60 paramètres différen ts
de 1 à 60... chacun désignant un type de format possible de la cellul e...
MichD
--------------------------------------------
La formule pour la mise en forme conditionnelle pour une
cellule qui contient seulement une formule composée
du symbole "=" ou "+" et une adresse
comme par exemple : = G25
La formule est : =MichD_Formule(A1) = 1
Pour tous les autres types de formules :
La formule est : =MichD_Formule(A1) = 2
La fonction personnalisée dans un module standard est :
'--------------------------------
Function MichD_Formule(Cellule As Range) As Integer
Dim Rg As Range
If Cellule.HasFormula Then
On Error Resume Next
Set Rg = Range(Replace(Cellule.Formula, "=", ""))
If Err = 0 Then
MichD_Formule = 1
Else
Err = 0
MichD_Formule = 2
End If
End If
End Function
'--------------------------------
Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
et ne sont disponibles et utilisables que dans les formules
des "NOMS" (Insertion / nom / définir)
48 est le paramètre qui énonce que la cellule mentionnée contient
une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
Cette fonction "Lire.Cellule" contient plus de 60 paramètres différen ts
de 1 à 60... chacun désignant un type de format possible de la cellul e...
MichD
--------------------------------------------
La formule pour la mise en forme conditionnelle pour une
cellule qui contient seulement une formule composée
du symbole "=" ou "+" et une adresse
comme par exemple : = G25
La formule est : =MichD_Formule(A1) = 1
Pour tous les autres types de formules :
La formule est : =MichD_Formule(A1) = 2
La fonction personnalisée dans un module standard est :
'--------------------------------
Function MichD_Formule(Cellule As Range) As Integer
Dim Rg As Range
If Cellule.HasFormula Then
On Error Resume Next
Set Rg = Range(Replace(Cellule.Formula, "=", ""))
If Err = 0 Then
MichD_Formule = 1
Else
Err = 0
MichD_Formule = 2
End If
End If
End Function
'--------------------------------
Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
et ne sont disponibles et utilisables que dans les formules
des "NOMS" (Insertion / nom / définir)
48 est le paramètre qui énonce que la cellule mentionnée contient
une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
Cette fonction "Lire.Cellule" contient plus de 60 paramètres différents
de 1 à 60... chacun désignant un type de format possible de la cellule...
MichD
--------------------------------------------
La formule pour la mise en forme conditionnelle pour une
cellule qui contient seulement une formule composée
du symbole "=" ou "+" et une adresse
comme par exemple : = G25
La formule est : =MichD_Formule(A1) = 1
Pour tous les autres types de formules :
La formule est : =MichD_Formule(A1) = 2
La fonction personnalisée dans un module standard est :
'--------------------------------
Function MichD_Formule(Cellule As Range) As Integer
Dim Rg As Range
If Cellule.HasFormula Then
On Error Resume Next
Set Rg = Range(Replace(Cellule.Formula, "=", ""))
If Err = 0 Then
MichD_Formule = 1
Else
Err = 0
MichD_Formule = 2
End If
End If
End Function
'--------------------------------
Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
et ne sont disponibles et utilisables que dans les formules
des "NOMS" (Insertion / nom / définir)
48 est le paramètre qui énonce que la cellule mentionnée contient
une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
Cette fonction "Lire.Cellule" contient plus de 60 paramètres différents
de 1 à 60... chacun désignant un type de format possible de la cellule...
MichD
--------------------------------------------
La formule pour la mise en forme conditionnelle pour une
cellule qui contient seulement une formule composée
du symbole "=" ou "+" et une adresse
comme par exemple : = G25
La formule est : =MichD_Formule(A1) = 1
Pour tous les autres types de formules :
La formule est : =MichD_Formule(A1) = 2
La fonction personnalisée dans un module standard est :
'--------------------------------
Function MichD_Formule(Cellule As Range) As Integer
Dim Rg As Range
If Cellule.HasFormula Then
On Error Resume Next
Set Rg = Range(Replace(Cellule.Formula, "=", ""))
If Err = 0 Then
MichD_Formule = 1
Else
Err = 0
MichD_Formule = 2
End If
End If
End Function
'--------------------------------
Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
et ne sont disponibles et utilisables que dans les formules
des "NOMS" (Insertion / nom / définir)
48 est le paramètre qui énonce que la cellule mentionnée contient
une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
Cette fonction "Lire.Cellule" contient plus de 60 paramètres différents
de 1 à 60... chacun désignant un type de format possible de la cellule...
MichD
--------------------------------------------
J'ai appliqué la mise en forme conditionnelle dans la colonne "Qté"
de la feuille soumission.
Il n'y a qu'une cellule qui a ce format comme cellule : ¡
http://cjoint.com/?AFeaErbmyJk
MichD
--------------------------------------------
"pellet15" a écrit dans le message de groupe de discussion :
On 3 juin, 14:33, "MichD" wrote:
> La formule pour la mise en forme conditionnelle pour une
> cellule qui contient seulement une formule composée
> du symbole "=" ou "+" et une adresse
> comme par exemple : = G25
> La formule est : =MichD_Formule(A1) = 1
> Pour tous les autres types de formules :
> La formule est : =MichD_Formule(A1) = 2
> La fonction personnalisée dans un module standard est :
> '--------------------------------
> Function MichD_Formule(Cellule As Range) As Integer
> Dim Rg As Range
> If Cellule.HasFormula Then
> On Error Resume Next
> Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> If Err = 0 Then
> MichD_Formule = 1
> Else
> Err = 0
> MichD_Formule = 2
> End If
> End If
> End Function
> '--------------------------------
> Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
> et ne sont disponibles et utilisables que dans les formules
> des "NOMS" (Insertion / nom / définir)
> 48 est le paramètre qui énonce que la cellule mentionnée contient
> une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> Cette fonction "Lire.Cellule" contient plus de 60 paramètres différ ents
> de 1 à 60... chacun désignant un type de format possible de la cell ule...
> MichD
> --------------------------------------------
J'ai mis la mise en forme conditionnelle : ca va
mais pour différence les formule mathématique et de référence je ne
comprend pas ...
ou je trouve la fonction personnalisée dans un module standard ??
voici mon fichier...http://cjoint.com/?AFdxvt9rIos
Merci
J'ai appliqué la mise en forme conditionnelle dans la colonne "Qté"
de la feuille soumission.
Il n'y a qu'une cellule qui a ce format comme cellule : =A1
http://cjoint.com/?AFeaErbmyJk
MichD
--------------------------------------------
"pellet15" a écrit dans le message de groupe de discussion :
fa102dac-87ef-40a4-a0ce-a5b45fbd2...@j25g2000vbr.googlegroups.com...
On 3 juin, 14:33, "MichD" <michde...@hotmail.com> wrote:
> La formule pour la mise en forme conditionnelle pour une
> cellule qui contient seulement une formule composée
> du symbole "=" ou "+" et une adresse
> comme par exemple : = G25
> La formule est : =MichD_Formule(A1) = 1
> Pour tous les autres types de formules :
> La formule est : =MichD_Formule(A1) = 2
> La fonction personnalisée dans un module standard est :
> '--------------------------------
> Function MichD_Formule(Cellule As Range) As Integer
> Dim Rg As Range
> If Cellule.HasFormula Then
> On Error Resume Next
> Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> If Err = 0 Then
> MichD_Formule = 1
> Else
> Err = 0
> MichD_Formule = 2
> End If
> End If
> End Function
> '--------------------------------
> Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
> et ne sont disponibles et utilisables que dans les formules
> des "NOMS" (Insertion / nom / définir)
> 48 est le paramètre qui énonce que la cellule mentionnée contient
> une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> Cette fonction "Lire.Cellule" contient plus de 60 paramètres différ ents
> de 1 à 60... chacun désignant un type de format possible de la cell ule...
> MichD
> --------------------------------------------
J'ai mis la mise en forme conditionnelle : ca va
mais pour différence les formule mathématique et de référence je ne
comprend pas ...
ou je trouve la fonction personnalisée dans un module standard ??
voici mon fichier...http://cjoint.com/?AFdxvt9rIos
Merci
J'ai appliqué la mise en forme conditionnelle dans la colonne "Qté"
de la feuille soumission.
Il n'y a qu'une cellule qui a ce format comme cellule : ¡
http://cjoint.com/?AFeaErbmyJk
MichD
--------------------------------------------
"pellet15" a écrit dans le message de groupe de discussion :
On 3 juin, 14:33, "MichD" wrote:
> La formule pour la mise en forme conditionnelle pour une
> cellule qui contient seulement une formule composée
> du symbole "=" ou "+" et une adresse
> comme par exemple : = G25
> La formule est : =MichD_Formule(A1) = 1
> Pour tous les autres types de formules :
> La formule est : =MichD_Formule(A1) = 2
> La fonction personnalisée dans un module standard est :
> '--------------------------------
> Function MichD_Formule(Cellule As Range) As Integer
> Dim Rg As Range
> If Cellule.HasFormula Then
> On Error Resume Next
> Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> If Err = 0 Then
> MichD_Formule = 1
> Else
> Err = 0
> MichD_Formule = 2
> End If
> End If
> End Function
> '--------------------------------
> Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
> et ne sont disponibles et utilisables que dans les formules
> des "NOMS" (Insertion / nom / définir)
> 48 est le paramètre qui énonce que la cellule mentionnée contient
> une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> Cette fonction "Lire.Cellule" contient plus de 60 paramètres différ ents
> de 1 à 60... chacun désignant un type de format possible de la cell ule...
> MichD
> --------------------------------------------
J'ai mis la mise en forme conditionnelle : ca va
mais pour différence les formule mathématique et de référence je ne
comprend pas ...
ou je trouve la fonction personnalisée dans un module standard ??
voici mon fichier...http://cjoint.com/?AFdxvt9rIos
Merci
J'ai appliqué la mise en forme conditionnelle dans la colonne "Qté"
de la feuille soumission.
Il n'y a qu'une cellule qui a ce format comme cellule : ¡
http://cjoint.com/?AFeaErbmyJk
MichD
--------------------------------------------
"pellet15" a écrit dans le message de groupe de discussion :
On 3 juin, 14:33, "MichD" wrote:
> La formule pour la mise en forme conditionnelle pour une
> cellule qui contient seulement une formule composée
> du symbole "=" ou "+" et une adresse
> comme par exemple : = G25
> La formule est : =MichD_Formule(A1) = 1
> Pour tous les autres types de formules :
> La formule est : =MichD_Formule(A1) = 2
> La fonction personnalisée dans un module standard est :
> '--------------------------------
> Function MichD_Formule(Cellule As Range) As Integer
> Dim Rg As Range
> If Cellule.HasFormula Then
> On Error Resume Next
> Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> If Err = 0 Then
> MichD_Formule = 1
> Else
> Err = 0
> MichD_Formule = 2
> End If
> End If
> End Function
> '--------------------------------
> Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
> et ne sont disponibles et utilisables que dans les formules
> des "NOMS" (Insertion / nom / définir)
> 48 est le paramètre qui énonce que la cellule mentionnée contient
> une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> Cette fonction "Lire.Cellule" contient plus de 60 paramètres différents
> de 1 à 60... chacun désignant un type de format possible de la cellule...
> MichD
> --------------------------------------------
J'ai mis la mise en forme conditionnelle : ca va
mais pour différence les formule mathématique et de référence je ne
comprend pas ...
ou je trouve la fonction personnalisée dans un module standard ??
voici mon fichier...http://cjoint.com/?AFdxvt9rIos
Merci
J'ai appliqué la mise en forme conditionnelle dans la colonne "Qté"
de la feuille soumission.
Il n'y a qu'une cellule qui a ce format comme cellule : ¡
http://cjoint.com/?AFeaErbmyJk
MichD
--------------------------------------------
"pellet15" a écrit dans le message de groupe de discussion :
fa102dac-87ef-40a4-a0ce-a5b45fbd2...@j25g2000vbr.googlegroups.com...
On 3 juin, 14:33, "MichD" <michde...@hotmail.com> wrote:
> La formule pour la mise en forme conditionnelle pour une
> cellule qui contient seulement une formule composée
> du symbole "=" ou "+" et une adresse
> comme par exemple : = G25
> La formule est : =MichD_Formule(A1) = 1
> Pour tous les autres types de formules :
> La formule est : =MichD_Formule(A1) = 2
> La fonction personnalisée dans un module standard est :
> '--------------------------------
> Function MichD_Formule(Cellule As Range) As Integer
> Dim Rg As Range
> If Cellule.HasFormula Then
> On Error Resume Next
> Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> If Err = 0 Then
> MichD_Formule = 1
> Else
> Err = 0
> MichD_Formule = 2
> End If
> End If
> End Function
> '--------------------------------
> Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
> et ne sont disponibles et utilisables que dans les formules
> des "NOMS" (Insertion / nom / définir)
> 48 est le paramètre qui énonce que la cellule mentionnée contient
> une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> Cette fonction "Lire.Cellule" contient plus de 60 paramètres différents
> de 1 à 60... chacun désignant un type de format possible de la cellule...
> MichD
> --------------------------------------------
J'ai mis la mise en forme conditionnelle : ca va
mais pour différence les formule mathématique et de référence je ne
comprend pas ...
ou je trouve la fonction personnalisée dans un module standard ??
voici mon fichier...http://cjoint.com/?AFdxvt9rIos
Merci
J'ai appliqué la mise en forme conditionnelle dans la colonne "Qté"
de la feuille soumission.
Il n'y a qu'une cellule qui a ce format comme cellule : ¡
http://cjoint.com/?AFeaErbmyJk
MichD
--------------------------------------------
"pellet15" a écrit dans le message de groupe de discussion :
On 3 juin, 14:33, "MichD" wrote:
> La formule pour la mise en forme conditionnelle pour une
> cellule qui contient seulement une formule composée
> du symbole "=" ou "+" et une adresse
> comme par exemple : = G25
> La formule est : =MichD_Formule(A1) = 1
> Pour tous les autres types de formules :
> La formule est : =MichD_Formule(A1) = 2
> La fonction personnalisée dans un module standard est :
> '--------------------------------
> Function MichD_Formule(Cellule As Range) As Integer
> Dim Rg As Range
> If Cellule.HasFormula Then
> On Error Resume Next
> Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> If Err = 0 Then
> MichD_Formule = 1
> Else
> Err = 0
> MichD_Formule = 2
> End If
> End If
> End Function
> '--------------------------------
> Ce type de formule : =Lire.Cellule(48,A1) émane des macros Xl4
> et ne sont disponibles et utilisables que dans les formules
> des "NOMS" (Insertion / nom / définir)
> 48 est le paramètre qui énonce que la cellule mentionnée contient
> une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> Cette fonction "Lire.Cellule" contient plus de 60 paramètres différents
> de 1 à 60... chacun désignant un type de format possible de la cellule...
> MichD
> --------------------------------------------
J'ai mis la mise en forme conditionnelle : ca va
mais pour différence les formule mathématique et de référence je ne
comprend pas ...
ou je trouve la fonction personnalisée dans un module standard ??
voici mon fichier...http://cjoint.com/?AFdxvt9rIos
Merci
A ) tu dois t l charger le fichier sur ton ordinateur
B ) Dans l'explorateur Windows, tu modifies l'extension du fichier .zip p our .xlsm sans tenter de d zipper le fichier.
C ) Il ne te reste plus qu' ouvrir le fichier.
Regarde les mises en forme conditionnelles dans la colonne Qt .
Il y en a 2. Une pour les formules du type ¡
et une autre pour tous les autres types de formules
MichD
--------------------------------------------
"pellet15" a crit dans le message de groupe de discussion :
On 3 juin, 18:31, "MichD" wrote:
> J'ai appliqu la mise en forme conditionnelle dans la colonne "Qt "
> de la feuille soumission.
> Il n'y a qu'une cellule qui a ce format comme cellule : ¡
>http://cjoint.com/?AFeaErbmyJk
> MichD
> --------------------------------------------
> "pellet15" a crit dans le message de groupe de discussion :
>
> On 3 juin, 14:33, "MichD" wrote:
> > La formule pour la mise en forme conditionnelle pour une
> > cellule qui contient seulement une formule compos e
> > du symbole "=" ou "+" et une adresse
> > comme par exemple : = G25
> > La formule est : =MichD_Formule(A1) = 1
> > Pour tous les autres types de formules :
> > La formule est : =MichD_Formule(A1) = 2
> > La fonction personnalis e dans un module standard est :
> > '--------------------------------
> > Function MichD_Formule(Cellule As Range) As Integer
> > Dim Rg As Range
> > If Cellule.HasFormula Then
> > On Error Resume Next
> > Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> > If Err = 0 Then
> > MichD_Formule = 1
> > Else
> > Err = 0
> > MichD_Formule = 2
> > End If
> > End If
> > End Function
> > '--------------------------------
> > Ce type de formule : =Lire.Cellule(48,A1) mane des macros Xl4
> > et ne sont disponibles et utilisables que dans les formules
> > des "NOMS" (Insertion / nom / d finir)
> > 48 est le param tre qui nonce que la cellule mentionn e contient
> > une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> > Cette fonction "Lire.Cellule" contient plus de 60 param tres diff ren ts
> > de 1 60... chacun d signant un type de format possible de la cellule. ..
> > MichD
> > --------------------------------------------
> J'ai mis la mise en forme conditionnelle : ca va
> mais pour diff rence les formule math matique et de r f rence je ne
> comprend pas ...
> ou je trouve la fonction personnalis e dans un module standard ??
> voici mon fichier...http://cjoint.com/?AFdxvt9rIos
> Merci
Bonjour MichD
Je ne trouve pas de fichier excel dans " ..http://cjoint.com/?
AFdxvt9rIos"http://cjoint.com/?AFeqdHvGHYR
Dans mon ficher, la colonne "Qt " soit jaune (formule math matique)
et colonne "Co t un." en vert (formule de r f rence)
si pas de formule en blanc.
2:
J'ai placer dans VBA Module Function MichD_Formule(Ce...
mais je ne suis pas sur si c'est ok
Merci
A ) tu dois t l charger le fichier sur ton ordinateur
B ) Dans l'explorateur Windows, tu modifies l'extension du fichier .zip p our .xlsm sans tenter de d zipper le fichier.
C ) Il ne te reste plus qu' ouvrir le fichier.
Regarde les mises en forme conditionnelles dans la colonne Qt .
Il y en a 2. Une pour les formules du type =A1
et une autre pour tous les autres types de formules
MichD
--------------------------------------------
"pellet15" a crit dans le message de groupe de discussion :
de1ec788-88b5-4c82-8bd9-4551ff6af...@em7g2000vbb.googlegroups.com...
On 3 juin, 18:31, "MichD" <michde...@hotmail.com> wrote:
> J'ai appliqu la mise en forme conditionnelle dans la colonne "Qt "
> de la feuille soumission.
> Il n'y a qu'une cellule qui a ce format comme cellule : =A1
>http://cjoint.com/?AFeaErbmyJk
> MichD
> --------------------------------------------
> "pellet15" a crit dans le message de groupe de discussion :
> fa102dac-87ef-40a4-a0ce-a5b45fbd2...@j25g2000vbr.googlegroups.com...
> On 3 juin, 14:33, "MichD" <michde...@hotmail.com> wrote:
> > La formule pour la mise en forme conditionnelle pour une
> > cellule qui contient seulement une formule compos e
> > du symbole "=" ou "+" et une adresse
> > comme par exemple : = G25
> > La formule est : =MichD_Formule(A1) = 1
> > Pour tous les autres types de formules :
> > La formule est : =MichD_Formule(A1) = 2
> > La fonction personnalis e dans un module standard est :
> > '--------------------------------
> > Function MichD_Formule(Cellule As Range) As Integer
> > Dim Rg As Range
> > If Cellule.HasFormula Then
> > On Error Resume Next
> > Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> > If Err = 0 Then
> > MichD_Formule = 1
> > Else
> > Err = 0
> > MichD_Formule = 2
> > End If
> > End If
> > End Function
> > '--------------------------------
> > Ce type de formule : =Lire.Cellule(48,A1) mane des macros Xl4
> > et ne sont disponibles et utilisables que dans les formules
> > des "NOMS" (Insertion / nom / d finir)
> > 48 est le param tre qui nonce que la cellule mentionn e contient
> > une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> > Cette fonction "Lire.Cellule" contient plus de 60 param tres diff ren ts
> > de 1 60... chacun d signant un type de format possible de la cellule. ..
> > MichD
> > --------------------------------------------
> J'ai mis la mise en forme conditionnelle : ca va
> mais pour diff rence les formule math matique et de r f rence je ne
> comprend pas ...
> ou je trouve la fonction personnalis e dans un module standard ??
> voici mon fichier...http://cjoint.com/?AFdxvt9rIos
> Merci
Bonjour MichD
Je ne trouve pas de fichier excel dans " ..http://cjoint.com/?
AFdxvt9rIos"http://cjoint.com/?AFeqdHvGHYR
Dans mon ficher, la colonne "Qt " soit jaune (formule math matique)
et colonne "Co t un." en vert (formule de r f rence)
si pas de formule en blanc.
2:
J'ai placer dans VBA Module Function MichD_Formule(Ce...
mais je ne suis pas sur si c'est ok
Merci
A ) tu dois t l charger le fichier sur ton ordinateur
B ) Dans l'explorateur Windows, tu modifies l'extension du fichier .zip p our .xlsm sans tenter de d zipper le fichier.
C ) Il ne te reste plus qu' ouvrir le fichier.
Regarde les mises en forme conditionnelles dans la colonne Qt .
Il y en a 2. Une pour les formules du type ¡
et une autre pour tous les autres types de formules
MichD
--------------------------------------------
"pellet15" a crit dans le message de groupe de discussion :
On 3 juin, 18:31, "MichD" wrote:
> J'ai appliqu la mise en forme conditionnelle dans la colonne "Qt "
> de la feuille soumission.
> Il n'y a qu'une cellule qui a ce format comme cellule : ¡
>http://cjoint.com/?AFeaErbmyJk
> MichD
> --------------------------------------------
> "pellet15" a crit dans le message de groupe de discussion :
>
> On 3 juin, 14:33, "MichD" wrote:
> > La formule pour la mise en forme conditionnelle pour une
> > cellule qui contient seulement une formule compos e
> > du symbole "=" ou "+" et une adresse
> > comme par exemple : = G25
> > La formule est : =MichD_Formule(A1) = 1
> > Pour tous les autres types de formules :
> > La formule est : =MichD_Formule(A1) = 2
> > La fonction personnalis e dans un module standard est :
> > '--------------------------------
> > Function MichD_Formule(Cellule As Range) As Integer
> > Dim Rg As Range
> > If Cellule.HasFormula Then
> > On Error Resume Next
> > Set Rg = Range(Replace(Cellule.Formula, "=", ""))
> > If Err = 0 Then
> > MichD_Formule = 1
> > Else
> > Err = 0
> > MichD_Formule = 2
> > End If
> > End If
> > End Function
> > '--------------------------------
> > Ce type de formule : =Lire.Cellule(48,A1) mane des macros Xl4
> > et ne sont disponibles et utilisables que dans les formules
> > des "NOMS" (Insertion / nom / d finir)
> > 48 est le param tre qui nonce que la cellule mentionn e contient
> > une formule. Si c'est vrai, la formule retourne ou affiche "Vrai"
> > Cette fonction "Lire.Cellule" contient plus de 60 param tres diff ren ts
> > de 1 60... chacun d signant un type de format possible de la cellule. ..
> > MichD
> > --------------------------------------------
> J'ai mis la mise en forme conditionnelle : ca va
> mais pour diff rence les formule math matique et de r f rence je ne
> comprend pas ...
> ou je trouve la fonction personnalis e dans un module standard ??
> voici mon fichier...http://cjoint.com/?AFdxvt9rIos
> Merci
Bonjour MichD
Je ne trouve pas de fichier excel dans " ..http://cjoint.com/?
AFdxvt9rIos"http://cjoint.com/?AFeqdHvGHYR
Dans mon ficher, la colonne "Qt " soit jaune (formule math matique)
et colonne "Co t un." en vert (formule de r f rence)
si pas de formule en blanc.
2:
J'ai placer dans VBA Module Function MichD_Formule(Ce...
mais je ne suis pas sur si c'est ok
Merci
