Lignes selectionneés dans listbox

B

Banzai64

XLDnaute Accro

• 18 Octobre 2007

• #2

Re : Lignes selectionneés dans listbox

Bonjour

Essayes (pas testé)

Code:

Sub SelectCellulesValeurDeterminee()
LaValeur = Range("D2").Value
sheets("base").Range("A1").Select
For Each cll In ActiveCell.CurrentRegion
If cll.Value = LaValeur Then ListBox.AddItem cll 
Next cll
' If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Select
End Sub

 

Vote positif 0 Vote négatif

C

carole30

Guest

• 18 Octobre 2007

• #3

Re : Lignes selectionneés dans listbox

je te remercie de ta réponse
mais il me mets l'erreur
Objet requis (erreur 424)

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 18 Octobre 2007

• #4

Re : Lignes selectionneés dans listbox

Re

Tu as bien nommé ta ListBox ?

En géneral il y a toujours un nombre avec ListBox

Si pas ça et si tu peux envoie un fichier dans les conditions habituelles

A moins qu'un autre forumeur trouve la solution

 

Vote positif 0 Vote négatif

C

carole30

Guest

• 18 Octobre 2007

• #5

Re : Lignes selectionneés dans listbox

re

je viens de verifier mais c'est pas ça

merci et bonne soirée

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Octobre 2007

• #6

Re : Lignes selectionneés dans listbox

Bonsoir,
A propos de l'erreur il doit manqué ce que j'ai mis en gras (à moins que tu l'a appelé différement)

Code:

If cll.Value = LaValeur Then [B]userform1.[/B]ListBox.AddItem cll

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 18 Octobre 2007

• #7

Re : Lignes selectionneés dans listbox

bonsoir, un ptit fichier joint et le tour sera joué!

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Octobre 2007

• #8

Re : Lignes selectionneés dans listbox

Autre chose,
pourquoi passe-tu par une macro avant de lancer ton userform?
tu devrais mettre le code de Banzai64 directement dans le code du userform dans la partie "Initialize":
Private Sub UserForm_Initialize()
............
...........
End Sub

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 18 Octobre 2007

• #9

Re : Lignes selectionneés dans listbox

essayes ton code en debutant comme cela/
Sub SelectCellulesValeurDeterminee()
sheets("base").Range("A1").Select
LaValeur = Range("D2").Value

a mon avis il ne sait pas dans quelle feuilkle aller chercher la range("D2")

 

Vote positif 0 Vote négatif

C

carole30

Guest

• 19 Octobre 2007

• #10

Re : Lignes selectionneés dans listbox

Bonsoir,

j'ai essayé toutes les propositions .. en vain
je vous met le fichier joint si quelqu'un veut y jeter un oeil...

a+

 

Pièces jointes

• 191007.xls

  48 KB · Affichages: 94

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2007

• #11

Re : Lignes selectionneés dans listbox

Bonsoir



Un petit mieux (avec un filtre auto)

La listbox est bien alimentée 😉

 

Dernière édition: 20 Octobre 2007

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Octobre 2007

• #12

Re : Lignes selectionneés dans listbox

Bonsoir,
une proposition sans filtre auto.

 

Pièces jointes

• Lignes selectionneés dans listbox v1.xls

  48 KB · Affichages: 97

Vote positif 0 Vote négatif

C

carole30

Guest

• 20 Octobre 2007

• #13

Re : Lignes selectionneés dans listbox

bonjour,

merci pour vos réponse, je suis débutante et celà m'aide beaucoup

je complique la tache :
colonne a : prénom de commerciaux

la colonne b : département d'origine
colonne d : autres départements ou ils prospectent

le but : faire apparaitre tous les commerciaux qui sont dans le départements d'origine mais aussi dans les autres départements ou ils prospectent

@+
carole

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Octobre 2007

• #14

Re : Lignes selectionneés dans listbox

Bonjour carole, le forum

en partant du fichier de Skoobi (j'aime bien citer mes sources 😀), regarde le fichier joint

le code d'initialisation de l'usf2 :

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
lavaleur = Sheets("base").Range("a1").Value
Set plg = Union(Range(Range("b4"), Range("b4").End(xlDown)), Range(Range("d4"), Range("d4").End(xlDown)))
i = 0
For Each cll In plg
If InStr(CStr(cll), lavaleur) <> 0 Then i = i + 1
Next
ReDim plage(i, 2)
i = 0
For Each cll In plg
If InStr(CStr(cll), lavaleur) <> 0 Then
i = i + 1
If cll.Column = 2 Then
plage(i, 1) = cll.Offset(0, -1)
plage(i, 2) = cll.Offset(0, 3)
Else
plage(i, 1) = cll.Offset(0, -3)
plage(i, 2) = cll.Offset(0, 1)
End If
ListBox1.List = plage
End If
Next cll
End Sub

Cliquez pour agrandir...

Bon week-end ensoleillé

Edit, oublié le fichier

 

Pièces jointes

• Lignes selectionneés dans listbox v2.zip

  14.6 KB · Affichages: 52

Vote positif 0 Vote négatif

C

carole30

Guest

• 20 Octobre 2007

• #15

Re : Lignes selectionneés dans listbox

mille merci à tous pour votre aide c'est exactement ce que je chercher...

bonne journée à tous....

 

Vote positif 0 Vote négatif