probleme fonction SI
Le
formaction
Bonjour
j'aimerai mettre un chiffre 1 dans une cellule si la cellule d'à côté est en
fond bleu , sans chiffre
est-il possible de faire un SI pour résoudre ce problème
merci d'avance
j'aimerai mettre un chiffre 1 dans une cellule si la cellule d'à côté est en
fond bleu , sans chiffre
est-il possible de faire un SI pour résoudre ce problème
merci d'avance
Sans VBA, ce n'est possible que si la couleur bleue de la cellule
dépend d'une mise en forme conditionnelle. Il suffit alors de
reproduire la condition de la mise en forme au sein de la fonction SI.
Ok?
formaction a formulé la demande :
--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")
Une solution en VBA
Range("a1").Select
With Selection.Interior
If Selection.Interior.ColorIndex = 37 Then
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "1"
End If
End With
End Sub
Pascal
"formaction" 4667f1e9$0$5078$
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-0, 07/06/2007
Analyse le : 07/06/2007 14:30:28
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
J'y avais pas pensé. Mais question cela se traduit comment?,
Pascal
"Pierre Fauconnier" message de news:
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-0, 07/06/2007
Analyse le : 07/06/2007 14:35:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
couleur de la cellule...
De quoi dépend le fait que la cellule soit bleue et vide? Si ces états
de la cellule dépendent d'une ou de plusieurs conditions ( et donc sont
gérés par une MFC), alors il est possible d'utiliser cette (ces)
condition(s) dans la cellule adjacente pour y mettre une valeur...
Donc, ma question est: Peux-tu déterminer si les états "bleu" et "vide"
d'une cellule peuvent être déterminés par des conditions?
--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")
Alt+F11 puis Insertion/Module
Function CouleurFond(c)
CouleurFond = c.Interior.ColorIndex
End Function
=SI(couleurFond(A2)4;1;"")
Dans la feuille:
Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [a2:a2]) Is Nothing Then
Calculate
End If
celluleAvant = Target.Address
End Sub
JB
On 7 juin, 13:54, "formaction"