[RESOLU] colonne en lettre et en chiffre

Marsh Posté le 12-06-2006 à 11:54:50

Bonjour a tous,

Je dois faire une macro qui insère des colonnes hors j'ai un problème. Cette macro doit effectuer des calculs et des comparaisons entre les colonnes de 2 fichiers excel différents.

Voici ma méthode :

Premièrement je récupère une colonne et son nom, seulement après, je voudrais pouvoir l'incrémenter. Il faut donc que je la transforme en entier pour l'incrémenter, puis la repasser en string pour utiliser Range("C3" ).select par exemple.

Comment faire ces transformations?

Merci d'avance.

Message édité par Tildus le 12-06-2006 à 14:06:20

Marsh Posté le 12-06-2006 à 11:54:50

Marsh Posté le 12-06-2006 à 13:21:54

Sous forme de fonctions personnalisées, donc à placer dans un Module pour pouvoir les appeler via le menu Excel Insertion | Fonctions Fonctions Personnalisées
Les limites : A à FXSHRXW | 1 à 2147483647

Public Function Lettre2NumCol(ByVal Chaine As String) As Long
Dim i As Long, ValeurCh As Long, v As Long
Const ChaineAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To Len(Chaine)
ValeurCh = InStr(1, ChaineAlpha, Mid(UCase(Chaine), i, 1))
v = v * 26 + ValeurCh
Next
Lettre2NumCol = v
End Function

Public Function NumCol2Lettre(ByVal NumCol As Long) As String
Dim i As Long, x As Long, s As String
For i = 6 To 0 Step -1
x = (26 ^ (i + 1) - 1) / 25 - 1
If NumCol > x Then
s = s & Chr(((NumCol - x - 1) \ 26 ^ i) Mod 26 + 65)
End If
Next i
NumCol2Lettre = s
End Function

Message édité par kiki29 le 07-07-2007 à 05:06:45

Marsh Posté le 12-06-2006 à 14:06:35

merci beaucoup

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *