Probleme de listbox

[mamour60]

Bonjour a tous,

Voici mon probleme dans une Listbox j'ai une liste de nom qui provient de la feuil1 (colonne A) et lorsque je clique dessus je voudrais avoir un message (Label1.Caption = "Nom deja créer") car le nom existe dans la feuil2 (colonne A).
merci de votre aide .

bonne journée.

 

[RENAUDER]

Re : Probleme de listbox

Bonjour,
Essaies ce code associé à l'événement Click de la ListBox et un label nommé label1.

Private Sub ListBox1_Click()
    Dim LaValATrouver As Range
    NomSelect = Me.ListBox1.Text
    On Error Resume Next
    With Worksheets(2).Range("A2:A10")
           Set LaValATrouver = .Find(What:=NomSelect, After:=ActiveCell, _
            LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)        
    End With
    'La valeur est trouvée
    If Not LaValATrouver Is Nothing Then
        Me.Label1.Caption = "Nom déjà dans la liste."
        Exit Sub
    Else
        Me.Label1.Caption = ""
    End If
    On Error GoTo 0
End Sub

 

[mamour60]

Re : Probleme de listbox

Bonjour Eric,

Merci de votre réponse mais cela ne marche pas.

@+

Bruno

 

[Guest]

Re : Probleme de listbox

Bonjour Mamour60,

Eric paraissant absent, voici le fichier corrigé.

A bientÔt

 

[skoobi]

Re : Probleme de listbox

Bonjour mamour60, Eric ,

fais cette modification en rouge dans le code d'Eric,
.........
With Worksheets(2).Columns("A")
Set LaValATrouver = .Find(What:=NomSelect, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
End With
........

Edit: ouppss, collision

 

[RENAUDER]

Re : Probleme de listbox

Bonjour Hasco et Skoobi,
Non je ne suis pas absent, j'étais parti déjeuner.
Lors de mes tests, la sélection était dans la colonne A donc tout fonctionnait correctement.
Hélas je n'avais pensé au cas où .... la sélection serait ailleurs.

 

[mamour60]

Re : Probleme de listbox

Bonjour Hasco,

Merci également de ton aide
mais lorsque je clique sur le nom1
il me dit qu'il exite dans la feuil2
alors qu'il ni est plus.

@+

 

[RENAUDER]

Re : Probleme de listbox

Bonjour Hasco et Skoobi,
Je ne sais pourquoi mails il y redondance de messages !!!!
Non je ne suis pas absent mais j'étais partie déjeuner.
C'est vrai que lorsque j'ai testé mon code, ma sélection était dans la colonne A et ça marché. Je n'y ai vu que du feu.
Merci à vous deux et bon courage à Mamour60.

 

[skoobi]

Re : Probleme de listbox

Re,

as-tu testé la correxion que j'ai apporté au code d'Eric?

 

[Guest]

Re : Probleme de listbox

Re bonjour et bientôt bonsoir à tous,

chez moi pas de problème, si nom2 n'est pas dans la liste, le Label1.Caption="".

Mystère!!!!!

Passez une bonne soirée, je crois que je ne vais pas tarder à quitter....

 

[mamour60]

Re : Probleme de listbox

Bonsoir a tous,

J'ai essayé tous les exemples mais cela marche une fois sur deux.

J'ai essayer de trier par ordre alphabétique mais il y a toujours
des problémes.

Encore merci de votre aide.

@+

 

[skoobi]

Re : Probleme de listbox

Re,

et comme ceci?

...............
With Worksheets(2).Columns("A")
Set LaValATrouver = .Find(What:=NomSelect, _
LookIn:=xlValues, LookAt:=xlWhole)
End With
...............

 

[mamour60]

Re : Probleme de listbox

Bonsoir Skoobi,

Cela marche beaucoup mieux.

Merci et bon week end a tous ceux qui font le pont.

@+
Bruno