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 :

[XL-2007] Ajouter un agent


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Mars 2016
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services à domicile

    Informations forums :
    Inscription : Mars 2016
    Messages : 10
    Par défaut [XL-2007] Ajouter un agent
    Bonjour,

    Je me met depuis lundi au VBA dans Excel afin de créer une macro. Je pense avoir bien avancé, mais il me manque encore pas mal de choses.

    Dans une feuille excel, j'ai besoin d'insérer un nouvel agent, avec en première colonne DOE JOHN, en seconde colonne JDO (première lettre du prénom et deux première lettre du nom), et enfin en troisième colonne jdoe@email.fr

    Jusqu'à maintenant, j'ai créé le formulaire qui va bien, mais mieux que des mots, voici le code que j'ai jusqu'à présent :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Option Explicit 
    Dim Ws As Worksheet 
     
    'Correspond au programme du bouton ANNULER
    Private Sub CommandButton2_Click()
    Unload Me
    End Sub
     
    'Correspond au programme du bouton VALIDER
    Private Sub CommandButton1_Click()
     
    Dim L As String
     
    If MsgBox("Ajouter ce nouvel agent ?", vbYesNo, "Demande de confirmation") = vbYes Then
    L = Sheets("Feuil1").Range("a100").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
     
     
    Range("A" & L).Value = TextBox1 'Insère la donnée de la textbox1 dans la colonne A (NOM)
    Range("B" & L).Value = TextBox2 'Insère la donnée de la textbox1 dans la colonne B (PRENOM)
     
    End If
     
    Unload Me ' Vide et ferme l'Userform ( formulaire)
     
    End Sub
    Pour être tout à fait honnête, je n'ai aucune idée du chemin à suivre désormais.

    Lorsque l'on exécute le formulaire, il y a bien le nom dans la colonne A, le prénom dans la colonne B, et.... et c'est tout....

    J'ai besoin de votre aide pour que le prénom se mette dans la même cellule que le nom
    | DOE | JOHN | ----> | DOE JOHN |

    Ensuite, récupérer la première lettre du prénom, les deux premières lettres du nom, pour créer un trigramme dans la colonne B
    | DOE JOHN | JDO |

    Finalement, dans la troisième colonne, mettre l'email au format
    | DOE JOHN | JDO | jdoe@email.fr |

    Sachez qu'il y a un Kinder Surprise (ou Kinder Bueno, c'est selon) en jeu, pour celui (ou ceux) qui m'aidera (m'aideront) à finaliser ce projet

    Merci d'avance pour toute l'aide que vous pourrez m'apporter

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,

    essayes ce code (vite fait donc erreur possible) et reviens dire si ça va
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub CommandButton1_Click()
    Dim L As Range
     
    If MsgBox("Ajouter ce nouvel agent ?", vbYesNo, "Demande de confirmation") = vbYes Then
      With Sheets("Feuil1")
        Set L = .Range("A" & .Rows.Count).End(xlUp)(2) 'donne la preiere cellule vide dans une variable
        L = textbox1 & " " & textbox2
        L(1, 2) = Left(textbox2, 1) & Left(textbox1, 2)
        L(1, 3) = Left(textbox2, 1) & textbox1 & "@email.fr"
     End With
    End If
     
    Unload Me ' Vide et ferme l'Userform ( formulaire)
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre averti
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Mars 2016
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services à domicile

    Informations forums :
    Inscription : Mars 2016
    Messages : 10
    Par défaut
    Bonsoir casefayere,

    Merci pour ton retour rapide.

    Je viens de tester ton code, c'est exactement ce dont j'ai besoin !!

    PS : Si tu es toujours intéressé par un Kinder Surprise, envoi ton adresse en MP

    Encore une fois, merci beaucoup pour ton aide. Je vais décortiquer ton code pour tenter de comprendre ce qu'il contient

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Je vais décortiquer ton code pour tenter de comprendre ce qu'il contient
    si tu veux, je te le renvoie avec explications, merci pour le kinder mais je ne mange jamais de bonbons.

    Ps : comme je suis bien luné
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    If MsgBox("Ajouter ce nouvel agent ?", vbYesNo, "Demande de confirmation") = vbYes Then
      With Sheets("Feuil1") 'evite de répéter mais ne pas oublier le "." devant les "Range" ou "Row"
        Set L = .Range("A" & .Rows.Count).End(xlUp)(2) 'donne la premiere cellule vide dans une variable "Range" _
                                                      donc "set" devant, ce n'est plus un n° de ligne _
                                                      le "(2) derriere signifie la premire vide, si je ne mets rien _
                                                      c'est la dernière pleine
        L = TextBox1 & " " & TextBox2 'donc les valeurs des textbox dans "L", soit la première cellule vide
        'ci-dessous L(1,2) donc même ligne mais 1 colonne plus loin
        L(1, 2) = Left(TextBox2, 1) & Left(TextBox1, 2) '"Left" pour gauche bien sur et "1" pour 1 caractère
        'ci-dessous L(1,3) donc même ligne mais 2 colonnes plus loin
        L(1, 3) = Left(TextBox2, 1) & TextBox1 & "@email.fr"
     End With 'ne pas oublier
    End If
    'pas plus difficile que ça
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  5. #5
    Membre averti
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Mars 2016
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services à domicile

    Informations forums :
    Inscription : Mars 2016
    Messages : 10
    Par défaut
    Bonjour casefayere,

    Merci énormément pour tes explications, on ne peut faire plus clair

    <3

  6. #6
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour le forum, markvador49,

    pas de quoi, si tu penses que ton probleme est résolu, penses à cliquer sur
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

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

Discussions similaires

  1. Ajouter un serveur d'index sur MOSS 2007
    Par NiRoM dans le forum Installation
    Réponses: 12
    Dernier message: 21/08/2008, 17h43
  2. Réponses: 2
    Dernier message: 13/03/2008, 16h33
  3. [MOSS 2007]Ajouter trace log sharepoint
    Par mschoum dans le forum SharePoint
    Réponses: 3
    Dernier message: 05/02/2008, 19h28
  4. Réponses: 2
    Dernier message: 05/11/2007, 13h25

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