Discussion :

[Djaiffe]

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 :

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
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

[J.Michel]

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

[Djaiffe]

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.

[Djaiffe]

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

[Invité]

Bonjour

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

Starec

[Djaiffe]

Bonjour Starec,
Qu'entend tu exactement par cela?

[Invité]

Re

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

[Djaiffe]

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.

[J.Michel]

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

Code :

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

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 :

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

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

[Djaiffe]

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 :

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

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

[ilcocodrillo]

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...

[Djaiffe]

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.

[ilcocodrillo]

Code :

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

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 :

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

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

[Djaiffe]

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

Code :

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

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

[ilcocodrillo]

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...

[J.Michel]

Question subsidiaire:

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

Code :

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

1
2
3
 
resultat = somme
aurore = resultat

Pourquoi ne pas faire directement:

Code :

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

aurore = somme

On test, on test .....

[tirex28]

Bonjour,

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/

[ilcocodrillo]

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 :

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

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...

[Djaiffe]

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

[ilcocodrillo]

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.

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

voili, voilà.