Remplacer lettre par une lettre -EXCEL-

Bonjour,

Sur mon tableur excel, j'aimerai dans un texte, remplacer
ABCDEFGHIJKLM.... par
AZERTYUIOPQSD....
en gros faire A=A; B=Z; C=E .. etc
Quelqu'un connait la formule ?

Merci d'avance

5 réponses

  1. Merci, mais, quelqu'un n'a pas la formule ? Ce serait plus simple :D
    0
    1. Bha je vais demendé a mon frere , demain si il a la formule et si oui je te la donne et n'hesite pas a me le redemendé si je zap ^^
      0
      1. Contributeur
        Bonjour,
        Avec une formule ce ne sera pas possible.
        Une solution avec une formule en VBA
        Coller le code ci-dessous dans un module public.
        Public Function RemplacerBB(Modele As Range) As String  
        Dim Chaine As String, i As Integer, L As Boolean  
        Dim R As Integer, C As String, Tp As String  
            Application.Volatile  
            Chaine = "AZERTYUIOPQSDFGHJKLMWXCVBN"  
            For i = 1 To Len(Modele)  
                R = Asc(Mid(Modele, i, 1))  
                If R > 96 And R < 123 Then 'minuscule  
                    L = True: R = R - 32  
                Else: L = False  
                End If  
                If R < 65 Or R > 90 Then 'espace  
                    Tp = Tp & " "  
                Else  
                    C = Mid(Chaine, R - 64, 1)  
                    Tp = Tp & IIf(L, LCase(C), C)  
                End If  
            Next i  
            RemplacerBB = Tp  
        End Function


        Et dans une feuille mettre par exemple... Dans F4
        =RemplacerBB(D4)

        Et taper le texte à transformer en D4
        A+

        L'expérience instruit plus sûrement que le conseil. (André Gide)
        Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
        1