Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis entrai ns
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis entrai ns
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis entrai ns
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_n ew
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de la
premiere listbox ?
Merci,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154026898.556001.70190@i42g2000cwa.googlegroups.com...
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JB
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_n ew
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans listbox_n ew
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154026898.556001.70190@i42g2000cwa.googlegroups.com...
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JB
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JBSalut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154028526.834473.217000@i42g2000cwa.googlegroups.com...
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JB
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154026898.556001.70190@i42g2000cwa.googlegroups.com...
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JB
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JBSalut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JBSalut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154028526.834473.217000@i42g2000cwa.googlegroups.com...
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JB
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154026898.556001.70190@i42g2000cwa.googlegroups.com...
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JB
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JBSalut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Desole de t'avoir fait faire des heures supp, ca marche super bien, par
contre j'ai essaye d'integrer dans la meme boucle voir une autre pour
pouvoir supprimer les anciens records sans succes... :o(
J'ai essaye apres ta procedure et ta boucle :
For i = 0 To SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListCount - 1
If SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex = -1 Then
Else
SUBSCRIPTION_REDEMPTION.ListBox_TEMP.RemoveItem
(SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex + 1)
End If
Next i
J'ai l'impression SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex est
toujours egal a -1, et je ne comprend pas pourquoi :o(
Apres je te jures je te fous la paix, car mon projet sera termine.
Encore un tres, tres grand MERCI a toi, et pour tout le temps que tu as
passe pour m'aider.
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hCe4A2vgT2
Private Sub ajoute_Click()
ActiveSheet.Dest.AddItem ActiveSheet.liste_source.Value
ActiveSheet.liste_source.RemoveItem
ActiveSheet.liste_source.ListIndex
End Sub
Private Sub enlève_Click()
n = ActiveSheet.Dest.ListCount
If n > 0 Then
p = ActiveSheet.Dest.ListIndex
ActiveSheet.Dest.RemoveItem p
End If
End Sub
Private Sub imprime_Click()
n = ActiveSheet.Dest.ListCount
If n > 0 Then
For i = 0 To n - 1
nf = ActiveSheet.Dest.List(i)
Application.DisplayAlerts = False
Workbooks.Open FileName:=nf
ActiveSheet.PrintPreview
ActiveWorkbook.Close
Next i
End If
End Sub
Private Sub Tout_Click()
ActiveSheet.Dest.Clear
For i = 0 To ActiveSheet.liste_source.ListCount - 1
ActiveSheet.Dest.AddItem ActiveSheet.liste_source.List(i)
Next i
End Sub
Private Sub Efface_Click()
ActiveSheet.Dest.Clear
End Sub
JBSalut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JBSalut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer
vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert
de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me
la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Desole de t'avoir fait faire des heures supp, ca marche super bien, par
contre j'ai essaye d'integrer dans la meme boucle voir une autre pour
pouvoir supprimer les anciens records sans succes... :o(
J'ai essaye apres ta procedure et ta boucle :
For i = 0 To SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListCount - 1
If SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex = -1 Then
Else
SUBSCRIPTION_REDEMPTION.ListBox_TEMP.RemoveItem
(SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex + 1)
End If
Next i
J'ai l'impression SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex est
toujours egal a -1, et je ne comprend pas pourquoi :o(
Apres je te jures je te fous la paix, car mon projet sera termine.
Encore un tres, tres grand MERCI a toi, et pour tout le temps que tu as
passe pour m'aider.
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154055499.773908.19040@75g2000cwc.googlegroups.com...
http://cjoint.com/?hCe4A2vgT2
Private Sub ajoute_Click()
ActiveSheet.Dest.AddItem ActiveSheet.liste_source.Value
ActiveSheet.liste_source.RemoveItem
ActiveSheet.liste_source.ListIndex
End Sub
Private Sub enlève_Click()
n = ActiveSheet.Dest.ListCount
If n > 0 Then
p = ActiveSheet.Dest.ListIndex
ActiveSheet.Dest.RemoveItem p
End If
End Sub
Private Sub imprime_Click()
n = ActiveSheet.Dest.ListCount
If n > 0 Then
For i = 0 To n - 1
nf = ActiveSheet.Dest.List(i)
Application.DisplayAlerts = False
Workbooks.Open FileName:=nf
ActiveSheet.PrintPreview
ActiveWorkbook.Close
Next i
End If
End Sub
Private Sub Tout_Click()
ActiveSheet.Dest.Clear
For i = 0 To ActiveSheet.liste_source.ListCount - 1
ActiveSheet.Dest.AddItem ActiveSheet.liste_source.List(i)
Next i
End Sub
Private Sub Efface_Click()
ActiveSheet.Dest.Clear
End Sub
JB
Salut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154028526.834473.217000@i42g2000cwa.googlegroups.com...
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JB
Salut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer
vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert
de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154026898.556001.70190@i42g2000cwa.googlegroups.com...
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JB
Bonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me
la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.
Salut,
Desole de t'avoir fait faire des heures supp, ca marche super bien, par
contre j'ai essaye d'integrer dans la meme boucle voir une autre pour
pouvoir supprimer les anciens records sans succes... :o(
J'ai essaye apres ta procedure et ta boucle :
For i = 0 To SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListCount - 1
If SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex = -1 Then
Else
SUBSCRIPTION_REDEMPTION.ListBox_TEMP.RemoveItem
(SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex + 1)
End If
Next i
J'ai l'impression SUBSCRIPTION_REDEMPTION.ListBox_TEMP.ListIndex est
toujours egal a -1, et je ne comprend pas pourquoi :o(
Apres je te jures je te fous la paix, car mon projet sera termine.
Encore un tres, tres grand MERCI a toi, et pour tout le temps que tu as
passe pour m'aider.
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hCe4A2vgT2
Private Sub ajoute_Click()
ActiveSheet.Dest.AddItem ActiveSheet.liste_source.Value
ActiveSheet.liste_source.RemoveItem
ActiveSheet.liste_source.ListIndex
End Sub
Private Sub enlève_Click()
n = ActiveSheet.Dest.ListCount
If n > 0 Then
p = ActiveSheet.Dest.ListIndex
ActiveSheet.Dest.RemoveItem p
End If
End Sub
Private Sub imprime_Click()
n = ActiveSheet.Dest.ListCount
If n > 0 Then
For i = 0 To n - 1
nf = ActiveSheet.Dest.List(i)
Application.DisplayAlerts = False
Workbooks.Open FileName:=nf
ActiveSheet.PrintPreview
ActiveWorkbook.Close
Next i
End If
End Sub
Private Sub Tout_Click()
ActiveSheet.Dest.Clear
For i = 0 To ActiveSheet.liste_source.ListCount - 1
ActiveSheet.Dest.AddItem ActiveSheet.liste_source.List(i)
Next i
End Sub
Private Sub Efface_Click()
ActiveSheet.Dest.Clear
End Sub
JBSalut,
Merci tip-top
Je ne voudrais pas abuser mais une petite solution pour tout transferer
d'une listebox a une autre ?
Merci encore,
@+
Michel.
"JB" a écrit dans le message de news:
http://cjoint.com/?hBvCCZrrHr
Private Sub ajoute_Click()
x = ActiveSheet.liste_source.Value
n = ActiveSheet.Dest.ListCount
ActiveSheet.Dest.AddItem x
p = ActiveSheet.liste_source.ListIndex
ActiveSheet.liste_source.RemoveItem p
n = ActiveSheet.Dest.ListCount
End Sub
JBSalut,
Merci, mais cela ne m'aide pas des tonnes.
Je sais comment faire le multiselect un un unique, et le transferer
vers
une
autre lisbox, mais comment faire pour supprimer ce que l'on transfert
de
la
premiere listbox ?
Merci,
@+
Michel.
"JB" a écrit dans le message de news:
Exemples:
http://cjoint.com/?hBvavLhspP
http://cjoint.com/?hBvbkBPzcF
Cordialement JBBonjour a tout le monde,
Decidement je n'arrive pas a trouver d'exemples sur ce que je suis
entrains
de faire.
J'ai une lisbox_temp et une lisbox_new
Soit lisbox_temp contenant une liste : A,B,C et listbox_new est vide.
Je voudrais creer 4 bouttons.
* Le premier qui m'effacerais toute la liste de lisbox_temp pour me
la
transferer dans listbox_new (bouton : Transfert tout)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je ne selectionnes rien.
Apres :
lisbox_temp = ""
listbox_new = "A,B,C"
* Le deuxieme qui me permetterais de faire une multi-selection de la
listbox_temp, puis me la supprimmerait pour me l'ajouter dans
listbox_new
(bouton : Transfert selection)
Avant :
lisbox_temp = "A,B,C"
listbox_new = ""
Je selectionnes "A" et "C" dans lisbox_temp.
Apres :
lisbox_temp = "B"
listbox_new = "A,C"
* Le troisieme qui ferais l'inverse du deuxieme
* Le quatrieme qui ferais l'inverse du premier
J'ai un bout de code qui me transfert de la listbox_temp vers la
listbox_new, mais cela ne me supprime pas la ligne dans lisbox_temp.
SUBSCRIPTION_REDEMPTION.ListBox_NEW.Clear
With SUBSCRIPTION_REDEMPTION.ListBox_TEMP
For I = 0 To .ListCount - 1
If .Selected(I) Then
SUBSCRIPTION_REDEMPTION.ListBox_NEW.AddItem .List(I)
.Selected(I) = False
Next
End With
D'avance un tres grand merci pour toutes reponses pouvant m'aider,
@+
Michel.