Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Doublons listbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Roni95
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

Roni95

XLDnaute Occasionnel
Bonjour Le forum !

J'ai crée un formulaire pour rentrer mes clients par n°, nom... et je souhaiterais ne pas saisir de doublons.

Auriez-vous une solution pour que lorsque je saisie par le n° de client, on puisse m'alerter que ce n° existe déjà?

Merci pour votre aide? (Par contre, je n'ai pas le fichier car suis à mon travail).
 
Trier par date Trier par votes
Re : Doublons listbox

Re,

C'est juste un exemple.
LaVal est une variable quelconque qui a pour valeur 25. Dans l'exemple si 25 est déjà présent dans A2:A5000 la valeur de la variable ne sera pas copiée sur la feuille.
Si la valeur à copier venait d'un TextBox : LaVal = TextBox1, d'une cellule : Range("A1") .....

Le but de la macro était de te faire voir que tu pouvais faire le test des doublons avant de d'inscrire ta valeur sur la feuille sans créer une nouvelle macro dans le module de code de la feuille.

Tu as résolu ton problème ?

A+
 
Vote positif 0 Vote négatif
Re : Doublons listbox

Non pas résolu 😕

Dois je aussi laisser cette macro?

"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

Et que veut dire ton champ .Target = A25 ??
 
Vote positif 0 Vote négatif
Re : Doublons listbox

Re

Target correspond à la cellule active de la feuille.

Je veux bien essayer de modifier ta macro mais laquelle ?
Tu as trois Userform dans ton fichier, sur quelle feuille tu ne veux pas de doublon ?
Donne moi un peu plus d'info.

A+
 
Vote positif 0 Vote négatif
Re : Doublons listbox

Re,

Test ceci pour le Userform2:

Code pour le bouton "Nouveau" Client

Code: 
Private Sub CommandButton1_Click()
With Sheets(nomfeuille2)
    If controledonnee = 1 Then Exit Sub
     lig = .Range("A65536").End(xlUp).Row + 1
        If Application.WorksheetFunction.CountIf(.Range("A2:A5000"), TextBox1) > 0 Then
          MsgBox "Modifier le N° de Client.", vbExclamation, "Attention: N° de client déjà attribué."
          TextBox1 = ""
          TextBox1.SetFocus
          Exit Sub
        Else
            Call maj(nomfeuille2, lig)
            Call listboxremp
            Call IniCombobox1(nomfeuille2, "e", 2, 5, True)
            Call IniCombobox1(nomfeuille2, "f", 2, 6, True)
            Call raz
        End If
End With
End Sub

Tu supprimes la macro que tu as ajouté dans le module de code de la feuille "Client"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
.../...
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Doublons listbox

En fait, je veux vérifier mes doublons sur les feuilles "Client" & "Produit".

J'ai testé ton code et ça marche pas !!!!!!!!!!

Je vais essayé de faire de même pour les produits

Merci encore pour ton aide
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Doublons listbox

Re,

Je suis désolé mais le code du bouton "Nouveau" du Userform "Liste des Clients" fait ce que tu demandes.

Il interdit de saisir un N° de client déjà existant.

Pour les "Produits" c'est un peu différent, il faut tester la Référence et la Couleur. Je regarderai cet après-midi.

Tu es l'auteur de ce fichier ?

A+
 
Vote positif 0 Vote négatif
Re : Doublons listbox

Re,

Je me disais bien aussi, 🙂 je viens de voir sa signature dans le ThisWorkbook.

Voici une façon de faire pour le bouton "Nouveau" du Userform3 "Produits".
Code: 
Private Sub CommandButton1_Click()

Dim TabRef, k As Long
With Sheets(nomfeuille3)
TabRef = .Range("A2:B" & .Range("A65536").End(xlUp).Row)
  For k = 1 To UBound(TabRef, 1)
     If UCase(TabRef(k, 1)) = UCase(TextBox1.Text) And UCase(TabRef(k, 2)) = UCase(ComboBox2.Text) Then
        MsgBox "Modifier le N° de Référence Et/Ou le N° de Couleur.", vbExclamation, "Attention: Référence existante."
        TextBox1 = ""
        TextBox1.SetFocus
        ComboBox2.ListIndex = -1
        Exit Sub
     End If
  Next
End With
If controledonnee = 1 Then Exit Sub
lig = Sheets(nomfeuille3).Range("A65536").End(xlUp).Row + 1
Call maj(nomfeuille3, lig)
Call listboxremp
Call IniCombobox1(nomfeuille3, "c", 2, 3, True)
Call IniCombobox1(nomfeuille3, "b", 2, 2, True)
Call raz
End Sub

Attention dans ta feuille "Produit" tu as des espaces en trop dans la colonne B. Exemple tu as C1 et C1+espace, tu peux t'en rendre compte dans la liste du Combobox "Couleur" du Userform3, malgré l'utilisation de la Collection pour remplir le Combobox tu as plusieurs C1,C2.....


A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
374
job75
  • Résolu(e)
XL 2016 Obliger une saisie numéraire
Réponses
10
Affichages
345
halecs93
Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
151
youguybass
Y
B
  • Résolu(e)
XL 2019 comptabiliser commandes
2
Réponses
19
Affichages
662
brunocean
B
N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
925
NONO14
N
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
530
TooFatBoy
P
  • Résolu(e)
Microsoft 365 VBA - Dynamiser plages de données graphiques
Réponses
4
Affichages
182
job75
  • Résolu(e)
XL 2019 Inverser une colonne sur mon USF
Réponses
10
Affichages
443
Rheeem
R
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
347
fanch55
K
  • Résolu(e)
XL 2016 Filtre et affichage listbox
Réponses
9
Affichages
528
KRUG WOO
K
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
415
berta8683
B
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
874
alexga78
A
K
  • Question Question
Microsoft 365 Exercice compte en banque
Réponses
10
Affichages
576
klemasson
K
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
906
AtTheOne
A
  • Résolu(e)
XL 2021 Combinaison formules grande.valeur(si index equiv
Réponses
13
Affichages
413
Cousinhub
A
  • Question Question
XL 2010 problème lors pour la selection dans un combobox
Réponses
2
Affichages
208
gbinforme
G
F
  • Question Question
XL 2019 Besoin d'aide pour gestion d'onglets
2
Réponses
19
Affichages
598
Fidmo
F
  • Résolu(e)
XL 2019 Tri et Traitement plus rapide
2
Réponses
20
Affichages
702
Titof06
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
717
jeff1494
G
  • Question Question
Microsoft 365 Formule sous condition
Réponses
2
Affichages
287
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…