Discussion :

[Alain_Maio]

Bonjour,

Dans le script suivant, la fonction va systématiquement au message d'erreur, dès que j'essaye de modifier une variable d'une cellule !
Pourquoi ?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function Mod_Couleur(C, R, G, B)
Dim Lieu As Range 'C
Dim Rouge As Integer 'R
Dim Vert As Integer 'G
Dim Bleu As Integer 'B
Dim Feuille As Excel.Worksheet
 
 
On Error GoTo fin
 
Rouge = R.Value
Vert = G.Value
Bleu = B.Value
Couleur = RGB(Rouge, Vert, Bleu)
Nom_de_la_feuille = C.Worksheet.Name
 
Ligne = C.Row
Colonne = C.Column
Set Lieu = Worksheets(Nom_de_la_feuille).Cells(Ligne, Colonne)
 
'à partir d'ici, on est en erreur !!
 
Lieu.Value = Couleur
Lieu.Interior.Color = Couleur
Mod_Couleur = "OK"
Exit Function
fin:
Mod_Couleur = ""
'
End Function

[Philippe Tulliez]

Bonjour,
Pourquoi placer un On Error à cet endroit là ?
Pour connaître la raison du problème, il suffit de mettre la ligne 9 en commentaire et le message d'erreur renvoyé par VBA sera suffisamment explicite et la ligne où a lieu l'erreur sera mise en évidence en jaune.

[Alain_Maio]

Bonjour Philippe,

Merci pour le conseil ! que j'avais déjà utilisé.
Je n'ai aucun message d'erreur et la fonction passe allègrement dessus !
Y aurait'il une option qui empêcherait la modification des cellules ?
J'ai regardé les différentes protections des cellules que j'ai systématiquement enlevées !
La feuille n'est pas protégée !
J'ai une routine équivalente dans la feuille en question et qui marche ! J'utilise ici le nom de certaines cellules !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub worksheet_change(ByVal target As Range)
Range("Couleur_résultante").Interior.Color = RGB(Range("Rouge").Value, Range("Vert").Value, Range("Bleu").Value)
End Sub

[Alain_Maio]

Re-bonjour Philippe,

L'écran me donne juste ceci ...


Merci

[Menhir]

Les Function ne sont pas faites pour réaliser des actions mais uniquement pour renvoyer des valeurs.

Essaye de mettre en commentaire les lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Lieu.Value = Couleur
Lieu.Interior.Color = Couleur

Il serait aussi judicieux de mettre le type de données de tes paramètres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function Mod_Couleur(C As Range, R As Range, G As Range, B As Range) As String

Et je suis entièrement d'accord avec Philippe Tulliez ( ) : mettre un On Error Goto global sur un code, c'est caca-pas beau.
C'est le genre de chose qui ne devrait s'utiliser qu'avec parcimonie et sur des zones ciblées et limités du code.

[Alain_Maio]

Bonjour Menhir,

Merci pour ton intervention.
Je suis d'accord sur le principe de ne pas utiliser abusivement du On Error Goto. C'était le seul moyen pour moi de trouver où le problème résidait.
J'ai mis effectivement les lignes qui me posent problème en commentaires et la fonction travaille bien mais mon objet c'est de modifier la couleur du fonds d'une cellule !
Comment puis-je y arriver ?
J'utilise cette manière de faire dans la feuille comme précédemment décrite et cela marche !

Merci

[Alain_Maio]

Merci dysorthographie,

C'est parce que je n'avais pas de message d'erreur que j'ai cherché à trouver là où cela pêchait !
J'ai compris qu'il n'y avait pas de possibilité de modifier d'autres cellules que celle par laquelle on fait appel à la fonction comme me l'explique très bien Philippe.
J'ai donc contourné le problème en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

worksheet_change

.

--

Merci Philippe,

Je connais maintenant les limites de l'utilisation de modification des cellules.
J'ai contourné le problème en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

worksheet_change

.

Merci encore

[Invité]

Bonsoir,

Personnellement,pour les novices, je préconise de n jamais utiliser on error
Un message d'erreur est préférable à un fonctionnement erratique!

Dans d'autre langages on appel ça de exceptions,il faut que ça reste exceptionnel,voir jamais si on ne sais pas les gérer!