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?

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

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