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

[RESOLUTO]PBLM avec l'affichage des doublants[Résolu]

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

Ilino

XLDnaute Barbatruc
CIAO FORUM

Dans mon USF nouveau contrat, je souhaite supprimer les doublants jusqu'à mnt ça fonctionne selon le code ci-dessous
Code: 
Private Sub ComboBox2_Change()
Dim n As Integer
Me.TextBox3 = "Ajouter Nouveau Contrat !!!"
  For n = 2 To 50
  If ComboBox2.Value = Sheets("MARCHE DD").Range("A" & n).Value Then
  'MsgBox "Ce Contart existe déjà dans la liste !", , "ATTENTION !"
    Me.TextBox3 = "Ce Contart existe déjà dans la liste !"
      
        With ComboBox2
        .Value = ""
        .SetFocus
        Me.ComboBox1 = Sheets("MARCHE DD").Range("b" & n).Value
        Me.TextBox2 = Sheets("MARCHE DD").Range("C" & n).Value
        CommandButton1_valider.Visible = False
  End With

  Exit Sub
End If
  Next n
End Sub


Mais mon souci dans ce code je l’explique par un exemple
Supposons qui j’ai déjà un contrat 12/ITA/2014 ,Je souhaite ajouter un autre contrat 12/ITA/2014 V1 il n’accepte pas pourquoi, puis je avoir votre remarques


grazie
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : PBLM avec l'affichage des doublants

Bonsour®
supprimer et remplacer la procédure : Private Sub ComboBox2_Change()

par

VB: 
Private Sub ComboBox2_AfterUpdate()
Dim n As Integer
Me.TextBox3 = "Ajouter Nouveau Contrat !!!"
CommandButton1_Valider.Visible = True
If Len(ComboBox2.Value) > 2 Then
   For n = 2 To 50
        If ComboBox2.Value = Sheets("MARCHE DD").Range("A" & n).Value Then
            MsgBox "Ce Contart existe déjà dans la liste !", , "ATTENTION !"
            Me.TextBox3 = "Ce Contart existe déjà dans la liste !"
          
            With ComboBox2
                    .Value = ""
                    .SetFocus
                    Me.ComboBox1 = Sheets("MARCHE DD").Range("b" & n).Value
                    Me.TextBox2 = Sheets("MARCHE DD").Range("C" & n).Value
                    CommandButton1_Valider.Visible = False
            End With
    
            Exit Sub
        End If
  Next n
  End If
End Sub

nb : je n'ai pas vérifier pourquoi les listes des ComboBox ne sont alimentées
 
Vote positif 0 Vote négatif
Re : PBLM avec l'affichage des doublants

Bonjour à tous


Ilino
Cela ne fera pas mieux marcher le code VBA mais ce sera plus juste 😉

Remplacer
Ce Contart existe déjà dans la liste
par
Ce Contrat existe déjà dans la liste

NB: La coquille était déjà dans ton code initial 😉
 
Vote positif 0 Vote négatif
Re : PBLM avec l'affichage des doublants

Bonjour ODESTE
MERCI pour la réponse mais ça n'a pas fonctionné , il reconnu pas les doublants ??
grazie
 
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

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
592
un internaute
U
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
544
firecarl
F
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
386
lestoiles1
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
731
Oneida
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
688
florian50470
F
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
G
  • Question Question
XL 2021 Dictionnaire - Calcul ne s'effectue pas
Réponses
2
Affichages
472
gvives
G
C
  • Résolu(e)
Autres gestion bibliothèque avec lecteur code barre
2
Réponses
21
Affichages
3 K
Chatron
C
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
750
loreak
L
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
C
  • Résolu(e)
XL 2016 erreur d’exécution 1004 lors d'une importation
Réponses
5
Affichages
776
chingilou
C
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
S
  • Question Question
XL 2019 Pièces jointes avec thunderbird
Réponses
7
Affichages
2 K
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…