Doublons listbox

G

Guest

Guest

• 31 Octobre 2008

• #2

Re : Doublons listbox

Bonjour Roni,

sujet maintes fois traité ici.
As-tu fait une recherche sur le forum?
en bas de cette page dans section "Discussions similaires" tu trouveras d'autres post traitant du problème, ainsi que dans Questions les plus fréquentes (FAQ) et didacticiels - Excel Downloads Forums


A+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 31 Octobre 2008

• #3

Re : Doublons listbox

Bonjour

Deux solutions parmi tant d'autre,
une utilisant Find
la deuxième utilisant une propriété des combobox

A tester

 

Pièces jointes

• verif.zip

  13 KB · Affichages: 46
• verif.zip

  13 KB · Affichages: 46
• verif.zip

  13 KB · Affichages: 49

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2008

• #4

Re : Doublons listbox

Bonjour,

http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#VerifDoublons

JB

 

Dernière édition: 31 Octobre 2008

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 31 Octobre 2008

• #5

Re : Doublons listbox

BOISGONTIER à dit:

Bonjour,

Les formulaires

JB

Cliquez pour agrandir...

Merci pour vos réponses !

j'ai essayé avec le lien ci-dessus de BOISGONTIER mais j'y arrive 🙁

Je vous met une version du fichier allégée, si vous pouvez m'aider !

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

Merci à tous !

 

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 31 Octobre 2008

• #6

Re : Doublons listbox

Je me suis servis de la fonction suivante et ça fonctionne mais la valeur est tout de même inscrite dans ma feuille excel ??

"Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 1 Then

If Application.WorksheetFunction.CountIf(Range("A2:A5000"), Target.Value) > 1 Then MsgBox "ce nom existe déja"

End If

End Sub"

Comment faire pour qu'elle n'apparaisse pas?

Merci

 

Dernière édition: 1 Novembre 2008

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 1 Novembre 2008

• #7

Re : Doublons listbox

Bonjour le forum !

Quelqu'un a t'il l'info pour que ce doublon ne s'affiche dans ma feuille excel?

Merci

 

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 1 Novembre 2008

• #8

Re : Doublons listbox

Bonjour le forum !

Quelqu'un a t-il l'info pour que le doublon détecté ne s'affiche pas dans ma feuille excel?

Merci à tous !

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 1 Novembre 2008

• #9

Re : Doublons listbox

Bonjour à tous,

Essaye ceci :

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
    If Application.WorksheetFunction.CountIf(Range("A2:A5000"), Target.Value) > 1 Then
       MsgBox "ce nom existe déja"
       Target = ""
       Target.Activate
    End If
End If
End Sub

Le doublon sera détecté puis effacé. Enfin la cellule sera de nouveau sélectionnée.

A+

 

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 1 Novembre 2008

• #10

Re : Doublons listbox

Bonjour et merci mais j'ai ce message qui apparait

"La méthode Activate de la classe Range a échoué"

😕😕

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 1 Novembre 2008

• #11

Re : Doublons listbox

Re,

Bizarre chez moi je n'ai pas de problème (Excel 2003).
Essaye en remplaçant Activate par Select.

Comment tu entres les données dans la feuille ?

A+

 

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 1 Novembre 2008

• #12

Re : Doublons listbox

Je rentre ta formule par VB dans la feuille concernée.

J'ai fais le test avec select, ça me met le même message mais pour Select.

😕

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 1 Novembre 2008

• #13

Re : Doublons listbox

Re,

Quand tu dis par Vb, c'est que tu as une macro qui crée cette macro dans le module de code de la feuille ?

Là je dois partir à plus tard

A+

 

Vote positif 0 Vote négatif

R

Roni95

XLDnaute Occasionnel

• 1 Novembre 2008

• #14

Re : Doublons listbox

bqtr à dit:

Re,

Quand tu dis par Vb, c'est que tu as une macro qui crée cette macro dans le module de code de la feuille ?

Là je dois partir à plus tard

A+

Cliquez pour agrandir...

Oui je passe par le menu Macros puis Visual Basic Editor puis je sélectionne ma feuille et je rentre le code à droite.

@+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 1 Novembre 2008

• #15

Re : Doublons listbox

Re,

J'ai réussi à reproduire l'erreur. Elle se produit lorsque tu entres une valeur dans ta feuille (par macro pas manuellement) et que cette même feuille n'est pas la feuille active.

Soit tu rajoutes dans ta macro qui entre la donnée une instruction pour activer ta feuille ou soit tu fais le test avant de valider comme ceci:

Code:

Sub aa()
Dim LaVal
LaVal = 25
With Sheets("Feuil13")
    If Application.WorksheetFunction.CountIf(.Range("A2:A5000"), LaVal) > 0 Then
      MsgBox "ce nom existe déja"
      Exit Sub
    Else
     .Range("A25") = LaVal
    End If
End With
End Sub

A+

 

Vote positif 0 Vote négatif