[VBA] - Renvoi lettre d'une colonne

wilfried_42

XLDnaute Barbatruc

• 13 Février 2009

• #2

Re : [VBA] - Renvoi lettre d'une colonne

Bonjour

utilise cells au lieu de range

Code:

set maselection = range(cells(9,activecell.colum),cells(derligne, activecell.column))

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 13 Février 2009

• #3

Re : [VBA] - Renvoi lettre d'une colonne

Bonjour nico0007, wilfried_42,


Essayes sans mettre de lettre du style :

Sub Macro1()
Dim maSelection As Range, UneColonne As Byte
UneColonne = Range("C1").Column
Set maSelection = Columns(UneColonne)
maSelection.Select
End Sub

Cordialement

Bernard

 

Vote positif 0 Vote négatif

N

nico0007

Guest

• 13 Février 2009

• #4

Re : [VBA] - Renvoi lettre d'une colonne

Merci messieurs!!

Tout s'est bien passé. Je n'avais effectivement pas pensé à "cells"...😱

@ plus

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 13 Février 2009

• #5

Re : [VBA] - Renvoi lettre d'une colonne

Bonjour à tous.

Évidemment d'accord avec les solutions proposées. Donc, juste pour le plaisir :

Code:

Function DecAlph(c As Integer) As String
[COLOR="SeaGreen"]'   =SI(A1<703;SI(A1>26;CAR(ENT((A1-1)/26)+64);"")&SI(A1;CAR(MOD(A1-1;26)+65);"");"")[/COLOR]
    DecAlph = IIf(c < 703, IIf(c > 26, Chr((c - 1) \ 26 + 64), "") & _
        IIf(c, Chr(((c - 1) Mod 26) + 65), ""), "")
End Function

Function AlphDec(s As String) As Integer
[COLOR="SeaGreen"]'   =26*CODE(DROITE("@"&B1;2))+CODE(DROITE(DROITE("@"&B1;2);1))-1728[/COLOR]
    If Len(s) Then AlphDec = 26 * Asc(Right$("@" & s, 2)) + Asc(Right$(s, 1)) - 1728 Else AlphDec = 0
End Function

DecAlph prend un argument entier de 1 à 702 et renvoie une chaîne de caractères de "A" à "ZZ".
AlphDec fait l'inverse.​

Bonne journée !
ROGER2327

 

Vote positif 0 Vote négatif

N

nico0007

Guest

• 13 Février 2009

• #6

Re : [VBA] - Renvoi lettre d'une colonne

Merci pour ce code. Splendide!!

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Février 2009

• #7

Re : [VBA] - Renvoi lettre d'une colonne

bonjour a tous

Pour le fun egalement

Code:

Function lettre_col(n As Integer)
 lettre_col = Split(Cells(1, n).Address, "$")(1)
End Function

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 9 Octobre 2015

• #8

Re : [VBA] - Renvoi lettre d'une colonne

Super formule pierrejean : je la glisse dans ma besaçe !
Merci,
BH

 

Vote positif 0 Vote négatif