A voir également:
- Demande d'aide concernant la fonction Replace
- Fonction si et - Guide
- Fonction somme excel - Guide
- Fonction moyenne excel - Guide
- Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
- Fonction filtre excel n'existe pas - Forum Excel
8 réponses
Utilisateur anonyme
22 août 2014 à 16:30
22 août 2014 à 16:30
Bonjour
Personnellement, au lieu de faire de 'Replace', j'aurais reconstruit la chaîne en recopiant les caractères tels quels ou modifiés selon les cas.
Mais pour rester dans ta logique, ton problème vient du fait que le Replace se fait toujours sur le premier caractère rencontré. Pourtant, il y a bien le 4e paramètre de Replace qui sert à dire à partir d'où doit se faire la recherche : tu ne t'en sers pas.
Si tu fais :
ça ne va faire de replace qu'à partir du Ième caractère et non pas à partir du premier
Personnellement, au lieu de faire de 'Replace', j'aurais reconstruit la chaîne en recopiant les caractères tels quels ou modifiés selon les cas.
Mais pour rester dans ta logique, ton problème vient du fait que le Replace se fait toujours sur le premier caractère rencontré. Pourtant, il y a bien le 4e paramètre de Replace qui sert à dire à partir d'où doit se faire la recherche : tu ne t'en sers pas.
Si tu fais :
Selection = Replace(Selection, char, "%" & char, I , 1)
ça ne va faire de replace qu'à partir du Ième caractère et non pas à partir du premier
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié par ccm81 le 22/08/2014 à 16:50
Modifié par ccm81 le 22/08/2014 à 16:50
Bonjour
essaies ceci (une fonction sera plus souple à utiliser)
Cdlmnt
essaies ceci (une fonction sera plus souple à utiliser)
Public Function RP(S As String) As String
Dim I As Long, c As String, ls As Long, SS As String
S = UCase(S)
S = Replace(S, "À", "A")
S = Replace(S, "Â", "A")
S = Replace(S, "Ä", "A")
S = Replace(S, "É", "E")
S = Replace(S, "È", "E")
S = Replace(S, "Ê", "E")
S = Replace(S, "Ë", "E")
S = Replace(S, "Î", "I")
S = Replace(S, "Ï", "I")
S = Replace(S, "Ô", "O")
S = Replace(S, "Ö", "O")
S = Replace(S, "Ù", "U")
S = Replace(S, "Ü", "U")
S = Replace(S, "Û", "U")
S = Replace(S, "Ç", "C")
S = Replace(S, "Ñ", "N")
S = Replace(S, "OE", "OE")
SS = ""
ls = Len(S)
For I = 1 To ls
c = Mid(S, I, 1)
If c Like "[!A-Z,!%,! ,!¤]" Then
SS = SS & "%"
End If
SS = SS & c
Next I
RP = SS
End Function
Cdlmnt
Merci à vous deux pour vos réponses aussi rapides !
-> le père : je ne vois pas bien ce que tu entends par "reconstruire les chaînes telles quelles"
Concernant le 4ème paramètre, j'ai essayé de m'en servir
Résultat : %34TY15
Je ne sais pas où est parti le reste de ma chaîne de test ...
-> CCM81 : je vais essayer ta méthode
En revanche, la boucle for n'est pas une bonne idée : comme je rajoute un caractère en milieu de chaîne, celle-ci est rallongée et la boucle garde en valeur de fin la longueur initiale
D'où la boucle Do-Loop
(J'ai tt de même essayé cette méthode mais pas moyen de faire prendre en compte la valeur réactualisée de Len à mon for :-S)
Encore merci pour le coup de main
Cordialement
Alex
-> le père : je ne vois pas bien ce que tu entends par "reconstruire les chaînes telles quelles"
Concernant le 4ème paramètre, j'ai essayé de m'en servir
Résultat : %34TY15
Je ne sais pas où est parti le reste de ma chaîne de test ...
-> CCM81 : je vais essayer ta méthode
En revanche, la boucle for n'est pas une bonne idée : comme je rajoute un caractère en milieu de chaîne, celle-ci est rallongée et la boucle garde en valeur de fin la longueur initiale
D'où la boucle Do-Loop
(J'ai tt de même essayé cette méthode mais pas moyen de faire prendre en compte la valeur réactualisée de Len à mon for :-S)
Encore merci pour le coup de main
Cordialement
Alex
Utilisateur anonyme
22 août 2014 à 18:55
22 août 2014 à 18:55
Effectivement, l'utilisation de 4e paramètre n'est pas une bonne idée, j'aurais dû le vérifier avant de poster. L'aide de la fonction replace précise qu'elle remplace à partir d'un certain caractère, mais elle oublie de dire que cette fonction supprime tout ce qu'il y a avant !
Quand je parlais de reconstruire la chaîne, je voulais parler de la méthode de ccm81. Et la boucle for est une bonne idée contrairement à ce que tu dis : la chaîne S n'est pas modifiée pendant la boucle puisque on construit une nouvelle chaîne SS.
Quand je parlais de reconstruire la chaîne, je voulais parler de la méthode de ccm81. Et la boucle for est une bonne idée contrairement à ce que tu dis : la chaîne S n'est pas modifiée pendant la boucle puisque on construit une nouvelle chaîne SS.
Ah la sale bête !
Elle supprime purement et simplement ce qui précède :-S
Je comprends mieux ; je craignais de mal me servir des différents arguments de cette fonction
Concernant ce qu'a proposé CCM81, effectivement, ça fonctionne (si tu me lis, désolé d'avoir douté ;-) )
Et j'étais à l'instant en train de me creuser la tête à essayer de comprendre pourquoi !
En effet, il yavait le For-To qui me tracassait (et tu viens de répondre à ma question) mais aussi le fait qu'il rajoute le % après ce qu'il a appelé SS alors que j'essayais de le rajouter avant le caractère "hors liste"
Dernière étape pour moi : qd mm faire une macro : au final, je ne serai pas le seul utilisateur de cette commande et cliquer sur un bouton et plus facile que devoir appeler une fonction (même si c'est pas bien compliqué ^^)
Elle supprime purement et simplement ce qui précède :-S
Je comprends mieux ; je craignais de mal me servir des différents arguments de cette fonction
Concernant ce qu'a proposé CCM81, effectivement, ça fonctionne (si tu me lis, désolé d'avoir douté ;-) )
Et j'étais à l'instant en train de me creuser la tête à essayer de comprendre pourquoi !
En effet, il yavait le For-To qui me tracassait (et tu viens de répondre à ma question) mais aussi le fait qu'il rajoute le % après ce qu'il a appelé SS alors que j'essayais de le rajouter avant le caractère "hors liste"
Dernière étape pour moi : qd mm faire une macro : au final, je ne serai pas le seul utilisateur de cette commande et cliquer sur un bouton et plus facile que devoir appeler une fonction (même si c'est pas bien compliqué ^^)
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié par ccm81 le 22/08/2014 à 19:20
Modifié par ccm81 le 22/08/2014 à 19:20
Il te suffit d'appeler la fonction dans la procédure Click du bouton!
Et d'ailleurs au passage, j'aurai bien déporté tes S =r eplace... dans une fonction chargée de nettoyer la chaine, fonction (S=Nettoie(S)) elle même utilisée par RP dont le code deviendrait plus simple!
Cdlmnt
Et d'ailleurs au passage, j'aurai bien déporté tes S =r eplace... dans une fonction chargée de nettoyer la chaine, fonction (S=Nettoie(S)) elle même utilisée par RP dont le code deviendrait plus simple!
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
22 août 2014 à 19:15
22 août 2014 à 19:15
En revanche, la boucle for n'est pas une bonne idée : comme je rajoute un caractère en milieu de chaîne, celle-ci est rallongée et la boucle garde en valeur de fin la longueur initiale
Non, la boucle for sur le nombre de caractères de la chaine initiale S créee une "copie allongée" SS dont la valeur finale est renvoyée par la fonction
https://www.cjoint.com/?3Hwtoohwmha
Cdlmnt
Non, la boucle for sur le nombre de caractères de la chaine initiale S créee une "copie allongée" SS dont la valeur finale est renvoyée par la fonction
https://www.cjoint.com/?3Hwtoohwmha
Cdlmnt
Mea Culpa CCM81 : en effet, tout tourne correctement
Je vais voir ca ensuite pour "ranger" mon code ; pour l'instant, je préfère tout avoir à portée d'oeil et de souris
Merci d'avoir pris la peine de me concocter un p'tit xls en démo :-)
Un grand merci à tous les deux pour vos réponses excessivement rapides et utiles !
Cordialement
Alex
Je vais voir ca ensuite pour "ranger" mon code ; pour l'instant, je préfère tout avoir à portée d'oeil et de souris
Merci d'avoir pris la peine de me concocter un p'tit xls en démo :-)
Un grand merci à tous les deux pour vos réponses excessivement rapides et utiles !
Cordialement
Alex
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
22 août 2014 à 19:27
22 août 2014 à 19:27
Absolution accordée :-)
Voilà ce que ça peut donner avec un bouton
https://www.cjoint.com/?3HwtAHGRVKe
Cdlmnt
Voilà ce que ça peut donner avec un bouton
https://www.cjoint.com/?3HwtAHGRVKe
Cdlmnt
En espérant ne pas abuser de ton temps, j'aimerais savoir s'il te serait possible de me redonner ces lignes de codes mais en version macro au lieu de la version fonction
En effet, je n'arrive pas a les transformer moi même ni à les intégrer dans les lignes que j'ai déjà écrites
D'avance, merci
Cordialement
Alex
En effet, je n'arrive pas a les transformer moi même ni à les intégrer dans les lignes que j'ai déjà écrites
D'avance, merci
Cordialement
Alex
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié par ccm81 le 23/08/2014 à 16:48
Modifié par ccm81 le 23/08/2014 à 16:48
Dommage, mais voilà (la procédure s'applique à la cellule sélectionnée)
Si la sélection contient plus d'une cellule, ça ne fait rien
On peut bien sur modifier le code pour que la procédure s'applique à une plage
Cdlmnt
Si la sélection contient plus d'une cellule, ça ne fait rien
On peut bien sur modifier le code pour que la procédure s'applique à une plage
Public Sub Remplace()
Dim I As Long, c As String, ls As Long, S As String, SS As String
If Selection.Cells.Count > 1 Then Exit Sub
S = UCase(Selection)
S = Replace(S, "À", "A")
S = Replace(S, "Â", "A")
S = Replace(S, "Ä", "A")
S = Replace(S, "É", "E")
S = Replace(S, "È", "E")
S = Replace(S, "Ê", "E")
S = Replace(S, "Ë", "E")
S = Replace(S, "Î", "I")
S = Replace(S, "Ï", "I")
S = Replace(S, "Ô", "O")
S = Replace(S, "Ö", "O")
S = Replace(S, "Ù", "U")
S = Replace(S, "Ü", "U")
S = Replace(S, "Û", "U")
S = Replace(S, "Ç", "C")
S = Replace(S, "Ñ", "N")
S = Replace(S, "OE", "OE")
SS = ""
ls = Len(S)
For I = 1 To ls
c = Mid(S, I, 1)
If c Like "[!A-Z,!%,! ,!¤]" Then
SS = SS & "%"
End If
SS = SS & c
Next I
Selection.Value = SS
End Sub
Cdlmnt
