A voir également:
- [Excel] Récupérer le NUMERO d'une colonne
- [Excel] Récupérer le NUMERO d'une colonne ✓ - Forum - Excel
- Récupérer le numéro de ligne d'une cellule excel ✓ - Forum - Excel
- Récupérer le numéro de ligne d'une cellule excel vba ✓ - Forum - VB / VBA
- Excel récupérer valeurs d'une colonne sans doublons ✓ - Forum - Bureautique
- Excel formule convertir numéro colonne en lettre - Forum - Excel
10 réponses
eriiic
- Messages postés
- 23419
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 8 août 2020
Bonjour,
ActiveCell.Column tout simplement
eric
ActiveCell.Column tout simplement
eric
Anonyme
Salut
Microsoft Windows Excel :
Conversion lettre de colonne, Microsoft Windows Excel, en numéro :
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
Conversion numéro de colonne, Microsoft Windows Excel, en lettre :
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
Source => http://www.presence-pc.com/forum/ppc/Programmation
/access-recherche-colonne-vide-fichier-excel-sujet-4956-1.htm#t33729
merci .
à+
Microsoft Windows Excel :
Conversion lettre de colonne, Microsoft Windows Excel, en numéro :
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
Conversion numéro de colonne, Microsoft Windows Excel, en lettre :
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
Source => http://www.presence-pc.com/forum/ppc/Programmation
/access-recherche-colonne-vide-fichier-excel-sujet-4956-1.htm#t33729
merci .
à+
nospam873
- Messages postés
- 2
- Date d'inscription
- vendredi 8 novembre 2013
- Statut
- Membre
- Dernière intervention
- 11 novembre 2013
Ma fonction a évoluée, voici la dernière version:
Fonction à modifier selon votre convenance pour s'appliquer à vos besoins.
Public Function Conv_en_lettre(ByVal NumCol As Long) As String
'
'
' Fonction calculant la ou les lettre(s) d'une colonne à partir de son ordonnée.
'
'
Dim i As Long, s As String
For i = 1 To 0 Step -1
'Car le nombre maximum de colonnes est "iv" soit (9*26^1+22*26^0=)256.
If NumCol >= 26 ^ i Or NumCol = 0 Then
If i >= 1 And NumCol > 26 Then
s = s & Chr(((NumCol - 26) \ 26 ^ i + 1) + 64)
'"\" partie entière de la division seulement
NumCol = NumCol - (((NumCol - 26) \ 26 ^ i + 1) * 26)
'Calcul du deuxième chiffre(maximum possible):
' - retrait des unités: -26
' - calcul du chiffre des dizaines: chiffre_des_dizaines\26 (partie entière)
' - que l'on multiplie par 26
'et que l'on soustrait au nombre de colonnes données.
Else
If NumCol <> 0 then
s = s & Chr(NumCol + 64)
Else
MsgBox "Un numéro de colonnes ne peut être inférieur ou égale à zéro.", vbInformation
`en base 26 (bien entendu)
s= s&Chr (65)
'65 correspond à 'A'
End if
NumCol = -1
End If
End If
Next i
Conv_en_lettre = s
End Function
----------------------------------------------------------------------------------------------------------------------------
Définition d'un bouton permettant la sélection de la colonne correspondant à la date du jour d'un calendrier.
Private Sub CommandButton1_Click()
For Each cel In Range("C2:AG2")
If cel.Value = Day(Date) Then
Columns(Conv_en_lettre(cel.Column)).Select
'cel.Column: renvoie le numéro de la colonne
End If
Next cel
End Sub
Pour les autres, voilà le lien les hébergeant:
https://docs.google.com/document/d/1NrMvV0cP6lDZ3f3HnGYTXxZjQy6mQF9S0Lj2Zka4qCs/edit?usp=sharing
Fonction à modifier selon votre convenance pour s'appliquer à vos besoins.
Public Function Conv_en_lettre(ByVal NumCol As Long) As String
'
'
' Fonction calculant la ou les lettre(s) d'une colonne à partir de son ordonnée.
'
'
Dim i As Long, s As String
For i = 1 To 0 Step -1
'Car le nombre maximum de colonnes est "iv" soit (9*26^1+22*26^0=)256.
If NumCol >= 26 ^ i Or NumCol = 0 Then
If i >= 1 And NumCol > 26 Then
s = s & Chr(((NumCol - 26) \ 26 ^ i + 1) + 64)
'"\" partie entière de la division seulement
NumCol = NumCol - (((NumCol - 26) \ 26 ^ i + 1) * 26)
'Calcul du deuxième chiffre(maximum possible):
' - retrait des unités: -26
' - calcul du chiffre des dizaines: chiffre_des_dizaines\26 (partie entière)
' - que l'on multiplie par 26
'et que l'on soustrait au nombre de colonnes données.
Else
If NumCol <> 0 then
s = s & Chr(NumCol + 64)
Else
MsgBox "Un numéro de colonnes ne peut être inférieur ou égale à zéro.", vbInformation
`en base 26 (bien entendu)
s= s&Chr (65)
'65 correspond à 'A'
End if
NumCol = -1
End If
End If
Next i
Conv_en_lettre = s
End Function
----------------------------------------------------------------------------------------------------------------------------
Définition d'un bouton permettant la sélection de la colonne correspondant à la date du jour d'un calendrier.
Private Sub CommandButton1_Click()
For Each cel In Range("C2:AG2")
If cel.Value = Day(Date) Then
Columns(Conv_en_lettre(cel.Column)).Select
'cel.Column: renvoie le numéro de la colonne
End If
Next cel
End Sub
Pour les autres, voilà le lien les hébergeant:
https://docs.google.com/document/d/1NrMvV0cP6lDZ3f3HnGYTXxZjQy6mQF9S0Lj2Zka4qCs/edit?usp=sharing
JohnDKD
- Messages postés
- 1
- Date d'inscription
- mercredi 17 juin 2015
- Statut
- Membre
- Dernière intervention
- 17 juin 2015
Version Excel 2010
Bonjour,
Simplifions, en une seule ligne possible. De plus, ça fonctionne même si la colonne dépasse ZZ ou AAA.
adr1 = Cells(1, NumCol).Address
msgbox Mid(adr1, InStr(adr1, "$") + 1, InStr(2, adr1, "$") - 2)
Merci
Bonjour,
Simplifions, en une seule ligne possible. De plus, ça fonctionne même si la colonne dépasse ZZ ou AAA.
adr1 = Cells(1, NumCol).Address
msgbox Mid(adr1, InStr(adr1, "$") + 1, InStr(2, adr1, "$") - 2)
Merci
sardine-à l'huile
- Messages postés
- 726
- Date d'inscription
- vendredi 24 décembre 2004
- Statut
- Membre
- Dernière intervention
- 20 août 2010
bonjour
excuse moi si je réponds un peu à côté, mais par analogie, la fonction "colonne" renvoie bien le numéro de la colonne d'une cellule spécifiée, ça serait peut-etre une piste pour ta macro?
Joel
excuse moi si je réponds un peu à côté, mais par analogie, la fonction "colonne" renvoie bien le numéro de la colonne d'une cellule spécifiée, ça serait peut-etre une piste pour ta macro?
Joel
0seb0
- Messages postés
- 37
- Date d'inscription
- jeudi 16 août 2007
- Statut
- Membre
- Dernière intervention
- 6 mars 2008
Merci à tous ! :-)
gpc
tu recupère C et tu soustrait son code a celui de A tu obtiendra 3
y a surement une methode de la classe cellule qui le fait mais je connait pas
je cherche egalement si quelqu'un connait cette methode
y a surement une methode de la classe cellule qui le fait mais je connait pas
je cherche egalement si quelqu'un connait cette methode
nospam873
- Messages postés
- 2
- Date d'inscription
- vendredi 8 novembre 2013
- Statut
- Membre
- Dernière intervention
- 11 novembre 2013
Après pas mal de test, voici ma version pour convertir des numéros de colonnes en lettre:
J'ai passé pas mal de temps car je l'utilise moi-même:
Public Function Conv_en_lettre(ByVal NumCol As Long) As String
'
'
' Fonction calculant la ou les lettre(s) d'une colonne à partir de son ordonnée.
'
'
Dim i As Long, s As String
For i = 1 To 0 Step -1
'Car le nombre maximum de colonnes est "iv" soit (9*26^1+22*26^0=)256.
If NumCol >= 26 ^ i Or NumCol = 0 Then
If i >= 1 And NumCol > 26 Then
s = s & Chr(((NumCol - 26) \ 26 ^ i + 1) + 64)
'"\" partie entière de la division seulement
NumCol = NumCol - (((NumCol - 26) \ 26 ^ i + 1) * 26)
'Calcul du deuxième chiffre(maximum possible):
' - retrait des unités: -26
' - calcul du chiffre des dizaines: chiffre_des_dizaines\26 (partie entière)
' - que l'on multiplie par 26
'et que l'on soustrait au nombre de colonnes données.
Else
s = s & Chr(NumCol + 64)
'65 correspond à 'A'
NumCol = -1
End If
End If
Next i
Conv_en_lettre = s
End Function
J'ai passé pas mal de temps car je l'utilise moi-même:
Public Function Conv_en_lettre(ByVal NumCol As Long) As String
'
'
' Fonction calculant la ou les lettre(s) d'une colonne à partir de son ordonnée.
'
'
Dim i As Long, s As String
For i = 1 To 0 Step -1
'Car le nombre maximum de colonnes est "iv" soit (9*26^1+22*26^0=)256.
If NumCol >= 26 ^ i Or NumCol = 0 Then
If i >= 1 And NumCol > 26 Then
s = s & Chr(((NumCol - 26) \ 26 ^ i + 1) + 64)
'"\" partie entière de la division seulement
NumCol = NumCol - (((NumCol - 26) \ 26 ^ i + 1) * 26)
'Calcul du deuxième chiffre(maximum possible):
' - retrait des unités: -26
' - calcul du chiffre des dizaines: chiffre_des_dizaines\26 (partie entière)
' - que l'on multiplie par 26
'et que l'on soustrait au nombre de colonnes données.
Else
s = s & Chr(NumCol + 64)
'65 correspond à 'A'
NumCol = -1
End If
End If
Next i
Conv_en_lettre = s
End Function
Anonyme
Salut
Identifier la position d'une colonne Microsoft Windows Excel depuis son header, et vice versa :
Numérique vers chaîne et chaîne vers numérique :
http://www.codyx.org/snippet_identifier-position-colonne-excel-depuis-son-header-vice_282.aspx
# Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
merci .
à+
Identifier la position d'une colonne Microsoft Windows Excel depuis son header, et vice versa :
Numérique vers chaîne et chaîne vers numérique :
http://www.codyx.org/snippet_identifier-position-colonne-excel-depuis-son-header-vice_282.aspx
# Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
merci .
à+