VBA Comment récupérer le nom d'une colonne et l'incr émenter

LEFEVRE Bertrand

unread,

Jul 11, 2001, 9:17:19 AM7/11/01

to

Bonjour,

Voilà je rencontre un problème sur le fait de récupérer le
numéro de ma colonne ex:"BJ" pour faire un range puis
comment l'incrémenter car BJ + 1 ne donne pas BK.

Merci d'avance de vos réponse.

A+

LEFEVRE Bertrand

unread,

Jul 11, 2001, 9:17:12 AM7/11/01

to

Pierre Fauconnier

unread,

Jul 11, 2001, 9:48:30 AM7/11/01

to

Bonjour

Les deux fonctions suivantes permettent cela

La première convertit un numéro de colonne en lettres, la seconde convertit
la ou les lettre(s) de colonne en nombre
Dès lors

Debug.Print Range(LettreCol(Range("bj1").Column + 1) & 1).Address
renvoie bien $BK$1

Public Function LettreCol(numcol As Integer)
LettreCol = Chr((numcol Mod 26) + 64)
LettreCol = IIf(numcol > 26, Chr(Int(numcol / 26) + 64) & LettreCol,
LettreCol)
End Function

Public Function NumeroColonne(Colonne As String)
Colonne = UCase(Colonne)
Select Case Len(Colonne)
Case 1
NumeroColonne = Asc(Colonne) - 64
Case 2
NumeroColonne = _
(Asc(Left(Colonne, 1)) - 64) * 26
NumeroColonne = NumeroColonne + _
Asc(Right(Colonne, 1)) - 64
End Select
End Function

Cela convient-il?

--
Bon travail

pierre.f...@idealgestion.com
"Les chose qui n'on rien en commun
ont en commun qu'elles n'ont rien en commun"

--
"LEFEVRE Bertrand" <bertrand....@wanadoo.fr> a écrit dans le message
news: 515c01c10a0b$cbacc4e0$9be62ecf@tkmsftngxa03...

popi

unread,

Jul 11, 2001, 10:08:15 AM7/11/01

to

Salut Bertrand, pour récupérer l'adresse de ta cellule active,
Activecell.address
pour "incrémenter" vers la droite,
ActiveCell.Offset(0, 1).Activate
@+ popi
" Quadra ressoudeur "

"LEFEVRE Bertrand" <bertrand....@wanadoo.fr> a écrit dans le message
news: 515c01c10a0b$cbacc4e0$9be62ecf@tkmsftngxa03...

Frédéric Sigonneau

unread,

Jul 11, 2001, 10:28:37 AM7/11/01

to

Bonjour,

Pour récupérer le numéro de la colonne d'une cellule (BJ1 par exemple) :
Col=Range("BJ1").Column

Tu peux ensuite faire :
Cells(1,Col+1)
ce qui équivaudra à Range("BK1")

FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau

LEFEVRE Bertrand a écrit :

Frédéric Sigonneau

unread,

Jul 11, 2001, 10:42:35 AM7/11/01

to

Bonjour,

Pour récupérer le numéro de la colonne d'une cellule (BJ1 par exemple) :
Col=Range("BJ1").Column

Tu peux ensuite faire :
Cells(1,Col+1)
ce qui équivaudra à Range("BK1")

FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau

LEFEVRE Bertrand a écrit :
>

Frédéric Sigonneau

unread,

Jul 11, 2001, 10:43:34 AM7/11/01

to

Bonjour,

Pour récupérer le numéro de la colonne d'une cellule (BJ1 par exemple) :
Col=Range("BJ1").Column

Tu peux ensuite faire :
Cells(1,Col+1)
ce qui équivaudra à Range("BK1")

FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau

LEFEVRE Bertrand a écrit :
>

Frédéric Sigonneau

unread,

Jul 11, 2001, 10:43:38 AM7/11/01

to

Bonjour Pierre,

Ta fonction NumeroColonne pourrait, à mon avis, laisser Excel se débrouiller
tout seul :-)

Function NumeroColonne(Colonne As String)
NumeroColonne = Range(Colonne & 1).Column
End Function

FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau

Pierre Fauconnier a écrit :

> comment l'incrémenter XX-Mozilla-Status: 0009 BK.

Misange

unread,

Jul 11, 2001, 11:25:35 AM7/11/01

to

Pour connaître la lettre de la colonne, la formule du manitou :
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
explications là :
http://disciplus.simplex.free.fr/xl/lignecolonne.htm#lettrecolonne
sioux !

--
Misange
http://disciplus.simplex.free.fr

"Pierre Fauconnier" <pierre.f...@idealgestion.com> a écrit dans le
message news: e8ERG$gCBHA.2200@tkmsftngp07...

Pierre Fauconnier

unread,

Jul 11, 2001, 11:51:17 AM7/11/01

to

Merci Frédéric,

Plus court, c'est mieux

--
Bon travail

pierre.f...@idealgestion.com
"Les chose qui n'on rien en commun
ont en commun qu'elles n'ont rien en commun"

--
"Frédéric Sigonneau" <frederic....@wanadoo.fr> a écrit dans le message
news: 3B4C661A...@wanadoo.fr...

Pierre Fauconnier

unread,

Jul 11, 2001, 12:26:48 PM7/11/01

to

D'accord Frédéric, mais ce n'est pas trop pratique lorsque l'on veut
utiliser les noms des colonnes dans des formules à renvoyer à Excel du type
activecell.formulalocal=... Là, je trouve que c'est plus pratique de
fonctionner avec les lettres des colonnes

--
Bon travail

pierre.f...@idealgestion.com
"Les chose qui n'on rien en commun
ont en commun qu'elles n'ont rien en commun"

--
"Frédéric Sigonneau" <frederic....@wanadoo.fr> a écrit dans le message

news: 3B4C6295...@wanadoo.fr...