problème appel de proc

Question

Bonjour,

voil&#224;  lorsque j'appelle la proc changeformat () avec un "call changeformat ("a1",6)" a partir de la fenetre d'execution du VBA editor la cellule a1 prend la couleur de fond colorindex 6 donc jusqu'ici tout va bien .....
Mon probl&#232;me est le suivant lorsque cette appel est effectu&#233; &#224; partir d'une fonction ou d'une autre procedure du module CA MARCHE PLUS !!!

SVP quelqu'un peut-il m'aider car c'est mon premier module en VBA et la je bloque compl&#232;tement
Merci
merci
chris un d&#233;butant

ci dessous la copie de l'ensemble de mon module vba avec les differentes proc&#233;dures et functions

Public Adresse As String
Public IndexCouleur As Integer


Function mention(NoteEl&#232;ve As Range, NoteMention As Range) As String
For Each Cell In NoteMention
    If Cell = Int(NoteEl&#232;ve) Then
    mention = Cell.Offset(0, 1).Value
    End If
Next Cell
End Function


Function Classement(NoteEl&#232;ve As Range, NoteMention As Range) As String
For Each Cell In NoteMention
If Cell = Int(NoteEl&#232;ve) Then
    IndexCouleur = Cell.Offset(0, 2).Interior.ColorIndex
    Adresse = Adr()
End If
Next Cell
Classement = ""
Call ChangeFormat(Adresse, IndexCouleur)
End Function


Function Adr()
        Adr = Application.ThisCell.Address
End Function


Sub ChangeFormat(Adr As String, Couleur As Integer)
Dim Cellule As Range
 For Each Cellule In Range(Adr)
  Worksheets("Feuil2").Activate
  Worksheets("Feuil2").Select
  Cellule.Select
  Selection.Interior.ColorIndex = Couleur
 Next Cellule
End Sub

Chris un d&#233;butant

d&#233;butant

BasicInstinct · Answer

Sub ChangeFormat(Adr As String, Couleur As Integer)
Dim Cellule As Range
 For Each Cellule In Worksheets("Feuil2").Range(Adr)
  Worksheets("Feuil2").Activate
  Worksheets("Feuil2").Select
  Cellule.Select
  Selection.Interior.ColorIndex = Couleur
 Next Cellule
End Sub

 BasicInstinct

chris281069 · Answer

Merci mais ca marche toujours pas! apparement les cellules ne sont pas selectionnees

d&#233;butant

BasicInstinct · Answer

'essaie comme ca 

Sub ChangeFormat(Adr As String, Couleur As Integer)

  Worksheets("Feuil2").Select
 


  ActiveSheet.Range(adr).Interior.ColorIndex = couleur
end sub

 BasicInstinct

micmerle · Answer

Bonjour,
C'est vieux et j'esp&#232;re q c'est OK maintenant. Au cas o&#249;: changer une cellule (m&#234;me son format je pense) &#224; parttir d'une fonction est dangereux (au mieux, Excel marche de tps en tps, au pire il plante).
Si tu as ce genre de probl&#232;me la seule solution est d'appeler la macro de mani&#232;re asynchrone dans ta fonction. Pour faire ca, VBA donne la proc&#233;dure Application.onTime sinon faudra faire une dll (sais pas trop comment mais c'est probab le mieux).
Michael
PS: je regardais ce forum, car cherche &#224; catcher les &#233;v&#233;nements de changement de valeur dans une cellule pour la colorier en fonction de sa valeur. Si tu as une id&#233;e merci d'avance.

chris281069 · Answer

Envoie moi ton email je te transmets un .xls qui devrait approcher de la solution.

A+
Christophe

d&#233;butant

micmerle · Answer

Merci beaucoup et bon we![mailto:mmerlange@yahoo.com 
mmerlange@yahoo.com]

Problème appel de proc

6 réponses

Discussions similaires