XL 2016 [RESOLU] lancer macro "change" à l'ouverture du fichier

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #2

Bonjour le fil, dupuy.mathias

=>dupuy.mathias
Tu peux essayer en les mettant dans la procédure Activate de la feuille TELEPHONIE
Exemple pour la Combobox1

VB:

Private Sub Worksheet_Activate()
ComboBox1.List = Range([A2], Cells(Rows.Count, 1).End(3)).Value
End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2021

• #3

Bonjour @dupuy.mathias, @Staple1600 ,

Si vous remplacez le mot Private par Public dans les trois procédures Private Sub ComboBox1_Change(), Private Sub ComboBox2_Change(), Private Sub ComboBox3_Change(), ce que vous avez écrit pour Private Sub Workbook_Open() devrait fonctionner...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #4

Re

=>mapomme
Pourquoi le reinit n'est pas immédiat?

VB:

Private Sub Worksheet_Activate()
Dim f As Worksheet: Set f = Sheets("TELEPHONIE")
Application.ScreenUpdating = False
ComboBox1.Value = Null
ComboBox1.List = f.Range(f.[A2], f.Cells(Rows.Count, 1).End(3)).Value
Application.ScreenUpdating = True
End Sub

Idem si j'utilise DeActivate

 

Vote positif 0 Vote négatif

J

juvaxe

XLDnaute Occasionnel

• 21 Février 2021

• #5

Bonjour

1 - Dans le Userform la partie Userform_Initialize n'est-elle pas faite pour remplir le ou les ComboBox à l'ouverture ?

2 - Avant d'ouvrir le Userform, c'est-à-dire de faire le Userform.Show, il est possible d'écrire :

Userform.ComboxBox = .... ; si on a procédé à une telle initialisation il faut écrire le Userform_Initialize en conséquence pour ne pas écraser ce qui a déjà été mis.

Bonne réception

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #6

Bonjour

=>juvaxe
Les ComboBox ne sont pas sur un Userform mais directement sur la feuille OUTIL.

 

Vote positif 0 Vote négatif

J

juvaxe

XLDnaute Occasionnel

• 21 Février 2021

• #7

Pardon. Désolé de ma méprise

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2021

• #8

Staple1600 à dit:

=>mapomme
Pourquoi le reinit n'est pas immédiat?

Cliquez pour agrandir...

Comprends pas la question

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #9

Re

=>mapomme
Je suis sur la feuille OUTIL je le sélectionne une valeur dans la combobox1
Je change d'onglet
Je reviens sur la feuille OUTIL
Normalement je ne devrais pas voir la valeur précédemment sélectionnée non ?
(Et ce que je mette ce bout de code dans Activate ou Deactivate)
ComboBox1.Value = Null
Ce que j'appelle la réinit, se fait bien, mais pas immédiatement.
Suis-je plus clair?

 

Vote positif 0 Vote négatif

D

dupuy.mathias

XLDnaute Nouveau

• 21 Février 2021

• #10

Staple1600 à dit:

Bonjour le fil, dupuy.mathias

=>dupuy.mathias
Tu peux essayer en les mettant dans la procédure Activate de la feuille TELEPHONIE
Exemple pour la Combobox1

VB:

Private Sub Worksheet_Activate()
ComboBox1.List = Range([A2], Cells(Rows.Count, 1).End(3)).Value
End Sub

Cliquez pour agrandir...

Bonjour Staple
J'ai essayé cette solution mais ça n'a pas fonctionné
Il fallait bien mettre ce code dans la feuille TELEPHONIE et adapter pour les autres combobox, n'est ce pas ?
Faut il garder quand même le code suivant dans la feuille OUTIL (pour moi ça fait doublon) ?

VB:

Private Sub ComboBox1_Change()
Dim Plage1 As Range
With Sheets("TELEPHONIE")
Set Plage1 = .Range("A2:A" & .Range("A2000").End(xlUp).Row)
End With
ComboBox1.List = Plage1.Value
End Sub
...

=> mapomme, J'ai essayé ta solution : elle fonctionne

Merci beaucoup à tous les deux ( et aussi à juvaxe ;-) )pour le temps que vous m'avez accordé

A bientôt

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #11

Re

=>dupuy.mathias
Désolé, j'ai fait une erreur de copier/coller
La procédure Activate doit sur la feuille OUTIL
(en clair sur la feuille où sont les ComboBox1)
Donc le code complet serait

VB:

Private Sub Worksheet_Activate()
Dim f As Worksheet: Set f = Sheets("TELEPHONIE")
Application.ScreenUpdating = False
ComboBox1.Value = Null
ComboBox1.List = f.Range(f.[A2], f.Cells(Rows.Count, 1).End(3)).Value
ComboBox2.Value = Null
ComboBox2.List = f.Range(f.[B2], f.Cells(Rows.Count, 2).End(3)).Value
ComboBox3.Value = Null
ComboBox3.List = f.Range(f.[H2], f.Cells(Rows.Count, 8).End(3)).Value
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

D

dupuy.mathias

XLDnaute Nouveau

• 22 Février 2021

• #12

Merci beaucoup pour ce complément d'information

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Février 2021

• #13

Re

De rien pour le complément.
Mais est-ce que tu as testé la proposition du message#11?
Car elle prends moins de place que le code VBA du message#1, non ?

NB: Oui, j'avais oublié de précisé que pour tester, il faut supprimer (ou mettre en commentaire) le code qu'on peut lire dans ton message#1

 

Vote positif 0 Vote négatif