VBA:Comment passer une variable dans une fonction private sub
Résolu
mod77
Messages postés
1284
Date d'inscription
Statut
Membre
Dernière intervention
-
mod77 Messages postés 1284 Date d'inscription Statut Membre Dernière intervention -
mod77 Messages postés 1284 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- VBA:Comment passer une variable dans une fonction private sub
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
2 réponses
Bonjour,
worksheet 2:
Pourquoi prendre une combobox si vous affectez par defaut un choix????
A+
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+
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!
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!