Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1219 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [RESOLU] colonne en lettre et en chiffre

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[RESOLU] colonne en lettre et en chiffre

n°1385692
Tildus
Posté le 12-06-2006 à 11:54:50  profilanswer
 

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
mood
Publicité
Posté le 12-06-2006 à 11:54:50  profilanswer
 

n°1385749
kiki29
Posté le 12-06-2006 à 13:21:54  profilanswer
 

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
n°1385790
Tildus
Posté le 12-06-2006 à 14:06:35  profilanswer
 

merci beaucoup


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [RESOLU] colonne en lettre et en chiffre

 

Sujets relatifs
[VBA][resolu]parcouir une listebox[résolu] Impossible d'utiliser les fonctions preg_*
[VB6][resolu] prob requete[resolu] erreur C1083 Cannot open include file ...ça a l'air tout bête
[Résolu]delete mysql sous phperreur validation W3C (résolu)
boost::serialization [resolu][Shell résolu] trier les lignes obtenues par tail -f
(RESOLU) messagebox après un traitement PHP? 
Plus de sujets relatifs à : [RESOLU] colonne en lettre et en chiffre


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR