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 :

Modification de donnée à partir d'un UserForm


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 15
    Par défaut Modification de donnée à partir d'un UserForm
    Bonjour,

    Je suis dans la phase d'élaboration d'un fichier pour pouvoir gérer les clients que mon entreprise reçoit.
    Pour cela j'ai crée pour les nouveaux clients un premier UserForm. Qui fonctionne même si j'aimerais dans un second temps qu'il accorde lorsque j'accepte une numéro à chaque client pour les rendre unique.
    Mais cela fera plus l'objet d'une seconde discussion, car ce n'est pas le plus Urgent.

    La où le bas blesse, c'est comment es que je peux faire pour avoir un UserFrom pour modifier mes données. Quel est le code que je pourrais mettre (je suis nul en code, c'est pas mon JOB )?
    Pour un peu plus d'explication, il faut que m'on second (ou le même que pour l'ajout) userform puisse modifier la même base de donnée que celle de l'ajout.

    Je vous remercie de votre aide toujours précieuse.
    Désolé mon meilleur ami l'orthographe n'est pas à coté de moi donc s'il y a quelques fautes ne m'en tenez par rigueur

    A bientôt

  2. #2
    Invité
    Invité(e)

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Février 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 15
    Par défaut
    Bonjour il est trop cool votre classeur j'ai réussi a faire ce que je voulais.

    Mais il y a un gros bug, la ou je bosse on a tous des mac et les fonctions recherches ne fonctionne pas.

    Pouvez vous m'aider?

    Encore merci pour tout

    Benoit

  4. #4
    Invité
    Invité(e)
    Par défaut
    bonjour,
    je ne suis pas très documenter sure mac!

    ma macro utilise la méthode suivant de la recherche, utilise l'enregistreur de macro pour faire une recherche, et e ensuite click sur suivant pour rechercher une deuxième occurrence! arrête l'enregistreur de macro et poste le code généré par ton mac je regarderais le résultat pour le modéliser!

    j'utilise le on error resume next si ça ce trouve c'est là que le bas blesse! dis moi la ligne qui pose problème, peur être que des pro de Mac aurons une réponse!

    Code Pour ceux qui aurons une réponse : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
    On Error Resume Next
    SerchXls = 0
       SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=EntierCell).Row
      If SerchXls <= MyCellule.Row Then SerchXls = 0
    End Function
    Dernière modification par Invité ; 13/10/2015 à 10h36.

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Février 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 15
    Par défaut
    Voici le code proposer par mac:
    Voici que pour la recherche sans rien mettre dans l'onglet recherche
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells.FindNext(After:=ActiveCell).Activate
    Voici en y mettant quelque chose:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
        Cells.Find(What:="pey", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
            .Activate

Discussions similaires

  1. Aide pour recherche d'une donnée à partir d'un UserForm
    Par mdeb678 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/03/2013, 21h00
  2. Modification des données à partir d'un dataGridview
    Par oussouss dans le forum Windows Forms
    Réponses: 0
    Dernier message: 30/04/2010, 18h15
  3. Réponses: 0
    Dernier message: 28/04/2010, 08h02
  4. enregistrer modifs de données dans userform
    Par Arobase72 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 22/12/2009, 18h18
  5. Réponses: 11
    Dernier message: 25/07/2006, 21h46

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