Claudy XLDnaute Accro 13 Juin 2012 #1 Bonjour, un tableau rempli via un USF... Ce tableau comporte plus de 2000 lignes et sur 8 colonnes. M'est t il possible de faire apparaitre une alerte (Msgbox), si dans mon usf, j'introduit un montant (Colonne F:F) en doublon? Merci d'avance, Claudy
Bonjour, un tableau rempli via un USF... Ce tableau comporte plus de 2000 lignes et sur 8 colonnes. M'est t il possible de faire apparaitre une alerte (Msgbox), si dans mon usf, j'introduit un montant (Colonne F:F) en doublon? Merci d'avance, Claudy
mintri XLDnaute Occasionnel 13 Juin 2012 #2 Re : Msgbox si doublon Bonjour Claudy, Aurais-tu un fichier "exemple" pour investiguer davantage ? Vote positif 0 Vote négatif
V Vorens XLDnaute Occasionnel 13 Juin 2012 #3 Re : Msgbox si doublon Hello Claudy, Tout simplement en effectuant un find sur ta colonne. Exemple de syntaxe: Code: Set ObjetExist = Workbooks("Mon Classeur").Sheets("Ma Table").Range("F" & "1").EntireColumn.Find(MaRecherche, lookat:=xlWhole) Bien sure remplacer "mon Casseur" / "Mon Table" et "ma recherche" ainsi que la lettre de la colonne ou doit s'effectuer la recherche Apres en fonction du résultat tu enregistre ou tu met la message box Code: If ma recherche Is Nothing Then 'Code pour enregistrer Else msgbox ("BOULONS") End If Meilleures salutations Vorens Vote positif 0 Vote négatif
Re : Msgbox si doublon Hello Claudy, Tout simplement en effectuant un find sur ta colonne. Exemple de syntaxe: Code: Set ObjetExist = Workbooks("Mon Classeur").Sheets("Ma Table").Range("F" & "1").EntireColumn.Find(MaRecherche, lookat:=xlWhole) Bien sure remplacer "mon Casseur" / "Mon Table" et "ma recherche" ainsi que la lettre de la colonne ou doit s'effectuer la recherche Apres en fonction du résultat tu enregistre ou tu met la message box Code: If ma recherche Is Nothing Then 'Code pour enregistrer Else msgbox ("BOULONS") End If Meilleures salutations Vorens