Exercice VBA Excel sur le NOM PRENOM - VB/VBA/VBS - Programmation
Marsh Posté le 23-05-2013 à 21:31:44
Bonjour.
Merci d'utiliser pour poster un code la prochaine fois l'icône prévu à cet effet …
Pour le nom c'est bon et tu n'étais pas loin pour le prénom …
Code :
|
Autre solution :
prenom = UCase(Mid(saisienomcomplet.Value, a + 1)) |
Et voici ma solution :
Code :
|
Marsh Posté le 23-05-2013 à 21:40:41
En fait c'est la première fois que je poste un sujet dans cette section Désolé.
Pour le code je vais de ce pas le tester et j'te tiens au courant
EDIT : QU'est-ce que ca veut dire ces lignes de code au juste ?
NP = Split(UCase(Application.Trim(saisienomcomplet.Value)))
If UBound(NP) = 1 Then
Me.Hide
Marsh Posté le 23-05-2013 à 21:54:51
Aide pour une instruction particulière : positionner le curseur dessus puis appuyer sur la touche!
Marsh Posté le 24-05-2013 à 00:28:23
Ben alors, à quoi sert le signe égal qui suit NP ? Que ce soit dans ton code comme dans le mien, d'après toi ?
Et puis rien qu'en comparant la ligne n°6 du code de ma solution avec ton code, t'as la réponse, non ?
Marsh Posté le 23-05-2013 à 20:24:04
Bonjour,
j'essaie de faire un exercice commencé en classe et qu'il faut tester chez soi (Visual Basic pour Excel).
Le programme consiste à déterminer le nom et le prénom après avoir écrit sous la forme "NOM PRENOM" dans la Textbox (ou inputbox) puis on affecte une variable a qui "recherche l'espace dans la box" :
Private Sub valider_click()
a = InStr(saisienomcomplet.Value, " " )
nom = UCase(Left(saisienomcomplet.Value, (a - 1)))
prenom = UCase(Right(saisienomcomplet.Value, (saisienomcomplet.Value - nom - 1)))
If nomcomplet = "" Then
MsgBox "Vous n'avez rien écrit. Respectez la consigne"
Else: MsgBox "Votre NOM est " & nom & "et votre Prénom est " & prenom
End If
End Sub
Si vous pouviez m'aider, j'arrive vas à le faire fonctionner :S
Merci de votre aide