Lettre d'une Colonne par son numéro

JeanMarie

XLDnaute Barbatruc

• 6 Septembre 2005

• #2

Bonjour

=GAUCHE(ADRESSE(1;45;4);NBCAR(ADRESSE(1;45;4))-1)

@+Jean-Marie

Message édité par: JeanMarie, à: 06/09/2005 15:18

 

Vote positif 0 Vote négatif

C

CélineG

Guest

• 6 Septembre 2005

• #3

Merci beaucoup.

Et en VBA ça donne quoi?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Septembre 2005

• #4

Bonjour Céline, Jean-Marie, bonjour le forum,

Céline, c'est tiré par les cheveux mais ça marche (VBA) :

Sub Macro1()
Dim a As String, res As String
Dim b As Integer
a = InputBox('Tapez le numéro de la colonne', 'Convertisseur')
If a = '' Then Exit Sub
b = CInt(a)
If b / 26 < 1 Then res = Chr(b + 64)
If b / 26 > 1 Then
res = Chr(b \\ 26 + 64)
res = res & Chr(b Mod 26 + 64)
End If
MsgBox res
End Sub

Cliquez pour agrandir...

Édition :

Je vais encore me faire engeuler par josé mais l'antislash n'apparaît pas tu dois le placer dans cette ligne :
res = Chr(b antislash 26 + 64)

Message édité par: Robert, à: 06/09/2005 15:46

 

Vote positif 0 Vote négatif

C

CelineG

Guest

• 6 Septembre 2005

• #5

Bonjour Robert,

Je te remercie, c'est peut-être tiré par les cheveux mais ça marche et c'est plus court que ce que j'aurai fait!!

Par contre tu aurais pas oublié un signe ou quelque chose sur cette ligne : 'res = Chr(b 26 + 64)' car ça me l'affiche en rouge.

Merci beaucoup,

=> OK merci j'avais pas vu que tu t'étais corrigé!

Merci vraiment.

Message édité par: CelineG, à: 06/09/2005 15:49

 

Vote positif 0 Vote négatif

C

CelineG

Guest

• 6 Septembre 2005

• #6

Ta Macro est géniale Robert mais

- elle ne marche pas pour la lettre Z par exemple pour 26 elle renvoi RIEN!

- et elle passe de AL à BM c'est embêtant !!!

- BZ est rendu B@ !! puis ça repart à BA

- Puis rebug après BM ou ça passe à CN

- jusqu'à CZ qui devient C@

- puis repart à CA

- puis après CL c'est DM ...

En faite je t'explique pourquoi ça m'embete :

J'ai un tableau de marge général qui est rempli en entier, puis j'ai le meme tableau de marge mais parrégion dans lequel je veux récupérer les informations dans le premier tableau de marge général.

j'ai donc ce code:

Code:

For col = 1 To 114 'de A à DJ
        'MsgBox ('=MARGES!' & Lettre_Col(col) & li)
        'ligne : numéro de la ligne ou on vzeut mettre la formule
        'li : ligne ou on récupère les info dans le premier tableau
        Sheets('MARGES ' & Region).Cells(ligne, col).Value = '=MARGES!' & Lettre_Col(col) & li
    Next

Je te remercie de ton aide,

 

Vote positif 0 Vote négatif

C

CelineG

Guest

• 6 Septembre 2005

• #7

Dans ta fonction pour avoir le Z :

If a / 26 <= 1 Then res = Chr(a + 64)

inférieur ou égal à 1 = 26/26=1 c'est pour ça que j'avais pas de Z!!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 6 Septembre 2005

• #8

Bonjour

La macro de robert légèrement modifiée

Code:

Sub Macro1()
Dim a As String, res As String
Dim b As Integer
a = InputBox('Tapez le numéro de la colonne', 'Convertisseur')
If a = '' Then Exit Sub
b = CInt(a)
If b / 26 <= 1 Then res = Chr(b + 64)
If b / 26 > 1 Then
If b Mod 26 = 0 Then
    res = Chr(b \\ 26 + 63) & 'Z' 
Else
res = Chr(b \\ 26 + 64) 
res = res & Chr(b Mod 26 + 64)
End If
End If
MsgBox res
End Sub

Bonne journée

Message édité par: Pascal76, à: 06/09/2005 16:25

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Septembre 2005

• #9

Bonsoir le fil, bonsoir le forum,

Tout d'abord un grand merci à Pascal qui vient à ma rescousse mais aussi un pardon à Céline car j'ai testé la macro sur une dizaine de valeurs et quand j'ai vu que toutes marchaient j'en ai trop vite déduit qu'elle était Ok. Erreur grave !!! Désolé Céline et encore merci Pascal.

 

Vote positif 0 Vote négatif

C

CelineG

Guest

• 6 Septembre 2005

• #10

Merci Pascal, c'est génial ça marche!

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 6 Septembre 2005

• #11

BOnjour Celine, Pascal, Robert

Et dans la lignée des ruses de Guerriers Sioux ou Irroquois

Option Explicit

Sub ColLetter()
Dim Cell As Range
Dim C As Integer

C = InputBox('Tapez le numéro de la colonne', 'Convertisseur')

On Error GoTo MilleQuatre
Cells(1, C).Activate
Set Cell = ActiveCell
MsgBox Left(Cell.Address(False, False), (Cell.Column < 27) + 2)


Exit Sub
MilleQuatre:
    If Err = 1004 Then
        MsgBox 'Numéro de Colonne non compatible avec Excel'
    Else
        MsgBox 'Erreur non gérée ' & Err.Number & ' ' & Err.Description
    End If
End Sub

Cliquez pour agrandir...

Bon Après Midi
[ol]@+Thierry[/ol]


EDITION !!!

Et pour le Blindage de l'InputBox à la Ti_ ne pas oublier (comme moi):

C = Application.InputBox('Tapez le numéro de la colonne', 'Convertisseur', Type:=1)

Message édité par: _Thierry, à: 06/09/2005 16:52

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Septembre 2005

• #12

Bonsoir le fil, bonsoir le forum,

Hugs Grand Chef,

Toi visage pale très savant...Moi déterrer le Hash de guerre et proposer fumer calumet de l'happé avec toi...

 

Vote positif 0 Vote négatif

C

CélineG

Guest

• 6 Septembre 2005

• #13

Salut Thierry!

Oui c'est pas mal aussi!

On apprend plein de choses ici!!

Et Robert c'est pas grave de ne pas avoir réussi, tu as permis à Thierry de réagir et de donner la réponse!!!

En tout cas ça m'a aidé!

Bonne soirée @+ et merci

 

Vote positif 0 Vote négatif