transposer un mot en un autre via formulaire site Fermé

Question

Bonjour, 

Je ne sais pas bien comment expliquer cela alors j'espère que l'un d'entre vous comprendra et aura une idée:

Je voudrais réaliser un site dans lequel apparaît une zone texte qui interagisse avec une autre de la même façon que sur le site google traduction par exemple.

Dans un précédent post, j'avais demandé comment faire correspondre dans Excel un mot de la colonne 1 avec un mot de la colonne 2 afin de créer une sorte de traduction. Grâce aux réponses, cela fonctionne et j'ai donc une série de mot correspondant à un autre.

Cette foi, j'aimerais faire la même chose mais que ça puisse s'afficher sur un site.


Il y a t'il un moyen de coupler à la page soit directement le tableau excel de manière à ce que la transposition du texte qu'on tape apparaisse dans un deuxième formulaire de saisie? 
Ou, est ce possible de récréer le même principe que sur Excel directement sur le site en lui demandant de remplacer un mot par un autre?

S'il vous plait aidez-moi je suis perdue, je ne sais pas quoi faire.

jordane45 · Answer

Bonjour,

Oui c'est possible.
En Javascript . je déplace ta discussion dans le bon forum.

cercelblanc · Answer

Je trouve des tutos pour réaliser un tableau mais pas pour que la correspondance se fasse à partir d'un texte écris sans que le tableau soit visible :/


J'ai déjà ma page en Html et Css prête avec deux formulaire texte pour saisir et un bouton submit. 

J'ai vu comment faire le tableau associatif mais je ne sais pas:

- comment le mettre en "arrière plan" du formulaire dans lequel on saisit le texte
- comment faire pour que le bouton submit déclenche la "traduction'
et
- comment faire pour que la "traduction" s'affiche dans mon deuxième formulaire de texte. 


est ce que vous pouvez me donner des indications sur où chercher, comment faire?

cercelblanc · Answer

Ces infos sont-elles suffisantes?

cercelblanc · Answer

J'ai aussi le code  que la personne sur le forum m'avait écris:
(je ne sais pas de quel langage il s'agit donc je copie-colle le code sans forme)


ce qui est dans le fichier module dans excel:

Function RechercheEtRemplace(Mot As String) As String
    Dim r As Range
    Dim r2 As Range  'dimensionne deux Range (zone de traitement)
    
    Dim Adresse1 As String
    Dim Adresse2 As String
    
    Set r = Feuil1.Cells.Find(What:=Mot, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False) 'cherche la zone qui contient le mot, et le place dans r1
     
     If r Is Nothing Then GoTo PasDOccurence
     
    Adresse1 = r.Address
    
    If Left(Adresse1, 2) <> "$A" Then 'si l'occurence trouvée n'est pas dans la colonne A
        Set r = Feuil1.Cells.FindNext(r)
        If r Is Nothing Or r.Address = Adresse1 Then GoTo PasDOccurence
        
         Adresse1 = r.Address
    End If
    
    Adresse2 = Replace(Adresse1, "A", "B")
    
    Set r2 = Feuil1.Range(Adresse2)
    
    RechercheEtRemplace = r2.Text

 Exit Function
    
PasDOccurence:
    RechercheEtRemplace = "0"
End Function


Private Sub TextBox1_Change()
Dim Mots() As String
Dim Resultats() As String

Mots = Split(TextBox1.Text, " ") 'découpe le texte dans un tableau, le séparateur est l'espace

If UBound(Mots) = -1 Then Exit Sub 'évite le bug si le tableau est vide

ReDim Resultat(UBound(Mots) + 1) 'dimensionne le tableau de résultat à la taille de celui des mots

For i = 0 To UBound(Mots) 'effectue la "traduction"
 Resultat(i) = RechercheEtRemplace(Mots(i))
Next i

Label1.Caption = Join(Resultat, " ") 'colle le contenu du tableau avec un espace comme séparateur
End Sub



et ce qui est dans le userForm:


Private Sub TextBox1_Change()
Dim Mots() As String
Dim Resultats() As String

Mots = Split(TextBox1.Text, " ")
ReDim Resultat(UBound(Mots))

For i = 0 To UBound(Mots) - 1
 Resultat(i) = RechercheEtRemplace(Mots(i))
Next i

Label1.Caption = Join(Resultat, " ")
End Sub



j'espère vraiment que vous pourrez m'aider car je ne trouve vraiment pas sur internet.

Transposer un mot en un autre via formulaire site

4 réponses

Discussions similaires