VBA:Comment passer une variable dans une fonction private sub

Résolu
mod77 Messages postés 1284 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 26 mai 2025 - 31 oct. 2012 à 15:35
mod77 Messages postés 1284 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 26 mai 2025 -
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


2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 juillet 2025 1 713
31 oct. 2012 à 16:42
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+
1
Réponse 2 / 2
mod77 Messages postés 1284 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 26 mai 2025 53
Modifié par mod77 le 1/11/2012 à 12:31
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!
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse