Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1808 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Exercice VBA Excel sur le NOM PRENOM

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Exercice VBA Excel sur le NOM PRENOM

n°2191564
killerbot
Posté le 23-05-2013 à 20:24:04  profilanswer
 

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

mood
Publicité
Posté le 23-05-2013 à 20:24:04  profilanswer
 

n°2191568
Marc L
Posté le 23-05-2013 à 21:31:44  profilanswer
 

 
           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
n°2191569
killerbot
Posté le 23-05-2013 à 21:40:41  profilanswer
 

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
n°2191571
Marc L
Posté le 23-05-2013 à 21:54:51  profilanswer
 

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

n°2191574
killerbot
Posté le 23-05-2013 à 22:07:45  profilanswer
 

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

n°2191580
Marc L
Posté le 24-05-2013 à 00:28:23  profilanswer
 

 
           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 ?
 
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Exercice VBA Excel sur le NOM PRENOM

 

Sujets relatifs
Style TCD en VBARegrouper plusieur excel dans un seul .xlsx
VBA extraction d'une chaine à partir d'une autre chaineProjet VBA : Simulation d'un jeux de poker
graphe a partir d'excel par VBAListe déroulante & Autofilter VBA
Code VBA pour coller un tableau excel dans corps de mail OutlookProbleme sur Macro Excel 2010
Plus de sujets relatifs à : Exercice VBA Excel sur le NOM PRENOM


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR