Résultats pour "combobox eviter doublons"

2'233 résultats pour cette recherche

Bonjour,

Dans le fichier joint, un userform comportant 5 Combobox. (Cbx)

La liste qui permet de les charger ne comporte que 4 choix...

Donc, dès qu'on fait un choix dans un Cbx, ce choix n'est plus disponible pour les autres Cbx.

Si on efface ce Cbx, alors ce choix est de nouveau possible.

Si on a rempli les 4 Cbx, plus aucun choix possible... Et le 5ème Cbx n'est plus disponible.

Si on efface l'un des 4, retour à la normale.

On peut mettre autant de Cbx qu'on veut, la liste est modulable à souhait.

Ce fichier comporte un module de classe pour gérer les Cbx

Bonne lecture

Bonjour,

Dans mon fichier joints j'ai un code qui est censé me permettre d'éviter de saisir des doublons si les 4 combobox ont déjà été saisis ensemble sur la même ligne mais cela ne fonctionne pas voici le code :

For i = 7 To Sheets("Tableau").Range("A65536").End(xlUp).Row
        If Sheets("Tableau").Range("A" & i) = Me.ComboBox5.Value _
        And Sheets("Tableau").Range("E" & i) = Me.ComboBox2.Value _
        And Sheets("Tableau").Range("F" & i) = Me.ComboBox4.Value _
        And Sheets("Tableau").Range("G" & i) = Me.ComboBox3.Value Then
               MsgBox "Cet element a déjà été saisi, vous pouvez utiliser la barre de recherche (Ligne 2) pour le modifier."
            Exit Sub
        End If
    Next 
2test-doublons.zip (314.73 Ko)

Je vous joints également un fichier, merci pour votre aide !

Bonjour,

TABprestataire est mon tableau de facturation : avec différents prestataires de services sur une année.

  • Prestataire de service en première colonne
  • Année = 12 mois, sur les 12 prochaines colonnes.

Ce tableau est évolutif : Il peut, durant une année, y avoir un AJOUT ou une SUPRESSION de prestataire (donc de ligne).

Des boutons / Macros (« Ajout prestataires » et « Suppression prestataire ») sont là pour cela.

Problématique :

  • Lors d’un ajout : Ma macro ne vérifie pas si la « valeur » est déjà présente. Et auquel cas, mettre une msgbox disant « le prestataire est déjà présent » serait l'idéal.
  • Lors de la suppression : si l’utilisateur écrit depuis la msgbox un prestataire inexistant ou mal orthographié, ma macro bug.

Dans ce cas j’aimerais savoir comment faire pour : exit sub suivi d’une msgbox « prestataire inexistant. Vérifiez l’orthographe. »

Ajout :

Sub INPBX_AJOUT_PRESTATAIRE()

'********************************
'Procédure permettant d'incrémenter automatiquement le tableau TABprestations avec
'le nouveau prestataire depuis la saisie de l'INPUTBOX
'********************************

Range("B15").End(xlDown)(2) = InputBox("Ajouter votre nouveau prestataire.", "Ajout prestataire.")

End Sub

Suppression:

Sub INPBX_SUPPRESSION_PRESTATAIRE()

'***********************************
'Définition des variables
'***********************************

Dim code As String
Dim CellTrouvee As Range

'***********************************
'Rechercher dans le tableau TABprestations
'le prestataire à supprimer depuis une inputbox
'***********************************

code = InputBox("Saisir la prestation à supprimer.", "Suppression prestataire")

If code = "" Then Exit Sub

Set CellTrouvee = Range("B:B").Find(what:=code, LookIn:=xlValues, lookat:=xlWhole)

    If Application.WorksheetFunction.CountIf(Range("B15:B" & Cells(Rows.Count, "B").End(xlUp).Row), code) = 0 Then
        MsgBox "Prestataire introuvable. Vérifeir l'orthographe."
        Exit Sub
    End If

'If Application.WorksheetFunction.CountIf(Range("   chercher dans la colonne 1 du tableau " TABprestations"  " & Cells(Rows.Count, "B").End(xlUp).Row), code) = 0 Then
'   MsgBox "Prestataire introuvable. Vérifeir l'orthographe."
'    Exit Sub
'End If

CellTrouvee.EntireRow.Delete

End Sub

Je vous remercie d’avoir pris le temps de me lire et pour votre future réponse.

Au plaisir de vous lire.

Amicalement.

Ps : je joint le fichier avec le tableau et les macros.

Bonjour

Je suis en train de créer une base de données et j'aimerais que le code CAP (voir PJ) se génère automatiquement via les informations issus des autres cellules. J'ai donc utilisé la formule concaténer =CONCATENER(GAUCHE(A2;3);"-";DROITE(L2;4);"-";GAUCHE(G2;4);"-001-") qui me donne un code CAP: AMI-2020-BOIN-001-

Le soucis c'est que j'ai des doublons lorsque je fais glisser ma série et je voudrais ajouter -01 ou -02 etc à la fin de chaque code CAP pour qu'ils soient différenciés AMI-2020-BOIN-001-01, j'ai mis une colonne de ce que j'aimerais obtenir que j'ai saisi manuellement mais j'aimerais que le CAP se génère tout seul pour que le format soit identique peut importe qui saisi les informations.

Je ne sais pas comment faire j’espère que c'est assez clair.

2 ème question qui n'a rien a voir est ce que vous savez pourquoi çà m'affiche =Tableau1[@NOMENCLATURE] au lieu de =K2 lorsque je veux saisir une formule??

Un grand merci à vous pour votre aide

1cap.xlsx (15.72 Ko)

Bonjour à toute la communauté !

Je viens de créer le squelette d'un document qui va servir au suivi de la formation professionnelle. Le document est articulé de la façon suivante.

"Suivi des formations" -> il y aura un UserForm avec deux listes déroulantes. Une pour la recherche d'agents (environ 100 personnes) et une autre pour les formations environ (70).

L'onglet "Listes des formations" et "Agents" servent comme base de données et m'aideront pour mon analyse.

Aujourd'hui mon problème se situe plus au niveau de l'ergonomie du document. Chercher un agent parmi les 100 ou une formation pourrait avoir l'effet attendu inverse. Je cherche une solution simple rapide et ergonomique.

Je fais donc appel à vos connaissances et votre créativité. En vous remerciant d'avance pour contribution et le temps passé à m'aider.

Bien cordialement.

16test-fp.xlsm (42.26 Ko)

Bonjour le forum;

je suis toujours au niveau de mon application et je cherche de ne pas écrire des doublons au niveau de ma base BD, qui se trouve au niveau de mon fichier ci joint. Merci Pour votre aide.

29bd1.xlsb (651.11 Ko)

Bonjour,

quelqu’un peut me dire ce qui ne va pas dans mon code svp ?

il m'affiche tout le temps ce message même quand y a pas de doublons : Ce matricule existe déjà. Merci

Public Flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

If Flag Then Exit Sub

If Not Application.Intersect(Target, Columns("E")) Is Nothing Then

If Target.Count > 1 Then Exit Sub

If Application.CountIf(Range("E:E"), Target) > 1 Then

Flag = True

MsgBox ("Ce matricule existe déjà !")

Target.ClearContents

Flag = False

End If

End If

End Sub

14classeur1.xlsm (33.77 Ko)

bonjour;

je cherche une formule qui permet d'éviter des doublons sur la même colonne "H". ça d'une part

d'autre part mon fichier ne repond pas rapidement, je sais pas pourquoi.

voir fichier ci joint.

15comptabilite11.zip (123.53 Ko)

Bonjour,

Je dois actuellement mettre en place une base de données d'anciens étudiants de mon master sur Excel 2007.

En l'occurrence, je voudrais faciliter l'enregistrement et la mise à jour des étudiants de la base via un bouton "Enregistrer" après avoir complété tous les champs requis.

Ce qui me pose problème, c'est de trouver un code pour vérifier si le nom et le prénom existent déjà dans ma liste pour éviter les doublons. Le reste du code, je l'ai déjà fait.

Cette macro devrait être affectée au bouton "Enregistrer" faire ce chemin:

- Vérifier si le nom et le prénom existent déjà dans ma liste

--> Si oui: MsgBox "Cet étudiant est déjà inscrit dans la base de données. Voulez-vous le remplacer?"

---> Oui

---> Non

--> Si non: Remplacer dans la liste

Merci de vos réponses.

Bonjour ,

J'ai le code suivant :

 Dim j As Long

    For j = 1 To Range("A" & Rows.Count).End(xlUp).Row

         If Cells(j, "A").Value = Cells(j + 1, "A").Value Then
          j = j + 1
        End If

         If Application.CountIf(Range("C:C"), Cells(j, "A")) = 0 Then
            Range("D" & Rows.Count).End(xlUp)(2) = Cells(j, "A")

        End If

    Next j
        Range("D1") = "Ajout"

Il me permet de comparer deux classeurs entre eux mais je n'arrive pas a faire en sorte d'eviter les doublons, je m'explique

Je compare la colonne A avec la C, et je copie les valeurs de la colonne A ne se trouvant pas dans C .

le seul soucis c'est que je n'arrive pas a faire en sorte que les valeurs ne se repetent pas, j'aimerai eviter les doublons dans ma colonne D

quelqu'un a une idée de comment faire ? j'ai tenté le premier if mais il ne me fait rien...

Bonjour,

J'utilise un userform pour renseigner une feuille excel (Adhérents de club).

Si lors de l'enregistrement de la 1ére saisie je ne dispose pas de toutes les informations concernant 1 adhérent, comment puis-je faire pour qu'à l'enregistrement de la 2ème saisie de ce même adhérent (avec les infos manquantes), je ne crée pas de doublon mais que je renseigne les cellules vides de la feuille excel?

En utilisant comme référence le nom et prénom de l'adhérent.

Débutant en Vba, si quelqu'un pouvait m'aider...

Merci.

Bonsoir,

j'ai créé un userform contenant des listes déroulantes. Ces dernières se remplissent à partir de données rassemblées dans un tableau, par exemple le nom d'une personne. Le problème c'est que ce nom apparaît plusieurs fois dans la colonne du tableau mais je voudrais qu'il n'apparaisse qu'une seule fois dans la liste déroulante.

Comment faire?

Merci d'avance.

21test-doublons.xlsm (29.40 Ko)

Bonjour,

Pourriez-vous m'aider à améliorer ce générateur de conjugaison (trouvé sur

) ?

Je voudrais m'assurer qu'une même combinaison (verbe/pronom personnel) n'apparaisse pas deux fois. Soit en ajoutant une condition à la formule qui permet la génération aléatoire, soit en créant une cellule qui contrôle la présence de doublons en affichant VRAI ou FAUX.

141er-gpe.zip (23.78 Ko)

Bonsoir a tous.

j'aimerais savoir si il est possible d'éviter les doublons d'un menu déroulant intervenant sur plusieurs cellules du meme onglet.

Je m'explique : j'ai 3 menu déroulant comportant plusieurs thèmes. il y a 12 thèmes pour 12 cellules. Une macro à déja été crée, mais j'aimerais de temps en temps définir moi meme les thèmes dans les cellules et donc éviter les doublons.

Les cellules concerné par chaque thèmes sont :

Secourisme B6:D6 + B19:D19 + B42 + D42+ B55 : D55

Incendie B9:D9 + B22:D22 + B45:D45 + B58:D58

Specifique B32:D32

Es ce possible?

Merci à vous

Bonjour,

je n'arrive pas à programmer mon formulaire pour obtenir un message d'alerte en cas de saisie d'un doublon dans mon tableau d'ingrédients.

merci pour votre aide

Salut tout le monde,

j'ai une feuille que je remplisse via userform et je veux qu'un message apparaisse me disant que cet enregistrement existe , la collonne concernée c'est "B" ( numéro du chèque).

autre demande SVP, je veux que les données saisies ne soient valider que si les cases (NUMERO DU CHQ-BANQUE-NOM DU TIREUR - MONTANT)

43excel-pratique.xlsm (266.28 Ko)

merci pour votre aide.

Bonjour, j'ai une cellule dans mon tableau excel que contient un code unique c à d qu'il faut qu'il ne contient pas des doublons comment faire pour empcher mon formulaire deux saisir les doublons sur cette cellule

Bonjour,

J'ai crée une grille d'évaluation pour nos athlètes.

Le souci est que je n'arrive pas à éviter que les joueurs qui s'affichent lors du tri, soient des doublons lorsque la valeur qui leur est associée est identique à d'autres joueurs.

J'ai donc un tri avec parfois 2 ou 3 fois le même nom, et non pas deux ou trois noms différents comme je le souhaiterais.

Mon fichier étant trop lourd, je vous ai fait une copie allégée avec la formule qui ne me donne pas satisfaction.

L'onglet en question est marqué en rouge.

Merci d'avance pour votre aide,

Franck

17tri.xlsx (39.32 Ko)

Bonjour le forum,

J'utilise un fichier créé par Hervé le 31/01/2011, qui consiste à créer des feuilles de classeur au moyen d'un double clic,

Je souhaiterais qu'un msg s'affiche si le nom de la feuille créée existe déjà;

J'ai trouvé une macro qui émet ce genre de msg mais les feuilles sont créées avec un TexteBox et un commandButton que mon fichier ne reconnait pas.

Quel code dois-je écrire pour voir apparaître ce msg si un nouveau nom existe déjà.

Voici la macro avec un TextBox

'Création d'un objet Feuille

Private Sub CommandButton1_Click()

Dim Faute As Long

If Me.TextBox1 = "" Then Exit Sub

On Error Resume Next

Sheets(Me.TextBox1.Text).Visible = True

Faute = Err.Number

On Error GoTo 0

If Faute > 0 Then

Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = Me.TextBox1

Else

MsgBox "Feuille existante"

End If

End Sub

Merci de bien vouloir m'aider encore une fois.

Amicalement, Papy Pierrot

Bonjour

Pour mon suivi pro je renseigne un tableau de divers info . Comme la date , le nom et un n° de Bon de livraison

Existe t il une formule pour éviter les doublons de n° de BL dans une colonne ?

Et comment peut on faire un compteur a rebours genre combien de jours il me reste entre aujourd hui et une date précise ...

Merci d avance .

Richard

Recherches récentes

extraire liste multiple critereextraire liste fonction multiple criterecopier coller entre fichiers nouvellement ouvertworkbooksworkbooks activatetresorerieajout ligneprevisionnel tresorerievba color plage date double conditioncolonne vbadimspin textspinmail graphiquesharepointsciapiprotectedafficher imageentre date