CORRESPONDANCE LETTRE CHIFFRE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
20 juil. 2004 à 16:02
Scalpweb Messages postés 1467 Date d'inscription samedi 13 mars 2004 Statut Membre Dernière intervention 5 mai 2010 - 20 juil. 2004 à 20:55
Scalpweb Messages postés 1467 Date d'inscription samedi 13 mars 2004 Statut Membre Dernière intervention 5 mai 2010 - 20 juil. 2004 à 20:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24742-correspondance-lettre-chiffre
https://codes-sources.commentcamarche.net/source/24742-correspondance-lettre-chiffre
20 juil. 2004 à 20:55
Enfin moi, ce que j'en dit...
20 juil. 2004 à 17:56
20 juil. 2004 à 16:02
Function CorrespondanceR(ByVal Col As String) As Integer
Col = UCase(Col)
CorrespondanceR = Asc(Col) - 64
If Len(Col) = 2 Then
CorrespondanceR = 26 * CorrespondanceR + Asc(Mid(Col, 2, 1)) - 64
End If
End Function