• italian
  • german
  • swedish
S'inscrire à la newsletter:
Rechercher dans le site:
*
Bienvenue, Invité. Veuillez vous connecter ou vous inscrire.
Avez-vous perdu votre courriel d'activation?
02 Décembre 2008 à 23:18:12

Connexion avec identifiant, mot de passe et durée de la session



 
« sujet précédent | | sujet suivant »
Pages: [1] Imprimer
Auteur Fil de discussion: VBA sur excel  (Lu 420 fois)
besoindaide
Nouveau membre
*

Points gagnés: 0
Messages: 2


Voir le profil
« le: 18 Mai 2008 à 14:48:43 »

Bonjour,
Je suis étudiante et je dois réaliser un programme : un palindromisateur : Il doit reconnaitre si la chaîne saisie est un palindrome et le programme doit pouvoir GENERER un palindrome.
Je ne sais pas par où commencer. Pouvez vous m'aider ?
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Journalisée
mathias
Intarrisable
*****

Points gagnés: 1
Messages: 528



Voir le profil WWW
« Répondre #1 le: 20 Mai 2008 à 21:38:30 »

Bonjour;

On est bien daccord qu'un Palindrome est une phrase de ce type:

"un art luxueux ultra nu"

?
Journalisée

besoindaide
Nouveau membre
*

Points gagnés: 0
Messages: 2


Voir le profil
« Répondre #2 le: 21 Mai 2008 à 13:46:46 »

C'est bien ça... J'ai réussi à créer un programme VBA sur excel qui dit si un mot est ou pas un palindrome mais je ne trouve pas pour une phrase ni comment il peut en générer...
Voici le programme que j'ai fait :

Private Sub CommandButton1_Click()
Dim leMot As String
  leMot = TextBox1.Value
 
     If leMot = StrReverse(leMot) Then
     MsgBox "Il s'agit d'un palindrome"
     Else
     MsgBox "Il ne s'agit pas d'un palindrome"
     End If
End Sub
« Dernière édition: 21 Mai 2008 à 13:56:03 par besoindaide » Journalisée
Touta
Rédacteur Modérateur
Intarrisable
*****

Points gagnés: 12
Messages: 1519



Voir le profil
« Répondre #3 le: 21 Mai 2008 à 22:29:09 »

Une petite coquine hein  Very Happy : http://www.commentcamarche.net/forum/affich-6462005-vba-sur-excel-besoin-d-aide
C'est pas gentil de faire faire ses devoirs par les autres. Very Happy
Journalisée

Thierry
Rédacteur Admin
Intarrisable
*****

Points gagnés: 12
Messages: 1436



Voir le profil
« Répondre #4 le: 22 Mai 2008 à 07:43:30 »

Bonjour,

Je ne suis as sûr que strReverse gère les espaces et les caractères spéciaux (acccents, cédille...).
Ainsi dans l'exemple donné par Mathias est-ce que le résultat retourné par "If leMot = StrReverse(leMot) Then" est celui attendu (true)?

Sous cette réserve, l'utilisation de strReverse pour créer un palindrome serait :

Code:
Dim leMot As String
  leMot = TextBox1.Value
  leMot = leMot & StrReverse(leMot)

Mais :
1 - il faut d'abord saisir un texte : je vois mal comment Excel pourrait générer lui-même un texte, en tout cas un texte cohérent
2 - le palindrome a de forte chance de ne rien signifier

A part saisir une série de palindromes et les stocker dans un tableau qui serait lu aléatoirement....
Mais je pense que l'exercice a plus vocation à travailler sur les chaînes de caractères que de faire de la subtilité littéraire.

Journalisée
Pages: [1] Imprimer 
« sujet précédent | | sujet suivant »
Aller à:  

Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC