tableau de correspondance? méthode rapide?Résolu

Question

bonjour 

Je voudrais constituer une correspondance entre des nombres et des lettres. Je m'explique, une fonction ne reconnait que les chiffres pour désigner des colonnes. 
ex : 1 A , 2 B

le truc c que si ca s'arrêtait seulement à Z, ce serait facile à la bourrin (entendez par là manuellement...) mais cela concerne des colonnes excel donc ca va jusquà ZZ.
Quelqu'un pourrait il m'aider à faire une correspondance de A 1 à ZZ un très grand nombre...

Merci ! C super important pour mon boulot...

"j'aime bien incrémenter... :-|

cs_darkbol · Accepted Answer

Ah ben comme tu m'as calmé, ca marche trop bien!

Et merci aussi pour les autres! ;-)))

A plus !

"j'aime trop ... :- )"

sgrant · Answer

bon jour

methode  rapide peut être pas

je pense à une 1iere approche qui pourrait t'aider

d'un chiffre  'x' vers les lettres AB:

pour trouver A :
z=x div 26 qui te donne la première lettre (si 0 alors c dons <26 donc pas de lettre) sinon z => la position de la lettre dans l'aphabet

Pour trouver B
(y=x mod 26 et z>26) qui te donne la deuxieme lettre (si 0 et  alors c le caractère Z ) sinon y => la position de la lettre dans l'aphabet

gs

PsYKrO · Answer

bon c pas fini il me manque a affecter tout les lettre dans un dernier ableau je sais pas si c la solution ...peut etre ke c barbare mais bon....

ca peut te donner des idées

Dim i
Dim j
Dim lettre1
Dim lettre2
Dim lettre
Dim malettre1 As String
Dim malettre2 As String
Dim malettre

lettre1 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
lettre2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

For k = 0 To 25 Step 1

    
   malettre = lettre1(k)
   
Next

For i = 0 To 25 Step 1
        For j = 0 To 25 Step 1
            malettre1 = lettre1(i)
            malettre2 = lettre2(j)
            malettre = Array(malettre1 & malettre2)
        Next
Next

engros dans la variable malettre tu as toutes les lettres

Apre tu me tout ca dans un tableau allant de 1 a 26*26
et la tu as un tableau de correspondance

jy travail encore

PsYKrO · Answer

Bon moi ca marche

je sais pas si c optimiser mais ca marche

Dim i
Dim j
Dim k
Dim l
l = -1
Dim tableau(70)
Dim lettre1
Dim lettre2
Dim malettre1
Dim malettre2
Dim malettre

lettre1 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
lettre2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

    For k = 0 To 25 Step 1
    l = l + 1
       malettre = lettre1(k)
       tableau(l) = malettre
    Next
    
    For i = 0 To 25 Step 1
            For j = 0 To 25 Step 1
                malettre1 = lettre1(i)
                malettre2 = lettre2(j)
                malettre = malettre1 & malettre2
                l = l + 1
                tableau(l) = malettre
            Next
    Next
End Sub

donc dans tableau tu as toutes tes lettres

tableau(1) ="A"

PsYKrO · Answer

oups 
a La place de 

Dim tableau(70)

c 'est

Dim tableau(701)

sgrant · Answer

point de vue optimisation ce n'est pas le top ,il ya qd meme 702 iterations, si ceci  n'inflige un delai trop dans ton appli ca va pas de bobo

merci pour ton code

Personnellement j'aurai crée des fonctions de conversions (peut être moins consomateur en memoire et en temps d'exécution)

Mais le principal c que cela fonctionne

gs

PsYKrO · Answer

oui ... il me semble aussi mais bon je suis o boulot et je pe pas consacré tout mon temps à ça ..Bon niveau temps d'exuction c assez rapide mais bon si un jour on a plus de 10000000000 valeur c trop long

En hacking il me semble ke je lé utilisé pout trouve un password et ca s'appelle Passage en Force brute (a verifier) cette méthode aujourd hui est inutile car elle est facilement blocable et aussi trop trop longue ........ si tu as un code qui fait 26caractere avec dedans chiffre lettre et "_" tu seras mort avant ke ton programme se termine looool

Sinon au passage sgrant tu serais pas utliser lles multipage???????????

sgrant · Answer

Merci pour les infos,
et desolé je n'utilise pas les multipages, 
g bien vu ta question posé sur le forum 

gs

cs_rene38 · Answer

Bonjour
dans les 2 sens :

Private Function Nb2Lt(Nombre As Integer) As StringIf Nombre 702 Then Nb2Lt "ZZ":        Exit Function

If Nombre < 27 Then Nb2Lt = Chr$(64 + Nombre): Exit Function

Nb2Lt = Chr$(Nombre \ 26 + 64) & Chr$(Nombre Mod 26 + 64)
End Function
'---------------------------------------------
Private Function Lt2Nb(Lettre As String) As Integer
Lettre = UCase$(Lettre)If Len(Lettre) 1 Then Lt2Nb Asc(Lettre) - 64: Exit Function

Lt2Nb = 26 * (Asc(Left$(Lettre, 1)) - 64) + Asc(Mid$(Lettre, 2, 1)) - 64
End Function

cs_Paatou · Answer

Salut,



ATTENTION : cette fonction est effectivement tres pratique, mais elle est buggee.

En effet, si vous essayez de convertir 52 vous obtenez B@ au lieu de AZ, de meme 78 donne C@, ....

cs_Paatou · Answer

Je propose cette correction :



Private Function Nb2Lt(Nombre As Integer) As String

    If Nombre 702 Then Nb2Lt "ZZ": Exit Function

    

    If Nombre < 27 Then Nb2Lt = Chr$(64 + Nombre): Exit Function

    

    If (Nombre Mod 26 = 0) Then

        Nb2Lt = Chr$(Nombre \ 26 - 1 + 64) & Chr$(26 + 64)

    Else

        Nb2Lt = Chr$(Nombre \ 26 + 64) & Chr$(Nombre Mod 26 + 64)

    End If

End Function

cs_santiago69 · Answer

et voila une methode ULTRA ULTRA rapide

si tu utilise excel, il y a aussi la formule suivante :
=SUBSTITUE(ADRESSE(1;A1;4);"1";"")
avec la cellule A1 qui contient le numero de colonne

si vraiment c'est vba que tu utilise, utilise la fonction suivante :
= Replace(Replace(Cells(1, Nombre).Address, "$", ""), "1", "")
avec Nombre qui contient ton numero de col

cs_Paatou · Answer

Ah oui !! Excellent cette methode hehe, comment l'as tu trouvee ?



elle fait la conversion chiffre => lettre, mais comment fais tu l'operation inverse ?

cs_santiago69 · Answer

et bien dans le meme style on a :

=COLONNE(INDIRECT(A1&"1";VRAI))
avec la cellule A1 qui contient la lettre de colonne

=Range(Colonne & "1").Column
avec Colonne qui contient la lettre de colonne

je sais plus comment j'ai trouve mais je me sert souvent des adresses de cellule.
par exemple si tu fais un tableau et que dans la colonne B tu met un increment auto :
B2=1, B3=B2+1, B4=B3+1, B5=B4+1, etc...
tout va bien jusqu'au jour ou tu insere une ligne avant la ligne 4 par exemple, tu te retrouve avec :
B2=1, B3=B2+1, B5=B3+1, B6=B5+1, etc...

j'en arrive au coeur du probleme... dans ces cas j'utilise la formule magique :
=INDIRECT(ADRESSE(LIGNE()-1;COLONNE()))+1

ainsi quoi que l'on fasse au tableau, suppression, insertion, decalage, etc... chaque cellule prend la valeur de la cellule qui est exactement au dessus d'elle et y ajoute 1.

voila

il y a 10 types de personnes : ceux qui comprennent le binaire et ceux qui ne le comprennent pas.

Tableau de correspondance? méthode rapide?

14 réponses

Discussions similaires