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

Gerer les doublons par USERFORM

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion PatLac
  • 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

PatLac

XLDnaute Occasionnel
Bonjour à tous !
J'ai un classeur avec 2 feuilles : 1 feuille de travail, l'autre servant de "base de données".

J'utilise sur la feuille de travail une "recherche verticale" (recherchev sur la feuil2) pour remplir les cellules.

Le soucis c'est que lorsque j'ai un doublon, la recherche s'arrête sur le premier trouvé (en l'occurence "parents1" dans mon exemple)

Le problème c'est que j'ai 4 fois "parents1" dans ma base, qui n'ont en commun que le nom, le reste étant différents.

Je voudrais savoir s'il possible de mettre en place un userform, qui reprendrait les noms trouvés et laisserait le choix avec une case à cocher de choisir l'un ou l'autre.

Je mets une exemple ci-dessous.

Merci d'avance.

Cordiales Salutations
 

Pièces jointes

Trier par date Trier par votes
Re : Gerer les doublons par USERFORM

DranReb !
Est-ce que je peux vous demander d'adapter le code à mon projet ...car trop de ligne pour moi 🙁

En fait, il faudrait que le nom (colonne "parents") soit saisissable de D8à D22, que le "ICI" apparaissent de B8 à B22 et que le chiffre apparaisse de E8 à E22 ....

ou alors :

faire en sorte que dans le USF n'apparaisse que le nom (parents) sans rien d'autre, faire abstraction de ces derniers, car j'utiliserai alors des formules "recherchev".

Après je pense que ce sera bon .... 😉

Merci d'avance.
 
Vote positif 0 Vote négatif
Re : Gerer les doublons par USERFORM

Dans la Worksheet_SelectionChange de feuil1 changer le 2 en 4 dans If Target.Column <> 2 Then Exit Sub
Ou pour être plus près de votre demande, l'écrire comme ça:
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Me.[D8:D22], Target) Is Nothing Then Exit Sub
UfSaisie.Afficher Target
End Sub
Et réécritre la Écrire de UfSaisie comme ça:
VB: 
Private Sub Écrire(ByVal N As Long)
Dim L As Long
L = TLgn(N)
Cel.Value = ValPlg(L, 1)
Cel.Offset(, 1).Value = ValPlg(L, 3)
Cel.Offset(, -2).Value = ValPlg(L, 2)
Me.Hide
End Sub
 
Dernière édition:
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

F
  • Question Question
Microsoft 365 Excel - Report des valeurs et détection de doublons
Réponses
7
Affichages
203
djidji59430
M
  • Question Question
Power Query Fractionner et modifier les colonnes d'un tableau
2
Réponses
18
Affichages
725
job75
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
429
Dubuyz1
D
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
797
Nain porte quoi
N
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
298
cathodique
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
793
Nel'
N
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
334
aeca
A
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
970
jeff1494
  • Résolu(e)
XL 2016 VBA - Question complexe ! Activer la Feuille ou le UserForm selon la position du curseur de la souris
Réponses
5
Affichages
1 K
Dranreb
A
  • Question Question
Autres EXCEL 2024-Formule complexe - demande d'aide - solution
Réponses
1
Affichages
500
Dranreb
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
481
p56
W
  • Question Question
XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf
Réponses
10
Affichages
959
TooFatBoy
J
  • Question Question
XL 2016 Affichage onglets d'un classeur dans la listbox d'un userform
Réponses
2
Affichages
767
jeff2318
J
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
363
Phil69970
O
  • Question Question
XL 2019 Edité en PDF une feuille Excel à travers Userform
Réponses
6
Affichages
670
kiki29
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
685
job75
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
569
tactic6
  • Résolu(e)
XL 2013 (RESOLU) Imprimer par ComboBox des plages
Réponses
13
Affichages
606
Hamadou
H
J
  • Question Question
XL 2016 Erreur à l'ouverture d'un UserForm (impossible définir propriété ColumnWidths)
Réponses
2
Affichages
704
jeff2318
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…