Discussion :

[malycyous]

Bonjour à tous et toutes,

J'espère que vous allez bien et je vous remercie déjà d'être sur ce post.

J'ai commencé la création il y a quelques mois d'un programme dans le cadre de mon travail et pour faire gagner du temps à mon équipe.

L'objectif ici du programme est de faciliter la prospection téléphonique grâce à une base excel modifiable sur un formulaire et traité sur VBA.

Je suis plutôt novice dans le domaine du code VBA donc j'ai un peu de mal à voir les solutions rapidement mais j'essaye au fur et à mesure du temps de m'exercer.

En tout cas, venons en au fait ( ). Je vous rappel simplement le contexte de mon problème :
- Je filtre mes données par un filtre classique géré en USERFORM6
- Dans mon formulaire de modification, ma ComboBox1 vient dans un fonctionnement normal reprendre uniquement les lignes visibles et me permet de charger les données dans mon formulaire.
==> Mon problème est que si je viens "annuler" ou "refaire" un filtrage de mes données, ma combobox1 ne rafraichit pas son contenu et me propose toujours l'ancienne liste.

J'ai actuellement le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
 
  ComboBox1.Clear
 
  Dim Societe As Variant
  Dim Plage As Range
 
  With ThisWorkbook.Worksheets("annuaire")
    Set Plage = .Range("A4:A" & .Range("A65536").End(xlUp).Row)
    Set Plage = Plage.SpecialCells(xlCellTypeVisible)
  End With
 
  For Each Societe In Plage
    ComboBox1.AddItem Societe
  Next Societe
 
End Sub

Qui ne rafraichit pas la combobox1.

Pour ceux qui pourraient ou souhaiteraient me filer un petit coup de main ;p je vous invite pour plus de clareté à regarder le fichier excel fournit (je n'ai rien à cacher tout le monde peu le refaire et on est dans le partage je pense...) -- Voir PJ.

En tout cas, pour ceux qui auront le courage de se lancer dans l'aventure... ou ceux qui auront des petits conseils autres, je vous remercie d'avance.

A+ les développeurs ;p

[pijaku]

Bonjour,

Le problème est que tu ne "lances" le "rafraichissement" de ta ComboBox que lors de l'initialisation de ton userform.

Tu devrais :
1- placer le code contenu dans ta Private Sub UserForm_Initialize(), dans une procédure séparée. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RafraichiCombo()
Dim Societe As Variant
Dim Plage As Range
 
ComboBox1.Clear
With ThisWorkbook.Worksheets("annuaire")
    Set Plage = .Range("A4:A" & .Range("A65536").End(xlUp).Row)
    Set Plage = Plage.SpecialCells(xlCellTypeVisible)
End With
 
For Each Societe In Plage
    ComboBox1.AddItem Societe
Next Societe
End Sub

2- appeler cette procédure dans ton UserForm_Initialise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
RafraichiCombo
End Sub

3- et la rappeler, de la même manière, à chaque fois que tu "filtres"...

[malycyous]

Bonjour Franck,

Merci beaucoup pour ta réponse. J'ai essayé d'intégrer ce que tu m'as mis dans le UserForm_Initialize mais ca n'a pas fonctionné.

Par contre, ton post (à moins que ta réponse ait été ça) m'a permis d'avoir une idée simple mais efficace de créer un bouton de réinitialisation du contenu de la combobox. Je click dessus et le contenu est mis à jour...

C'est une solution simple (peut-être pas la plus fluide car je rajoute un bouton) mais elle fonctionne...

Merci pour ta réponse qui m'a bien servie.

Je ne valide pas encore le post, si jamais tu ou quelqu'un d'autre aurait un message à laisser.

A++

[Philippe Tulliez]

Bonjour,

C'est une solution simple (peut-être pas la plus fluide car je rajoute un bouton) mais elle fonctionne...

Pas besoin de bouton, la réponse que Franck t'a donné te permet justement dans n'importe quelle procédure de la UserForm d'appeler la procédure RafraichiCombo

[pijaku]

Bonjour et merci à Philippe,

En effet, tu peux, lorsque tu filtres simplement ta feuille ajouter cette ligne au code VBA apparemment contenu dans ton Userform6 :
Je filtre mes données par un filtre classique géré en USERFORM6

A la fon de ta macro de filtre, tu ajoutes juste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RafraichiCombo

Par contre, dans ton UserForm_Initialize(), il ne doit y avoir que RafraichiCombo également, comme je te l'ai indiqué plus haut.

[malycyous]

Bonjour Philippe et merci à tous les deux.

En fait, je n'avais pas fais le lien avec le filtre XD
Il me manquait cette partie et c'est bon ca à l'air de fonctionner

Un grand merci à vous deux pour avoir incisté sur ce point et je vous souhaite une bonne fin d'après-midi.

Bye