begin process at 2010 02 09 22:15:41
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

ListBox2.Selected = ListBox1.Selected


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

ListBox2.Selected = ListBox1.Selected

dimanche 5 mai 2002 à 06:01:31 | ListBox2.Selected = ListBox1.Selected

Jawad

Comment faire coordonner 2 listbox ?
J'explique : J'ai une listbox nommé list1 sur une feuille form et une autre nommée list2 sur une feuille form2. Donc ce que je veux c que à l'ouverture de form2, la liste list2 prenne la même valeur que form1. Voilà ce que je fait mais ca marche une fois, et à la deuxiéme il y'a une erreur :

Private Sub Form_Load() {
List2.Selected(List1.ListIndex) = True
}


Voilà mais là il retourne une erreur !!! Aidez moi plzz, c tout con mais trés chiant !!
dimanche 5 mai 2002 à 09:38:19 | Re : ListBox2.Selected = ListBox1.Selected

jym

bjr,

2 choses : pour donner en référence un objet d'une autre feuille il faut faire précéder le code du nom de la feuille d'origine. si ton code est dans form2.load tu dois écrire :

form1!list1.text (par exemple)

dans ton cas je pense que la commande

(dans form2)
list2.listindex = fomr1!list1.listindex
convient mieux.

et/ou list2.text=list2.text(fomr1!list1.listindex)

bon code

jym

-------------------------------
Réponse au message :
-------------------------------

Comment faire coordonner 2 listbox ?
J'explique : J'ai une listbox nommé list1 sur une feuille form et une autre nommée list2 sur une feuille form2. Donc ce que je veux c que à l'ouverture de form2, la liste list2 prenne la même valeur que form1. Voilà ce que je fait mais ca marche une fois, et à la deuxiéme il y'a une erreur :

Private Sub Form_Load() {
List2.Selected(List1.ListIndex) = True
}


Voilà mais là il retourne une erreur !!! Aidez moi plzz, c tout con mais trés chiant !!
dimanche 5 mai 2002 à 18:47:27 | Re : ListBox2.Selected = ListBox1.Selected

Jawad

BEEEEEEEEEEEEUUUUUUUUUUHHHHHHHH
CA MARCHE PAS :(
Le premier il me retourne une erreur lors du deuxiéme chargement de Form2 (et ne sélectionne rien du tout au premier) et le deuxiéme marche pas du tout !! :(


-------------------------------
Réponse au message :
-------------------------------

bjr,

2 choses : pour donner en référence un objet d'une autre feuille il faut faire précéder le code du nom de la feuille d'origine. si ton code est dans form2.load tu dois écrire :

form1!list1.text (par exemple)

dans ton cas je pense que la commande

(dans form2)
list2.listindex = fomr1!list1.listindex
convient mieux.

et/ou list2.text=list2.text(fomr1!list1.listindex)

bon code

jym

-------------------------------
Réponse au message :
-------------------------------

Comment faire coordonner 2 listbox ?
J'explique : J'ai une listbox nommé list1 sur une feuille form et une autre nommée list2 sur une feuille form2. Donc ce que je veux c que à l'ouverture de form2, la liste list2 prenne la même valeur que form1. Voilà ce que je fait mais ca marche une fois, et à la deuxiéme il y'a une erreur :

Private Sub Form_Load() {
List2.Selected(List1.ListIndex) = True
}


Voilà mais là il retourne une erreur !!! Aidez moi plzz, c tout con mais trés chiant !!

dimanche 5 mai 2002 à 19:16:39 | Re : ListBox2.Selected = ListBox1.Selected

jym

Bjr,

après essais je te confirme ce code qui marche avec 1 projet de 2 feuilles (form1 et form2) elles ont
chacune une liste remplie (propriété list remplie à la main avec ligne 1 ..ligne6).

elles ont chacune un bouton de commande pour passer de l'une à l'autre.

il me vient à l'esprit que dans ta manip les 2 feuilles n'étaient peut être pas
sur le plan de travail. en effet avec ce code elles doivent être actives toutes les deux.

voilà c'est tout. dans ce code ça marche pour positionner la lite de la form2 en focntion de ce qui est coché dans
la liste de la form1. quitte à toi à remettre le même code pour replacer la liste de la form2 après modification et tretour vers
le form1.

bon code

jym



'code de la form1
Option Explicit

'code du bouton de commande sur la form1 qui permet de passer vers la form2
Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True

End Sub

'code de démarrage qui permet de charger les 2 feuilles au démarrage du projet

Private Sub Form_Load()
Load Form2

End Sub




'code de la form2

Option Explicit

'bouton de commande sur la form2
Private Sub Command1_Click()
Form1.Visible = True
Form2.Visible = False

End Sub

'code de démarrage de la form2 (au changement d'écran)
Private Sub Form_Activate()
list2.ListIndex = Form1!List1.ListIndex
Label1.Caption = Form1!List1.Text

End Sub



-------------------------------
Réponse au message :
-------------------------------

BEEEEEEEEEEEEUUUUUUUUUUHHHHHHHH
CA MARCHE PAS :(
Le premier il me retourne une erreur lors du deuxiéme chargement de Form2 (et ne sélectionne rien du tout au premier) et le deuxiéme marche pas du tout !! :(


-------------------------------
Réponse au message :
-------------------------------

bjr,

2 choses : pour donner en référence un objet d'une autre feuille il faut faire précéder le code du nom de la feuille d'origine. si ton code est dans form2.load tu dois écrire :

form1!list1.text (par exemple)

dans ton cas je pense que la commande

(dans form2)
list2.listindex = fomr1!list1.listindex
convient mieux.

et/ou list2.text=list2.text(fomr1!list1.listindex)

bon code

jym

-------------------------------
Réponse au message :
-------------------------------

Comment faire coordonner 2 listbox ?
J'explique : J'ai une listbox nommé list1 sur une feuille form et une autre nommée list2 sur une feuille form2. Donc ce que je veux c que à l'ouverture de form2, la liste list2 prenne la même valeur que form1. Voilà ce que je fait mais ca marche une fois, et à la deuxiéme il y'a une erreur :

Private Sub Form_Load() {
List2.Selected(List1.ListIndex) = True
}


Voilà mais là il retourne une erreur !!! Aidez moi plzz, c tout con mais trés chiant !!


mardi 11 novembre 2008 à 20:50:23 | Re : ListBox2.Selected = ListBox1.Selected

Archeolabo

Bon mon idée la plus simple :
1 form principal nommé "Form1" contenant une listBox nommée "List1" et un CommandButton nommé "Command1"
1 autre form  nommé "Form2" contenant une listBox nommée "List1" et un CommandButton nommé "Command1"

(on décide de changer de feuille en cliquant sur les commanbuttons)

code dans form1 :
Private Sub Form_Load()
Dim ind As Integer

    With Me.List1
        For ind = 1 To 5
            .AddItem ("item " & CStr(ind)) 'pour avoir kekchose à voir ...
        Next ind
    End With
End Sub

Private Sub Command1_Click()
    Me.Hide
    Form2.Show
End Sub

code dans form2 :
Private Sub Form_Load()
    Dim ind As Integer
    With Me.List1
        .Clear
        For ind = 0 To Form1.List1.ListCount - 1
            .AddItem Form1.List1.List(ind)
            .Selected(ind) = Form1.List1.Selected(ind)
        Next ind
    End With
End Sub

Private Sub Command1_Click()
    Dim ind As Integer
    With Form1.List1
        .Clear
        For ind = 0 To Me.List1.ListCount - 1
            .AddItem Me.List1.List(ind)
            .Selected(ind) = Me.List1.Selected(ind)
        Next ind
    End With
    Form1.Show
    Unload Me
End Sub

ça marche chez moi. On pourrait même changer les items de list1 dans form2, quand on revient dans form1 c'est mis à jour

Essaie et dis-nous ski spasse !
mardi 11 novembre 2008 à 20:50:24 | Re : ListBox2.Selected = ListBox1.Selected

Archeolabo

Bon mon idée la plus simple :
1 form principal nommé "Form1" contenant une listBox nommée "List1" et un CommandButton nommé "Command1"
1 autre form  nommé "Form2" contenant une listBox nommée "List1" et un CommandButton nommé "Command1"

(on décide de changer de feuille en cliquant sur les commanbuttons)

code dans form1 :
Private Sub Form_Load()
Dim ind As Integer

    With Me.List1
        For ind = 1 To 5
            .AddItem ("item " & CStr(ind)) 'pour avoir kekchose à voir ...
        Next ind
    End With
End Sub

Private Sub Command1_Click()
    Me.Hide
    Form2.Show
End Sub

code dans form2 :
Private Sub Form_Load()
    Dim ind As Integer
    With Me.List1
        .Clear
        For ind = 0 To Form1.List1.ListCount - 1
            .AddItem Form1.List1.List(ind)
            .Selected(ind) = Form1.List1.Selected(ind)
        Next ind
    End With
End Sub

Private Sub Command1_Click()
    Dim ind As Integer
    With Form1.List1
        .Clear
        For ind = 0 To Me.List1.ListCount - 1
            .AddItem Me.List1.List(ind)
            .Selected(ind) = Me.List1.Selected(ind)
        Next ind
    End With
    Form1.Show
    Unload Me
End Sub

ça marche chez moi. On pourrait même changer les items de list1 dans form2, quand on revient dans form1 c'est mis à jour

Essaie et dis-nous ski spasse !


Cette discussion est classée dans : listbox, listbox1, list2, selected, listbox2


Répondre à ce message

Sujets en rapport avec ce message

pb avec additem dans listbox [ par difovelo ] Bonjour,J'ai un userform qui fait passer des données d'une listbox à une autre en double-cliquant. Pour passer de la listbox1 à la listbox2 ça marche transfert d'une listbox à une autre [ par Fabian123 ] Bonjour,voilà, j'ai une listbox1 de deux colonnes avec une série d'articles et leurs prix (dans la seconde colonne) dans un userform (la listbox est c listbox et checkbox vba et excel [ par contra69005 ] bonjour , es ce que quelqu'un pourra maider svp, voila mon probleme :jai créer une listbox1 dans un userform1 avec un rowsource ("A75 : B176"), quand listbox controlsource [ par contra69005 ] bonjour es ce que quelqu'un peu me dire comment faire pour controler plusieurs cellules avec une listbox.voila jai deux listbox 1 et 2, et un bouton a sauvegarde les données d'une listbox [ par contra69005 ] bonjour comment je sauvegarde les données d'une listboxje souhaiterais savoir si quelq'un peu me dire si c possible de sauvegarde des données dans une Suppression Item d'une ListBox et Mise à jour automatique LB [ par Tursiop60 ] Bonsoir,J'ai le code suivant mais il me manque quelque chose pour qu'il soit opérationnel.Je souhaiterais supprimer un item de la listbox et la mettre ListBox et plantage [ par epaminondas ] Bonjour ? Je voudrais, à partir d’une listbox, renseigner la cells(4,14) d’un objet en feuil1. Je pars d’un module 1 qui m’envoie sur un user form1 où listbox selected [ par POURMONET ] Bonjour,juste un petit problème, la documentation des ListBox dit ceci :Si la valeur 1 (cases à cocher) a été affectée à la propriété Style d'un cont


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,905 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales