OVH Cloud OVH Cloud

fonction vba propriété d'une cellule

1 réponse
Avatar
LaC
Bonjour,

Je pose la question car je ne trouve pas comment faire et apparement ce
n'est pas possible :

Comment peut on modifier les propriétes (couleur, bordure....) d'une cellule
à partir d'une fonction VBA appliqué a cette propre cellule ?
Exemple :

Dans mon classeur la cellule A1 à pour valeur ma fonction VBA fx =
ChangeCouleur(3)
La fonction ChangeCouleur() à la forme :
function ChangeCouleur (couleur as integer)
with activecell.interior
.colorindex = couleur
end with
ChangeCouleur = couleur
end function

Ca ne marche pas !

Merci de m'expliquer pourquoi une fonction appliquer à une cellule ne peut
pas modifier les propriétés de cette cellule...

1 réponse

Avatar
MichDenis
Ben, une fonction retourne UNE VALEUR qui peut être
A ) une chaîne de caractère
B ) une valeur boléenne (vrai ou faux)
C ) un chiffre (nombre)
D ) une valeur d'erreur
E ) un tableau()

Une FONCTION n'a aucune incidence sur le format des cellules.
Une fonction ne peut pas afficher le résultat dans une autre
cellule que la cellule où est écrite la fonction.

Et la caractéristique d'une fonction personnalisée est que tu
retrouve ce type de ligne de code :
LeNomDeLaFonction = RésultatObtenuDesOpérationsContenuDansLaFonction

Une PROCÉDURE (macro) est l'équivalent d'une suite de commandes
des barres d'outils de la feuille de calcul que l'usager peut effecteur
pour modifier le contenu, le format des cellules, afficher ou masquer des colonnes,
ouvrir, enregistrer et sauvegarder un fichier, copier-coller ... etc.




"LaC" a écrit dans le message de news:
%
Bonjour,

Je pose la question car je ne trouve pas comment faire et apparement ce
n'est pas possible :

Comment peut on modifier les propriétes (couleur, bordure....) d'une cellule
à partir d'une fonction VBA appliqué a cette propre cellule ?
Exemple :

Dans mon classeur la cellule A1 à pour valeur ma fonction VBA fx ChangeCouleur(3)
La fonction ChangeCouleur() à la forme :
function ChangeCouleur (couleur as integer)
with activecell.interior
.colorindex = couleur
end with
ChangeCouleur = couleur
end function

Ca ne marche pas !

Merci de m'expliquer pourquoi une fonction appliquer à une cellule ne peut
pas modifier les propriétés de cette cellule...