IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Rajout via USF sans doublon


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 10
    Par défaut Rajout via USF sans doublon
    Salut,

    J'ai une feuille que je renseigne à l'aide d'un USF
    J'aimerais que si mon textbox(FC_Short) corresponde à une valeur déjà existente dans la 1ére colonne de ma feuille("Dimension") qu'un message m'en avertisse...

    Merci de m'aider

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Utilise une recherche de la valeur avec "Find". Tu as un excellent exemple dans l'aide en ligne sur ce mot.

  3. #3
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 10
    Par défaut ???
    Je ne vois pas trop comment faire,

    pourrais tu m'aider un peu plus...

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim trouve as range
    with Worksheets("Nom de la feuille").range("A1:A" & Range("A65536").end(xlup).row)
        Set trouve = .Find(Textbox1.text, lookin:=xlValues, Lookat:=xlwhole)
        If Not trouve Is Nothing Then msgbox "Valeur trouvée"
    End with
    Mais il serait bien que tu essaies de comprendre le code

  5. #5
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 10
    Par défaut merci
    je suis pas expert mais j'essaie de faire par étape

    il y certaine fonction que je ne connais pas ou que je ne métrise pas...

    j'ai compris le code et il ne marchait pas car je me suis trompé de feuille

    merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] USF / .Controls / tags / remplir Combobox sans doublon et classer
    Par GADENSEB dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/03/2015, 21h51
  2. [XL-MAC 2011] Remplissage Zone de liste déroulante sans doublons & non vides via VBA
    Par SuperKiwi dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/03/2014, 20h29
  3. remplir un tableau sans doublons ...
    Par ryo-san dans le forum C
    Réponses: 22
    Dernier message: 10/11/2005, 12h43
  4. [Postgresql] insertion sans doublon
    Par Pwill dans le forum Décisions SGBD
    Réponses: 3
    Dernier message: 08/06/2005, 11h37
  5. Comment mettre à jour une ligne sans doublon via déclencheur
    Par fuelcontact dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 02/08/2004, 15h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo