problème avec des appels 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

cs_Willi · Answer

Utilisation : ChangeFormat "A1",6
J'ai essayer d'appeler la fonction ChangeFormat &#224; partir de la feuille1, feuille2 et 3 et la couleur s'applique bien sur la cellule A1 de la feuille 2 !
Test et tiens moi au courant !
J'ai refait ta fonction ChangeFormat 

Public Sub ChangeFormat(Adr As String, Couleur As Integer)


    Worksheets(2).Select
    Range(Adr).Interior.ColorIndex = Couleur


End Sub


 Si la r&#233;ponse te conviens merci de l'accepter

chris281069 · Answer

d&#233;sol&#233; ca marche pas

pour v&#233;rifier j'ai mis un msgbox apr&#232;s la commande colorindex

Public Sub ChangeFormat(Adr As String, Couleur As Integer)


    Worksheets(2).Select
    Range(Adr).Interior.ColorIndex = Couleur
   MsgBox "param&#232;tres adr= " & Adr & " param&#232;tre couleur= " & Couleur

End Sub

les param&#232;tres sont bien transmis mais il n'y a pas de coloration du fond je pense que c'est un probl&#232;me de la m&#233;thode select et je n'arrive pas &#224; le comprendre 

d&#233;butant

cs_Willi · Answer

dans quel condition as tu essay&#233; ta fonction ??????

car si tu met un bouton sur ta feuil1 et que tu met le code suivant ChangeFormat "A1",6 la cellule A1 de la feuille 2 passe en jaune sa c'est claire

au lieu de mettre des msgbox appuis sur f8 ensuite pour executer en pas &#224; pas
et dans l'editeur vba dans le menu affichage coche fenetre variables locales tu verras mieux ce qui se passe ligne par ligne dans ton code

chris281069 · Answer

Ma fonction 

"Function Classement(NoteEl&#232;ve As Range, NoteMention As Range) As String" 
est inser&#233; dans une cellule feuille2  "b9"=Classement(C7;Feuil3!$C9:$C28)
Cette fonction prend en param&#232;tre une note&#233;l&#232;ve en feuille2 b7 et une notemention en feuille3 Range $C9:$C28 .
le but est de faire la comparaison entre la note&#233;l&#232;ve et la notemention pour modifier la couleur de fond de cette cellule, celle la m&#234;me qui contient la formule. la fonction est donc appel&#233;e &#224; chaque fois que la feuille est recalculer.
 
d&#233;butant

cs_Willi · Answer

ok, j'ai tout compris mais pas simple &#224; reproduire &#224; partir de rien
as-tu la possibilit&#233; de m'envoyer une partie de ton fichier excel (avec des notes et des mentions bidons) ?
si oui contact moi en priv&#233;e

cs_Willi · Answer

Si tu as la solution merci de la faire connaitre

chris281069 · Answer

Non pour l'instant je n'arrive pas &#224; obtenir de r&#233;sultat. Malgr&#232;s le peu de connaissance que j'ai en VBA je reste convaincu qu'il s'agit d'un probl&#232;me de selection (m&#233;thode SELECT) lorsqu'elle est appel&#233;e par une proc&#233;dure.

d&#233;butant

Problème avec des appels de proc

7 réponses

Discussions similaires