fond de cellule

AV

19/11/2006 à 07:44

si une cellule de la colonne A a un fond jaune pour que dans la colonne H
apparaisse une X

Si tu sais pourquoi la cellule de la colonne A a un fond jaune (condition autre
que l'humeur du jour...), la réponse va devenir évidente...

AV

JB

19/11/2006 à 07:58

Bonjour,

=SI(couleurfond(A2)=6;"x";"")

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans la feuille: (pour maj ou F9 ):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cordialement JB

Bonjour

comment faire
si une cellule de la colonne A a un fond jaune pour que dans la colonne
H apparaisse une X

merci d'avance

daniel

19/11/2006 à 08:06

Bonjour,
dans la suite.... comment obtenir le numéro de la couleur de cette cellule
merci par avance.
"JB" a écrit dans le message de news:

Bonjour,

=SI(couleurfond(A2)=6;"x";"")

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans la feuille: (pour maj ou F9 ):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cordialement JB

Bonjour

comment faire
si une cellule de la colonne A a un fond jaune pour que dans la colonne
H apparaisse une X

merci d'avance

JB

19/11/2006 à 08:08

On suppose que la couleur de fond n'est pas le résultat d'une MFC:

http://cjoint.com/?ltihVYijIi

JB

Bonjour

comment faire
si une cellule de la colonne A a un fond jaune pour que dans la colonne
H apparaisse une X

merci d'avance

JB

19/11/2006 à 08:15

Bonjour,

Si j'ai bien compris la question:

=Couleurfond(A2)

Ici, on compare la couleur de A2 à une couleur témoin en F2:

=SI(couleurfond(A2)=couleurfond($F$2);"x";"")

http://cjoint.com/?ltio6FMVGV

Cordialement JB

Bonjour,
dans la suite.... comment obtenir le numéro de la couleur de cette cell ule
merci par avance.
"JB" a écrit dans le message de news:

Bonjour,

=SI(couleurfond(A2)=6;"x";"")

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans la feuille: (pour maj ou F9 ):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cordialement JB

Bonjour

comment faire
si une cellule de la colonne A a un fond jaune pour que dans la colonne
H apparaisse une X

merci d'avance

andrea

19/11/2006 à 08:17

Impec

merci

daniel a écrit:

Bonjour,
dans la suite.... comment obtenir le numéro de la couleur de cette cellule
merci par avance.
"JB" a écrit dans le message de news:

Bonjour,

=SI(couleurfond(A2)=6;"x";"")

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans la feuille: (pour maj ou F9 ):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cordialement JB

Bonjour

comment faire
si une cellule de la colonne A a un fond jaune pour que dans la colonne
H apparaisse une X

merci d'avance

AV

19/11/2006 à 08:49

Sais-tu vraiment ce qu'implique le code suivant dans le module d'une feuille ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Hum....
AV

andrea

19/11/2006 à 09:24

personnellement non
je suis juste capable de faire des macros en enregistrement
et de modifier un petit peu

AV a écrit:

Sais-tu vraiment ce qu'implique le code suivant dans le module d'une feuille ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Hum....
AV

JB

19/11/2006 à 10:05

Pour limiter le recalcul à la colonne A:

Dim mémocol
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If mémocol=1 Then
Calculate
End If
mémocol = Target.Column
End Sub

http://cjoint.com/?ltkdq5VV0B

-Si tu utilises le pinceau pour colorier, cette séquence n'est pas
nécessaire pour la maj immédiate de la fonction.

JB

Impec

merci

daniel a écrit:

Bonjour,
dans la suite.... comment obtenir le numéro de la couleur de cette ce llule
merci par avance.
"JB" a écrit dans le message de news:

Bonjour,

=SI(couleurfond(A2)=6;"x";"")

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans un module (Alt+F11 puis insertion/module)

Function couleurFond(c)
Application.Volatile
couleurFond = c.Interior.ColorIndex
End Function

Dans la feuille: (pour maj ou F9 ):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cordialement JB

Bonjour

comment faire
si une cellule de la colonne A a un fond jaune pour que dans la colonne
H apparaisse une X

merci d'avance

fond de cellule

9 réponses

Veuillez sélectionner un problème