Probleme #VALEUR lors du coloriage d'une cellule

Voici ma macro, qui fonctoinne très bien sauf lorsque j'ai rajouté le coloriage d'une cellule, la macro na plus marché et affiche #VALEUR. Lorsque je met en comentaire la ligne ou je colore la cellule, la macro remarche.

Code:

---

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 31 32 33 34 35

Function aurore(ByVal Nombre_de_chiffre As Integer, ByVal Numero_du_compte As String)   Dim test As String Dim j As Integer Dim i As Integer Dim somme As Long Dim numColonne As Integer somme = 0   For j = 1 To 20   If Worksheets(2).Cells(1, j).Value = "SOLDE" Then numColonne = j End If   Next   For i = 1 To 200   test = Mid(Worksheets(2).Cells(i, 1).Value, 1, Nombre_de_chiffre)   If test = Numero_du_compte Then somme = somme + Worksheets(2).Cells(i, numColonne).Value End If   If test = Numero_du_compte Then Worksheets(2).Cells(i, numColonne).Interior.Color = RGB(200, 200, 200) End If   Next   resultat = somme aurore = resultat   End Function

---

D'ou ma question, qqn peut il me dire pkoi cette ligne
Worksheets(2).Cells(i, numColonne).Interior.Color = RGB(200, 200, 200)
ait -elle planté toute ma macro.
Merci

Chez moi ça fonctionne.
Est ce que par hasard ta feuille ne serait pas protégée ?

Non, mais le coloriage marche, c'est juste qu'il fait planter le reste de la macro.
Si je met pas la ligne pour colorier, la marco marche, si je la met, elle colorie les bonne cellule mais le calcul a effectuer ne marche plus. C'est très bizarre.

J'ai toujours pas trouvé, sa n'a vraiment aucun sens que sa ne marche pas.
:aie:

Bonjour

As-tu quelque chose qui pourrait interférer sur l'évènement Change de la feuille , Où une mise en forme conditionnelle ?

Starec

Bonjour Starec,
Qu'entend tu exactement par cela?

Re

Citation:

---

Envoyé par Djaiffe

Bonjour Starec,
Qu'entend tu exactement par cela?

---

Ce que j'entends par là, c'est un code qui pourrait contrecarrer ton changement de couleur.

Ex : Tu as une Mise en forme conditionnelle qui change la couleur au changement d'une valeur, et en même temps tu changes la couleur d'une autre manière.

En fait c'est juste une idée qui m'est passée par la tête.

Starec

Ok je vois.
Et bien je n'ai rien de tout sa, c le seul endroit dans ma macro ou je cahnge la couleur d'une cellule. Et je n'ai qu'une seule macro sur ce fichier.
Le pire c que le code avec juste le cahngement de couleur fonctionne.
Cest la combinaison du calcul et du changement de couleur qui renvoie #valeur.

Deux suggestions peut être un peu bête mais .....
1. Remplacer tes deux conditions par une seule:

Code:

---

1 2 3 4 5

If test = Numero_du_compte Then somme = somme + Worksheets(2).Cells(i, numColonne).Value Worksheets(2).Cells(i, numColonne).Interior.Color = RGB(200, 200, 200) End If

---

2. Tester avec une couleur connue en constante

Code:

---

1 2 3 4 5

If test = Numero_du_compte Then somme = somme + Worksheets(2).Cells(i, numColonne).Value Worksheets(2).Cells(i, numColonne).Interior.Color = vbBlue End If

---

Je sais ça semble idiot mais là je ne comprend vraiment pas d'où peut venir le pb

Toujours pareil, les cellules sont bien coloriés en bleues mais le calcule ne marche. Si je met la ligne du code ou s'effectue le coloriage en commentaire, le calcul marche.

Comme ceci

Code:

---

1 2 3 4 5

If test = Numero_du_compte Then somme = somme + Worksheets(2).Cells(i, numColonne).Value 'Worksheets(2).Cells(i, numColonne).Interior.Color = vbBlue End If

---

Tu peux nous expliquer comment tu appel cette fonction ? par le code ou en dur dans une fonction Excel dans ta feuille et dans ce cas la cellule sur laquelle tu applique ta mis en forme contient'elle cette fonction ?

j'suis pas certain d'avoir été limpide...

Ma fonction se trouve dans le module du calsseur personnel qui permet d'appeler des marco a partir de tous les documents.
Pour l'utiliser on se positionne sur une cellule on click sur Fx, on va dans fonction personnalisé et on choisi la fonction. On rempli les parametre et go.

Code:

---

1 2 3 4

If Worksheets(2).Cells(1, j).Value = "SOLDE" Then numColonne = j End If

---

Et quand la cellule Worksheets(2).Cells(1, j) est différente de "SOLDE"... numcolonne=0
et donc

Code:

---

Worksheets(2).Cells(i, numColonne).Value

---

avec un nméro de collone =0 ça se plante....

il y a peut être autre chose mais il y a au moins déjà ça

j'ai remplacé numColonne par 7 et j'ai toujours le meme probleme :(
Dommage , ji croyais ...

Code:

---

1 2 3 4

If test = Numero_du_compte Then somme = somme + Worksheets(2).Cells(i, 7).Value Worksheets(2).Cells(i, 7).Interior.Color = vbBlue End If

---

Ouai moi aussi j'y croyais... Il n'en reste pas moins que ce pb existe mais que cela ne résoud pas ton problème...:(

Je continue à chercher...

Question subsidiaire:

A quoi sert la variable resultat qui d'ailleur n'est pas définie:

Code:

---

1 2 3

resultat = somme aurore = resultat

---

Pourquoi ne pas faire directement:

Code:

---

aurore = somme

---

On test, on test .....:)

Bonjour,

Citation:

---

Pour l'utiliser on se positionne sur une cellule on click sur Fx, on va dans fonction personnalisé et on choisi la fonction. On rempli les parametre et go.

---

Une fonction appelée depuis une feuille de calcul ne peut que renvoyer une valeur à cette cellule, elle ne peut en aucun cas modifier le format d'une cellule.

Pour ce qui concerne #Valeur, le probleme peut survenir si la feuille 2 n'existe pas ou si cette feuille n'est pas une feuille de calcul.

Cordialement,

Tirex28/

Bon ben voilà je crois qu'on est d'accord on ne peut pas modifier un format dans une fonction.... Merci Tirex28 de confimer ce que je pensais

J-M c'est pire que ça en fait "somme" en sert à rien pas plus que "resultat" puisqu'en fait c'est la fonction Aurore elle même...

démonstration:

Code:

---

1 2 3 4 5 6 7 8

For I = 1 To 200 test = Mid(Worksheets(2).Cells(I, 1).Value, 1, Nombre_de_chiffre) If test = Numero_du_compte Then Aurore = Aurore + Worksheets(2).Cells(I, NumColonne).Value Worksheets(2).Cells(I, NumColonne).Interior.Color = RGB(200, 200, 200) Selection.Interior.Color = RGB(200, 200, 200) End If Next I

---

ça fait la même chose...

Moi aussi, et je n'ai toujours pas trouvé.

Citation:

---

Envoyé par Djaiffe

Moi aussi, et je n'ai toujours pas trouvé.

---

Je crois qu'il n'y a plus rien à trouver sur ce sujet. C'est juste infaisable de cette façon.:aie:

Par contre si tu nous explique quel est ton objectif, alors nous pourrons peut-être envisager d'autres solutions.:king:

voili, voilà.
:salut: