incompatibilité de type

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

Code:

---

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

Salut le forum

Code:

---

Dim i As String ????

---

A tester

Code:

---

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

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

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:

---

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

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:

---

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

Salut le forum

Maxence45 essayer de fairer rouler le code suivant

Code:

---

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

bonjour Maxence45, le fil


dans ton code

Code:

---

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:

---

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:

---

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

bonjour à vous

Citation:

---

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:

---

MsgBox StrReverse("developpez")

---

bonne journée
michel

Bonjour fred , oui j'ai bien installé l'aide de excel et ton explication m'a éclairé sur le renvoit des chaines , merci bcp .