Code vb SOS
Résolu
lobnaw
Messages postés
4
Statut
Membre
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
bonjour,
j'ai trouver ce code ici, il m'a vraiment aidé mais malheureusement il ne remplace que des textes j'ai besoin qu'il remplace une chaine de caractère, est ce possible que quelqu'un peut m'aider, c'est vraiment urgent
j'ai trouver ce code ici, il m'a vraiment aidé mais malheureusement il ne remplace que des textes j'ai besoin qu'il remplace une chaine de caractère, est ce possible que quelqu'un peut m'aider, c'est vraiment urgent
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim txt$, i As Integer, trad As Variant
txt = Application.Trim(Target)
For i = 0 To UBound(Split(txt, " "))
trad = Application.VLookup(Split(txt, " ")(i), Sheets("dico").Range("A:B"), 2, 0)
If Not IsError(trad) Then txt = Replace(txt, Split(txt, " ")(i), trad)
Next
Application.EnableEvents = False
Target = txt
Application.EnableEvents = True
End Sub
A voir également:
- Code vb SOS
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
2 réponses
Bonjour,
l ne remplace que des textes j'ai besoin qu'il remplace une chaine de caractère
Un texte n'est rien d'autre qu'une chaine de caractères. Non?
Soit donc plus explicite et dis nous ce que tu souhaites faire exactement.
Un fichier serait également le bienvenu. Pour cela, utilise un site de pièce jointe comme cjoint et reviens coller le lien fourni ici.
l ne remplace que des textes j'ai besoin qu'il remplace une chaine de caractère
Un texte n'est rien d'autre qu'une chaine de caractères. Non?
Soit donc plus explicite et dis nous ce que tu souhaites faire exactement.
Un fichier serait également le bienvenu. Pour cela, utilise un site de pièce jointe comme cjoint et reviens coller le lien fourni ici.
merci pijaku
j'arrive pas à joindre le fichier
bon voilà la situation: j'ai plusieurs feuilles contenant des nom des établissements en arabes je veux ajouter au classeur une autre feuille qui contient la liste de tous les établissements en deux version arabe et français et je veux créer un macro qui permet de remplacer ce qui est en arabe par celui qui lui corresponds en français dans la liste.
dans le code "dico" est la feuille qui contient la liste en deux versions et le résultat doit etre affiché dans la feuille1
j'arrive pas à joindre le fichier
bon voilà la situation: j'ai plusieurs feuilles contenant des nom des établissements en arabes je veux ajouter au classeur une autre feuille qui contient la liste de tous les établissements en deux version arabe et français et je veux créer un macro qui permet de remplacer ce qui est en arabe par celui qui lui corresponds en français dans la liste.
dans le code "dico" est la feuille qui contient la liste en deux versions et le résultat doit etre affiché dans la feuille1
