listbox

[okedoki]

Bonjour a tous

Grand adepte du forum , jusque a maintenant , je puissais dans le forum pour trouver la solution a mes problemes? mais la je seche , je ne trouve pas la reponse.

Voici en quelques mots mon soucis :

j' alimente une listox a partir de donnée d' une feuille.
en selectionnant une valeur j 'alimente une autre feuille avec le donnée choisie.

mon probleme est le suivant :

lorsque j' ouvre une nouvelle fois mon userform avec la listbox concernée , je voudrait pouvoir effacer les valeurs deja presente dans la deuxieme feuille alimentée par la listbox.

Merci d' avance pour tout l' aide que vous m 'apporterez !!

 

[skoobi]

Re : listbox

Bonjour,

sans un fichier exemple on ne pourra pas beaucoup t'aider.

 

[okedoki]

Re : listbox

Voici un condensé

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[skoobi]

Re : listbox

Re,

avec tous ces codes et userform, ce serait bien de dire où exactement cela coince, ça nous éviterais de chercher.

Premier bug corrigé en tout cas dans "Fin_de_chargement":

Cmbbox_ListOT.ListIndex = -1

 

[okedoki]

Re : listbox

rebonjour

voici ou ca coince :

Private Sub UserForm_Initialize()
Dim derlign As String

Sheets("liste transport du jour").Select
derlign = Sheets("Liste transport du jour").Range("d65536").End(xlUp).Row

For testlign = 2 To derlign
If Rows(testlign).Hidden = False Then
If Range("A" & testlign) <> "" Then
Listbox1.AddItem Range("A" & testlign)
End If
End If
Next testlign

a la suite du remplissage , je voudrais faire un test sur la feuille de saisie , qui permet
de verifier les transports déja affectés a un quai et de les enlever de la listbox .

 

[okedoki]

Re : listbox

petit up pour relancer

 

[skoobi]

Re : listbox

Re bonjour,

ton explication est un peu vague et en faisant différent test pour essayé de comprendre je constate d'autres bugs qu'il faudrait corriger d'abord.

 

[okedoki]

Re : listbox

dis m' en plus ???

 

[skoobi]

Re : listbox

Re,

quand un message d'erreur se produit, choisie déboguage puis appuie sur la touche F8 jusqu'à'a arrivé à la ligne qui bug pour faire la correction.