Exercice VBA Excel sur le NOM PRENOM

Exercice VBA Excel sur le NOM PRENOM - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 23-05-2013 à 20:24:04   

Reply

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 :
  1. Private Sub valider_Click()
  2.     a = InStr(saisienomcomplet.Value, " " )
  3.      
  4.     If a = 0 Then
  5.         MsgBox "Vous n'avez pas respecté la consigne !"
  6.        
  7.     Else
  8.         Me.Hide
  9.            nom = UCase(Left(saisienomcomplet.Value, a - 1))
  10.         prenom = UCase(Right(saisienomcomplet.Value, Len(saisienomcomplet.Value) - a))
  11.         MsgBox "Votre nom est " & nom & " et votre prénom est " & prenom & " …"
  12.         Unload Me
  13.     End If
  14. End Sub


           Autre solution :

             prenom = UCase(Mid(saisienomcomplet.Value, a + 1))


           Et voici ma solution :

Code :
  1. Private Sub valider_Click()
  2.     NP = Split(UCase(Application.Trim(saisienomcomplet.Value)))
  3.     If UBound(NP) = 1 Then
  4.         Me.Hide
  5.         MsgBox "Votre nom est " & NP(0) & " et votre prénom est " & NP(1) & " …"
  6.         Unload Me
  7.     Else
  8.         Beep
  9.         MsgBox "Vous n'avez pas respecté la consigne !"
  10.     End If
  11. End Sub


Message édité par Marc L le 23-05-2013 à 21:39:17
Reply

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


Message édité par killerbot le 23-05-2013 à 21:44:55
Reply

Marsh Posté le 23-05-2013 à 21:54:51    

 
           Aide pour une instruction particulière :  positionner le curseur dessus puis appuyer sur la touchehttp://www.developpez.net/forums/images/smilies/f1.gif!
 

Reply

Marsh Posté le 23-05-2013 à 22:07:45    

Mais ils disent pas à quoi sert le NP ? (introuvable) oO

Reply

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 ?
 
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed