Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2011

• #2

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonjour Yann🙂

regarde du coté des fonctions vba CHR et ASC, il me semble qu'elles doivent répondre à ton besoin...

bon après midi
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 19 Octobre 2011

• #3

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonjour Yann,

peut-être, si ta lettre dans la variable Lettre

Code:

msgbox Asc(ucase(Lettre))-64

Bing, Bonjour Pierrot 😉

 

Vote positif 0 Vote négatif

K

Kiseki

XLDnaute Occasionnel

• 19 Octobre 2011

• #4

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonsoir,

replace([texte],[A remplacer par],[ça])

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Octobre 2011

• #5

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonjour, le Fil, le Forum,

YANN-56, cette discussion pourrait-elle servir ?

A bientôt 🙂.

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Octobre 2011

• #6

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Vingt Dieux que du beau monde!

Je regarde ce dont vous me parlez,
et je reviens certainement pour vous remercier un à un. 🙂

Yann

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Octobre 2011

• #7

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Merci à:
(Par ordre d'entrée en scène)

Pierrot
tototiti
kiseki
DoubleZero

Je n'y ai pas ajouté de Smyley avec un grand sourire, car il est d'évidence!

J'ai seulement fait un classeur appliquant votre aide, au cas où il puisse servir à quelqu'un,
et vous montrer que pépé avait bien compris.....

Je vous souhaite plein de bonnes choses en cette soirée.

Yann

 

Pièces jointes

• LETTRES_CHIFFRES.xls

  24.5 KB · Affichages: 47

Dernière édition: 19 Octobre 2011

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 19 Octobre 2011

• #8

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonjour,

petite remarque : attention ActiveSheet n'est pas toujours Worksheets("...") !

autre solution :

Code:

Sub CommandButton1_Click()
  With Sheets("Feuil1") 'inutile si le bouton est sur la feuille
  For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
     .Cells(i, 2).Value = .Range(.Cells(i, 1) & 1).Column
  Next
  End With
End Sub

 

Dernière édition: 19 Octobre 2011

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Octobre 2011

• #9

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Merci Fo_rum,

Quant à l'interprétation de la mise en chiffre des lettres, ton astuce est de celles que j'aime.

Cependant mon exemple n'est sur une feuille, que pour la démonstration de l'efficacité de l'aide que j'ai reçu.

L'objet de cette transcription était en partant d'une Caption d'un Label, ou d'une variable avec une lette "x"

Il n'en demeure pas moins que je te remercie de me rappeler cette affaire de "Worksheets".

Ce n'est pas la première fois que je me plante pour cette raison.

Je l'ai contourné par ailleurs en écrivant:
Dim FEUILLE As Worksheet et utilisé: FEUILLE.Name par la suite.

Tu as raison, je vais devoir réviser ce point pour m'éviter de mauvaises surprises.

Bonne soirée à toi, et Merci encore pour ta judicieuse remarque.

Yann

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 19 Octobre 2011

• #10

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonsoir

dans ton cas :

Code:

Sub nb()
  Label2.Caption = "Q"
  MsgBox Range(Label2.Caption & 1).Column
  'et un peu plus court avec
  Label1.Caption = "Z"
  MsgBox Cells(1, Label1.Caption).Column
End Sub

à noter que la minuscule ne passe pas dans mon premier exemple avec Cells sans .Value !
Je me suis basé sur l'indentité entre Cells(3,12) et Cells(3,"L").

Là, moi aussi je me fais piéger car je rajoute rarement le .(truc) !

 

Dernière édition: 19 Octobre 2011

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Octobre 2011

• #11

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Re Fo_rum, et à tous,

Pour aussi montrer le bien fondé de ton idée, je joins sa mise en application.
J'aime beaucoup ce coté astucieux et simple que tu as proposé.

Merci pour ton aide, et au plaisir de te croiser à nouveau.

(Surtout pour moi 🙂)

Yann

 

Pièces jointes

• LETTRE_CHIFFRE_2.xls

  27 KB · Affichages: 30

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 20 Octobre 2011

• #12

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonjour


Une autre solution possible

Code:

Private Sub CommandButton1_Click()
Dim l As String
l = UCase("abcdefghijklmnopqrstuwwxyz")
Label1.Caption = InStr(1, l, UCase(TextBox1), 1)
End Sub

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 20 Octobre 2011

• #13

Re : Peut-on traduire simplement A, B, C, Et c. en 1, 2, 3 ... via VBA?

Bonjour et merci TempusFugit,

Si avec cela je ne suis pas bordé !!!

Et Bravo à toi pour les 500

Amicalement, et au plaisir,

Yann

 

Vote positif 0 Vote négatif