VBA:Comment passer une variable dans une fonction private sub Résolu/Fermé

Question

Bonjour, 

J'ai créé une variable globale "ClasseChoisie" pour l'ensemble de mon classeur.
En feuil1, j'ai créé une ComboBox dont je récupère l'index du choix dans "ClasseChoisie".

En feuil2, j'ai créé une autre ComboBox et dans sa fonction change ci dessous:

Private Sub ComboBox1_Change()
Dim Choix As Variant

    Choix = ComboBox1.ListIndex
                     
    Select Case Choix
        Case 0
            ActiveWindow.ScrollRow = 4
        Case 1
            ActiveWindow.ScrollRow = 8
    End Select
End

Je souhaite qu'à l'ouverture de la feuil2 grâce a la fonction ComboBox1 ci dessous:

Private Sub Worksheet_Activate()
                        'Afficher la classe choisie
    ComboBox1_Change() = ClasseChoisie
End Sub

que la variable "choix" prenne la valeur de la variable globale "ClasseChoisie".

Quelqu'un peut-il m'indiquer comment faire SVP, ?

Merci

Configuration: Windows XP 2002 SP3
Excel 2002

f894009 · Answer

Bonjour,

worksheet 2:

Private Sub Worksheet_Activate()
     'Afficher la classe choisie
     ComboBox1= ClasseChoisie
End Sub 

Pourquoi prendre une combobox si vous affectez par defaut un choix????

A+

mod77 · Answer

Bonjour f894009, 

Je vous remercie pour votre aide. 

Le problème que j'avais était que lorsque j'ouvrais la feuil1 de mon application les info des 2 ComboBox n'étaient pas prises en compte je devais faire un premier changement pour revenir à la sélection que je voulais.  
Et comme chaque fois que j'allais en feuil2, je voulais récupérer les valeurs choisies en feuil1 (dans les ComboBox)  cela ne fonctionnait pas. Ca m'a obligé à recréer 2 autres ComboBox en feuil2. 

Finalement, j'ai compris qu'il fallait affecter les ComboBox à l'ouverture des feuil1 et feuil2 comme vous me le proposez.

Je vous remercie, je garde la méthode. 

Savoir dire NON est un devoir et une force! N'ayez pas peur! L'union fait la force! 

Passez en résolu si ça l'est!

VBA:Comment passer une variable dans une fonction private sub

2 réponses

Discussions similaires