Convertir une lettre en nombre
Bonjour à tous j'aimerais savoir si il existe une formule permettant d'obtenir le nombre aux quels correspond une lettre.
Dans mon cas j'ai plusieurs liste déroulante où l'utilisateur sélectionne une lettre à l'aide d'une liste déroulante et ça me permet de pouvoir récupère les colonnes en question.
Je cherche soit une formule me permettant de sélectionner une colonne avec la lettre ou alors attribuer un nombre correspondant a la lettre.
Exemple l'utilisateur sélectionne la lettre C pour la colonne C et je récupère la colonne C ou la valeur 3
Pour le moment j'ai fais ce code mais c'est très loin d'être optimisé
Merci d'avance
case_value = Worksheets("Resultat").Range("B6").Value
If case_value = "A" Then
number_case = 1
ElseIf case_value = "B" Then
number_case = 2
ElseIf case_value = "C" Then
number_case = 3
ElseIf case_value = "D" Then
number_case = 4
ElseIf case_value = "E" Then
number_case = 5
ElseIf case_value = "F" Then
number_case = 6
ElseIf case_value = "G" Then
number_case = 7
ElseIf case_value = "H" Then
number_case = 8
ElseIf case_value = "I" Then
number_case = 9
ElseIf case_value = "J" Then
number_case = 10
ElseIf case_value = "K" Then
number_case = 11
ElseIf case_value = "L" Then
number_case = 12
ElseIf case_value = "M" Then
number_case = 13
ElseIf case_value = "N" Then
number_case = 14
ElseIf case_value = "O" Then
number_case = 15
ElseIf case_value = "P" Then
number_case = 16
ElseIf case_value = "Q" Then
number_case = 17
ElseIf case_value = "R" Then
number_case = 18
ElseIf case_value = "S" Then
number_case = 19
ElseIf case_value = "T" Then
number_case = 20
ElseIf case_value = "U" Then
number_case = 21
ElseIf case_value = "V" Then
number_case = 22
ElseIf case_value = "W" Then
number_case = 23
ElseIf case_value = "X" Then
number_case = 24
ElseIf case_value = "Y" Then
number_case = 25
ElseIf case_value = "Z" Then
number_case = 26
End IfTu devrais jeter un oeil sur la fonction ASC().
number_case = Asc("A") - 64 = 1Bonjour, salut Optimix !
Si l'objectif est de faire référence à une cellule spécifique, la lettre est utilisable en l'état. Exemple : Range(case_value & 1) = "Bonjour !"
J'ai pensé que c'était une histoire de colonne. ???
Peut-être pour convertir une macro contenant des Range() en Cells(). Ce n'est qu'un exemple. L'intéressé nous le dira.
Bonjour, merci de vos réponses. Mon but est que l'utilisateur sélectionne une lettre pour déterminer la colonne ou sont les valeurs, avec cette lettre je souhaite copier la colonne dans une seconde page sauf que je ne sais pas faire du tout.
Il doit exister des solutions bien plus optimisées que ce que j'ai commencé a faire
Bonjour, merci de vos réponses. Mon but est que l'utilisateur sélectionne une lettre pour déterminer la colonne ou sont les valeurs, avec cette lettre je souhaite copier la colonne dans une seconde page sauf que je ne sais pas faire du tout.
Il doit exister des solutions bien plus optimisées que ce que j'ai commencé a faire
Bonjour,
C'est bien ce que je pensais, donc inutile de convertir la lettre d'une colonne en indice numérique. Quelques exemples :
Sub Demo()
Dim LettreCol As String, Lig As Long
LettreCol = "A"
'copier Feuil1!A:A en Feuil2!J:J
'Exemple 1 :
Sheets("Feuil1").Range(LettreCol & ":" & LettreCol).Copy Sheets("Feuil2").Columns(10)
'Exemple 2 :
Sheets("Feuil2").Range("J:J").Value = Sheets("Feuil1").Range(LettreCol & 1).EntireColumn.Value
'Exemple 3 :
For Lig = 1 To 100
Sheets(2).Cells(Lig, 10) = Sheets(1).Range(LettreCol & Lig)
Next Lig
End Sub