Discussion :

[Maxence45]

Bonsoir , j'ai essayé d'écrire une fonction itérative qui renvoit l'inverse d'une chaine de caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function miroirChaine(ByVal s As String) As String
Dim i As String
For i = Left(s, 1) To Mid(s, 2)
    s = Mid(s, 2) + Left(s, 1)
Next i
miroirChaine = s
End Function

et j'ai une incompatibilité de type à la compilatio , elle est dans le for , pourtant j'ai bien précisé que i était de type string , quelqu'un a une explication ?

merci

[Mytå_Qc]

Salut le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i As String ????

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function miroirChaine(ByVal s As String) As String
Dim i As Integer
Dim Texte As String
For i = 1 To Len(s)
    Texte = Mid(s, i, 1) + Texte
Next i
miroirChaine = Texte
End Function

Mytå_Qc

[Maxence45]

me donnant un code tout fait ne m'aide pas à comprendre mon erreur au contraire celà fait pire que mieux

[pgz]

Hello;

Dans une boucle For ... Next, il faut un compteur. Le compteur doit être un numérique!

Voici une fonction qui inverse une chaîne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function MiroirChaine(s As String) As String
Dim i As Integer, a As Integer, si As String
 
si = ""
a = Len(s)
 
If a > 0 Then
    For i = 1 To a
        si = si & Mid(s, a - i + 1, 1)
    Next i
End If
 
MiroirChaine = si
End Function

Bon courage,

PGZ

[Maxence45]

alors pgz j'ai quelques petites questions sur ton code :

1. pourquoi définir une variable si de type chaine et l'initialiser en si = "" , il aurait suffit d'utiliser 's' directement , non ?

ensuite , voici un code similaire au tien mais je pense plus "propre" tu me diras ce que t'en penses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function miroirChaine(ByVal s As String) As String
Dim i As Integer, a As Integer, cool As String
a = Len(s)
    For i = 1 To Len(s)
    cool = Mid(s, i, 1) & cool
    Next i
    miroirChaine = cool
End Function

dans ce code j'aurais justement aimé savoir à quoi sert le & cool , merci

[Mytå_Qc]

Salut le forum

Maxence45 essayer de fairer rouler le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub essai()
Dim I As String
For I = a To z
Next I
End Sub

Tu vois bien que Dim I as String n'avait pas de sens

Mytå_QC

[fred65200]

bonjour Maxence45, le fil


dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function miroirChaine(ByVal s As String) As String
Dim i As Integer, a As Integer, cool As String
a = Len(s)
    For i = 1 To Len(s)
    cool = Mid(s, i, 1) & cool
    Next i
    miroirChaine = cool
End Function

Tu initialises une variable (a) et ne t'en sers pas dans ta fonction.
Tu devrais écrire cool = ""

le & cool te sert à concaténer ta chaîne de retour, si tu ne le met pas, le résultat sera le dernier caractère.

Pour mieux comprendre, je te mets la même fonction mais qui passe du dernier caractère au premier et non du premier au dernier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Function miroirChaine(s As String) As String
Dim i As Integer
miroirChaine  = ""
For i = Len(s) To 1 Step -1
     miroirChaine = miroirChaine & Mid(s, i, 1)
Next i
End Function

Ici, si tu ne mets pas miroirChaine &, la fonction te renverra uniquement le premier caractère.

l'éperluète (&) comme le signe + permettent de concaténer les chaînes

par exemple le mot "MOT" avec ta fonction
cool = "" --> i = 1 --> cool = M (M & "")
cool = M --> i = 2 --> cool = OM (O & M)
cool = OM --> i = 3 --> cool = TOM (T & OM)

avec la seconde fonction
miroirChaine = "" --> i = 1 --> miroirChaine = T ( "" & T)
miroirChaine = T --> i = 2 --> miroirChaine = TO (T & O)
miroirChaine = TO --> i = 3 --> miroirChaine = TOM (TO & M)

les résultats sont les mêmes

le mot RADAR te renverra RADAR, c'est un palindrome.
tu peux donc créer une fonction qui vérifie si ta chaîne est un palindrome.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Text
' Option Compare Text à placer en haut de module, dans les déclarations
' pas de différences entre majuscule et minuscule
Function EstPalindrome(maChaine As String) As Boolean
'on retire les espaces pour comparer
EstPalindrome = Replace(maChaine, " ", "") = Replace(miroirChaine(maChaine), " ", "")
End Function
Sub Test()
Dim maStr As String
Dim OuiNon As String
maStr = "Engage le jeu que je le gagne"
OuiNon = IIf(EstPalindrome(maStr), "est ", "n'est pas ")
MsgBox """" & maStr & """ " & vbLf & OuiNon & "un palindrome."
End Sub

De nouvelles pistes à explorer...

NB as tu installé l'aide VBA?
cordialement

[SilkyRoad]

bonjour à vous

Bonsoir , j'ai essayé d'écrire une fonction itérative qui renvoit l'inverse d'une chaine de caractère :

pour info, il existe une fonction VBA qui fait cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox StrReverse("developpez")

bonne journée
michel