Discussion :

[trash_07]

Bonjour,

Je cherche à réaliser un code me permettant de transformer les noms de lignes en chiffre et inversement.
Par exemple, si je rentre A je dois trouver 1
Et si je réceptionne 28 je dois trouver AB

est ce que quelqu'un aurait des fonctions me permettant de faire ce traitement?

[mercatog]

Bonjour
Explique pourquoi faire.

[trash_07]

Je travaille dans un système multi-planning.
Ceux-ci ont diverses utilités (mais surtout du stockage de données)
Suivant l'insertion que je fait je dois me positionner sur le bon planning puis réaliser une opération (insertion ou récupération de données).
Je sais à quel position sont mes plannings prenons "B2" comme position de départ. La date que je cherche à atteindre dans ce cas est le 1 février
B2 correspondant au premier janvier, je vais chercher la valeur (B+1,2)
Soit comme réponse "C2".
Derrière ça j'ai un nombre important de planning qui ne sont pas forcément sur B mais par exemple AB, AO , ...
Et sur des colonnes descendant AB60, ...
je cherche donc un moyen de traduire AB en chiffre pour lui imposer un décalage et retrouver la position correspondante.

[CodeFacile]

Bonjour,

tu peux t'aider de cette fonction qui fournit la lettre correspondant à la nième colonne :
ex pour 46 -> doit renvoyer AT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Public Function lettre_colonne(num_col As Integer) As String
Dim lettr As Integer
 posit_col = num_col
 lettr = 0:
If posit_col > 26 Then
    Do
      lettr = lettr + 1
      posit_col = posit_col - 26
    Loop While posit_col > 26
      lettre_colonne = Chr(64 + lettr) & Chr(64 + posit_col)
 Else
     lettre_colonne = Chr(64 + posit_col)
  End If
End Function

dans ton cas , tu peux faire un test isnumeric ( variable ) si c'est vrai , tu lances lettre_colonne , sinon tu execute une fonction inverse ... du style colonne = Asc(lettre_col1) - 64 si la chaine n'a qu'un caractere

[patricktoulon]

bonjour

la macro de code facile te donne la colonne en lettre

attention toi tu a demandé de transformer le numero de ligne en lettre

neammoins tu peux te baser sur sa macro

car si j'ai bien compris tu voudrais numeroter tes lignes au format identique aux colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Function ligne_en_lettre(num_col As Integer) As String
Dim lettr As Integer
 posit_col = num_col
 lettr = 0:
If posit_col > 26 Then
    Do
      lettr = lettr + 1
      posit_col = posit_col - 26
    Loop While posit_col > 26
      ligne_en_lettre = Chr(64 + lettr) & Chr(64 + posit_col)
 Else
     ligne_en_lettre = Chr(64 + posit_col)
  End If
 
 
 
End Function
Sub dire2()
 
MsgBox ligne_en_lettre(activecell.row)'te donne en lettre la ligne de la cellule active
End Sub

bien ta macro codefacile!!!
au plaisir

[mercatog]

Je trouve c'est un peux bizarre comme approche;

Sans connaître la lettre de la colonne et au lieu d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C2")="Toto" 'On cherchant la lettre qui vient après le B

utilise plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(2,3)="Toto"

ou accessoirement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2").offset(0,1)="Toto"

Ou enfin j'ai pas compris quelque chose.

[patricktoulon]

re

oui après avoir bien relu ton explication tu ne veut pas chercher la ligne mais bien la colonne

il y a plusieurs solution
celle de mercatog "le offset"

tu a le "find"

tu peut aussi utiliser un filtre

et bien d'autre encore

mais on est un peu loin de l'énoncer de départ

reformule bien ta question

au plaisir