[XL-2007] Ajouter un agent

Version imprimable

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:

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

Bonjour,

essayes ce code (vite fait donc erreur possible) et reviens dire si ça va

Code:

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)

03/03/2016, 17h35
markvador49

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 :)

Citation:

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:

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

04/03/2016, 12h49
markvador49

Bonjour casefayere,

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

<3
04/03/2016, 12h53
casefayere

Bonjour le forum, markvador49,

pas de quoi, si tu penses que ton probleme est résolu, penses à cliquer sur :resolu: