VBA function

Le
DouDou
Bonjour à tous,

J'essaie de faire une fonction en VBA pour récupérer le numéro d'index de la
palette. Exemple en "A1" le fond est rouge et en "A2" ma fonction est
palette(A1) qui renvoie 10. Cela marche sauf si je mets une autre couleur,
la fonction ne se recalcule pas et reste à 10, je suis obligé de faire
F2+entrée pour actualiser la cellule.

Voici le code de ma fonction :

Function Palette(ByRef cellule As Variant)
Palette = cellule.Interior.ColorIndex
End Function
Merci de votre aide

DouDou
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 #18063881
Bonjour,

Function Palette(ByRef cellule As Variant)
Application.Volatile
Palette = cellule.Interior.ColorIndex
End Function

Appuyer sur F9

ou recalcul sur déplacement du curseur.

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

JB


On 6 déc, 17:35, "DouDou"
Bonjour à tous,

J'essaie de faire une fonction en VBA pour récupérer le numéro d'in dex de la
palette. Exemple en "A1" le fond est rouge et en "A2" ma fonction est
palette(A1) qui renvoie 10. Cela marche sauf si je mets une autre couleur ,
la fonction ne se recalcule pas et reste à 10, je suis obligé de fair e
F2+entrée pour actualiser la cellule.

Voici le code de ma fonction :

Function Palette(ByRef cellule As Variant)
Palette = cellule.Interior.ColorIndex
End Function
Merci de votre aide

DouDou


isabelle
Le #18064061
bonjour Doudou,

mets cette macro sur la page code de la feuille,

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

apres le changement de couleur appuis sur "Enter" pour provoquer le
recalcul de cette feuille,

isabelle

DouDou a écrit :
Bonjour à tous,

J'essaie de faire une fonction en VBA pour récupérer le numéro d'index de la
palette. Exemple en "A1" le fond est rouge et en "A2" ma fonction est
palette(A1) qui renvoie 10. Cela marche sauf si je mets une autre couleur,
la fonction ne se recalcule pas et reste à 10, je suis obligé de faire
F2+entrée pour actualiser la cellule.

Voici le code de ma fonction :

Function Palette(ByRef cellule As Variant)
Palette = cellule.Interior.ColorIndex
End Function
Merci de votre aide

DouDou





DouDou
Le #18064031
Bonsoir;

Merci, c'est ce qui me fallait il faut faire F9 avec la premère solution et
cela me va bien.

cdlt
"JB"
Bonjour,

Function Palette(ByRef cellule As Variant)
Application.Volatile
Palette = cellule.Interior.ColorIndex
End Function

Appuyer sur F9

ou recalcul sur déplacement du curseur.

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

JB


On 6 déc, 17:35, "DouDou"
Bonjour à tous,

J'essaie de faire une fonction en VBA pour récupérer le numéro d'index de
la
palette. Exemple en "A1" le fond est rouge et en "A2" ma fonction est
palette(A1) qui renvoie 10. Cela marche sauf si je mets une autre couleur,
la fonction ne se recalcule pas et reste à 10, je suis obligé de faire
F2+entrée pour actualiser la cellule.

Voici le code de ma fonction :

Function Palette(ByRef cellule As Variant)
Palette = cellule.Interior.ColorIndex
End Function
Merci de votre aide

DouDou


DouDou
Le #18064171
Bonsoir Isabelle,

Merci JB m'avait donné cette solution également, je viens de le faire et ça
marche bien.
Cdlt

"isabelle" a écrit dans le message de news:

bonjour Doudou,

mets cette macro sur la page code de la feuille,

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

apres le changement de couleur appuis sur "Enter" pour provoquer le
recalcul de cette feuille,

isabelle

DouDou a écrit :
Bonjour à tous,

J'essaie de faire une fonction en VBA pour récupérer le numéro d'index de
la palette. Exemple en "A1" le fond est rouge et en "A2" ma fonction est
palette(A1) qui renvoie 10. Cela marche sauf si je mets une autre
couleur, la fonction ne se recalcule pas et reste à 10, je suis obligé de
faire F2+entrée pour actualiser la cellule.

Voici le code de ma fonction :

Function Palette(ByRef cellule As Variant)
Palette = cellule.Interior.ColorIndex
End Function
Merci de votre aide

DouDou






DouDou
Le #18069331
Bonjour,

Petite question pratique :
j'ai utilisé Outlook express pour la première fois pour poser ma question,
comment indiquer comme sur internet que l'on a eu la réponse qui nous
fallait => Cet article vous a-t-il été utile ? Oui ou Non

Merci d'avance

DouDou

"isabelle" a écrit dans le message de news:

bonjour Doudou,

mets cette macro sur la page code de la feuille,

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

apres le changement de couleur appuis sur "Enter" pour provoquer le
recalcul de cette feuille,

isabelle

DouDou a écrit :
Bonjour à tous,

J'essaie de faire une fonction en VBA pour récupérer le numéro d'index de
la palette. Exemple en "A1" le fond est rouge et en "A2" ma fonction est
palette(A1) qui renvoie 10. Cela marche sauf si je mets une autre
couleur, la fonction ne se recalcule pas et reste à 10, je suis obligé de
faire F2+entrée pour actualiser la cellule.

Voici le code de ma fonction :

Function Palette(ByRef cellule As Variant)
Palette = cellule.Interior.ColorIndex
End Function
Merci de votre aide

DouDou






Modeste
Le #18069891
Bonsour® DouDou avec ferveur ;o))) vous nous disiez :

Petite question pratique :
j'ai utilisé Outlook express pour la première fois pour poser ma
question, comment indiquer comme sur internet que l'on a eu la
réponse qui nous fallait => Cet article vous a-t-il été utile ? Oui
ou Non



rester dans le fil, et simplement de maniere conviviale,
remercier ou non les contributeurs t'ayant répondu
pour bien montrer que tu n'as pas eu affaire à des robots ...

;o)))
@+
milloche
Le #18070641
Salut Doudou dis donc

A ma connaissance, c'est pas possible ici, ou j'attend qu'on me contredise.
Fait comme moi, pour ta dernière réponse, ajoute sur la ligne objet à la fin
"résolu, merci tous"

"Modeste"
Bonsour® DouDou avec ferveur ;o))) vous nous disiez :

Petite question pratique :
j'ai utilisé Outlook express pour la première fois pour poser ma
question, comment indiquer comme sur internet que l'on a eu la
réponse qui nous fallait => Cet article vous a-t-il été utile ? Oui
ou Non



rester dans le fil, et simplement de maniere conviviale,
remercier ou non les contributeurs t'ayant répondu
pour bien montrer que tu n'as pas eu affaire à des robots ...

;o)))
@+
DouDou
Le #18071601
Bonjour,

bien reçu et merci à tous.

A +

(°<>°)


"milloche" %
Salut Doudou dis donc

A ma connaissance, c'est pas possible ici, ou j'attend qu'on me
contredise.
Fait comme moi, pour ta dernière réponse, ajoute sur la ligne objet à la
fin "résolu, merci tous"

"Modeste"
Bonsour® DouDou avec ferveur ;o))) vous nous disiez :

Petite question pratique :
j'ai utilisé Outlook express pour la première fois pour poser ma
question, comment indiquer comme sur internet que l'on a eu la
réponse qui nous fallait => Cet article vous a-t-il été utile ? Oui
ou Non



rester dans le fil, et simplement de maniere conviviale,
remercier ou non les contributeurs t'ayant répondu
pour bien montrer que tu n'as pas eu affaire à des robots ...

;o)))
@+





milloche
Le #18072001
DouDouDisDon
Là c'est peut-être un peu trop
Mais première fois que je vois ces smileys.
Je note, y a pas de copyright.
Joyeux Noël.

"DouDou" uT5k%
Bonjour,

bien reçu et merci à tous.

A +

(°<>°)


"milloche" %
Salut Doudou dis donc

A ma connaissance, c'est pas possible ici, ou j'attend qu'on me
contredise.
Fait comme moi, pour ta dernière réponse, ajoute sur la ligne objet à la
fin "résolu, merci tous"

"Modeste"
Bonsour® DouDou avec ferveur ;o))) vous nous disiez :

Petite question pratique :
j'ai utilisé Outlook express pour la première fois pour poser ma
question, comment indiquer comme sur internet que l'on a eu la
réponse qui nous fallait => Cet article vous a-t-il été utile ? Oui
ou Non



rester dans le fil, et simplement de maniere conviviale,
remercier ou non les contributeurs t'ayant répondu
pour bien montrer que tu n'as pas eu affaire à des robots ...

;o)))
@+









Publicité
Poster une réponse
Anonyme