Liste sélective dans listbox

La Vouivre

XLDnaute Occasionnel

• 2 Décembre 2014

• #16

Re : Liste sélective dans listbox

merci beaucoup pour ce beau travail
me voila occupe demain à mettre tout cela en œuvre
je vous recontacterais pour vous dire si j'ai réussi à faire fonctionner mon fichier avec toutes vos explications
bonne soirée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Décembre 2014

• #17

Re : Liste sélective dans listbox

Bonsoir à tous


Pour information
On peut simplifier la syntaxe sans passer par l'autofill

Code:

Private Sub Worksheet_Activate()
Range("B6:AE6").FormulaR1C1 = "=Base!R[-4]C"
UserForm1.Show
End Sub

[précision]
PS: Ce n'est pas une critique du code de Speel
C'est simplement un complément d'information.
[/précision]

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 3 Décembre 2014

• #18

Re : Liste sélective dans listbox

Bonsoir les amis du forum
Bonsoir mon ami Speel
Je m'excuse pour hier soir de ne pas vous avoir donné des nouvelles du fichier , l'emploi du temps trop chargé.
Je viens vous remercier du travail que vous m'avez fait ,j'ai réussi à adapter votre code à mon fichier ,et le résultat est très satisfaisant. Je vous mets le fichier avec tout le code ,j'ai réduit la base de donnée au maxi pour que le fichier passe.
Je découvre après de multiples essais que lorsque j'enregistre une nouvelle entrée la base de données se décale de 129 lignes vers le bas .
la première ligne de la base se trouve sur la ligne 3 de la feuille
la nouvelle entrée est bien classée dans l'ordre alphabétique après la deuxième ligne de la base qui devient la ligne 132 de la feuille . Je trouve 129 lignes vides entre la ligne 3 est la ligne 132 a chaque enregistrement.
Est-ce dû au fait que j'ai 2000 lignes dans la base de données ?
Ou ai-je fait une faute en modifiant le code ,dit moi ou j'ai fait une erreur.
Merci de me conseiller
Bonne soirée à tous

 

Pièces jointes

• liste-selective-dans-listbox- F.xlsm

  230.8 KB · Affichages: 59

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 3 Décembre 2014

• #19

Re : Liste sélective dans listbox

bonsoir,
Pourquoi tu persistes à mettre " UserForm1.Show " dans Workbook_Open() ?
me dis pas que ça fonctionne chez toi ??

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 3 Décembre 2014

• #20

Re : Liste sélective dans listbox

Est-ce que c'est cela qui met le défaut?

 

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 3 Décembre 2014

• #21

Re : Liste sélective dans listbox

non mais je ne vois pas comment ton fichier ne bug pas au démarrage ?

 

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 3 Décembre 2014

• #22

Re : Liste sélective dans listbox

moi avec ton code dès l'appui sur Modifier ou enregistrer une nouvelle entrée j'ai cette erreur :

 

Pièces jointes

• Capture.jpg

  15.7 KB · Affichages: 38
• Capture.jpg

  15.7 KB · Affichages: 34

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 3 Décembre 2014

• #23

Re : Liste sélective dans listbox

je n'ai pas d'erreur qui s'affiche ,seulement ce défaut qui me met 129 lignes vide entre la ligne 3 et la ligne 132 de la base

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Décembre 2014

• #24

Re : Liste sélective dans listbox

Bonsoir à tous

LaVouivre
Il était 00h22
https://www.excel-downloads.com/threads/liste-selective-dans-listbox.226472/
Tu devais dormir donc tu ne dois pas m'avoir vu passer dans ton fil...

 

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 3 Décembre 2014

• #25

Re : Liste sélective dans listbox

La Vouivre à dit:

je n'ai pas d'erreur qui s'affiche ,seulement ce défaut qui me met 129 lignes vide entre la ligne 3 et la ligne 132 de la base

Cliquez pour agrandir...

Alors là je ne comprends plus ! tu me confirmes que lorsque tu ouvres le fichier que tu as mis dans le post #18 ( et pas un autre fichier !) le programme se lance sans problème ?

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 3 Décembre 2014

• #26

Re : Liste sélective dans listbox

Bonsoir Staple1600
je viens d'essayer votre code , et je ne trouve pas de différence, pour moi les deux codes sont identique ,c'est pas la que le problème se situe , je ne comprends pas pourquoi 129 lignes viennent s'intercaler dans la base

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 3 Décembre 2014

• #27

Re : Liste sélective dans listbox

IL me semble que le problème doit venir du fait que l'userform s'ouvre au démarrage ,je vais regarder cela demain .
bonne soirée à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Décembre 2014

• #28

Re : Liste sélective dans listbox

Re

LaVouivre
Mon précédent message a simplement été posté car j'ai cru que tu n'avais pu vu mon message de 00h22
Puisque pas de salutations ni commentaires suite à celui-ci de ta part.

Je sais donc que

c'est pas la que le problème se situe

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 3 Décembre 2014

• #29

Re : Liste sélective dans listbox

La Vouivre à dit:

IL me semble que le problème doit venir du fait que l'userform s'ouvre au démarrage ,je vais regarder cela demain .
bonne soirée à tous

Cliquez pour agrandir...

Tu n'as pas tenu compte de ce que j'avais préconisé voir post #15

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 4 Décembre 2014

• #30

Re : Liste sélective dans listbox

Bonsoir amis du forum
Bonsoir mon ami speel
Bonsoir mon ami Staple 1600
je vous remercie tous deux mes amis admirables de m'avoir aidé sur ce projet , j'ai trouvé le problème ,c'était l'ouverture de l'userform qui me faisait ce problème de ligne intercale.
Sans votre aide ,je ne serais jamais arrivé au résultat que j'ai . Je vais faire plusieurs tests demain afin de rendre le fichier impeccable ,je vous donnerais de ses nouvelles bientôt
Merci à vous deux mes merveilleux amis
bonne soirée

PS
Mon ami Staple 1600 excuse moi si j'ai été brut de décoffrage quand je t'ai répondu ,mais la fatigue me gagnais , tu m'a permis d'éviter une belle bourde avec la copie d'écran non anonymisée, je t'en remercie , je reconnais ta très grande maitrise de VBA tu m'as déjà donné de nombreux code qui marche très bien. Tu es exceptionnel dans ta bonté à donner du temps pour les autres .
Accepte mes excuses mon ami, à l'avenir je prendrais plus de temps pour répondre, je reconnais ma faute.
Bonne soirée mon prodigieux ami

 

Vote positif 0 Vote négatif