[Excel] Récupérer le NUMERO d'une colonne

Résolu

Numéro
Valeur
Vba
Colonne

0seb0 Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
JohnDKD Messages postés 1 Date d'inscription Statut Membre Dernière intervention - 17 juin 2015 à 13:29

Bonjour,

Pour une macro, je cherche à récupérer dans l'Integer appelé "plouc" (ouais, on fait ce qu'on peut niveau imagination... :p) le numéro de la colonne de la cellule sélectionnée. Comment faire ?

Attention : 2 mots sont importants dans ce que je viens de dire : "numéro" et "Integer".
En effet, plouc est déclaré comme : dim plouc As Integer
Et ActiveCell.Address donnerait quelque chose comme $C$24 mais moi, je ne veux ni 24, ni C mais... 3 !

Merci à vous !

Afficher la suite

Répondre (10) Posez votre question

Répondre (10)

A voir également:

Trouver le numéro de colonne d'une valeur excel
Déplacer une colonne excel - Guide
Trier colonne excel - Guide
Formule somme excel colonne - Guide
Numero prive - Guide
Liste déroulante excel - Guide

10 réponses

Réponse 1 / 10

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

ActiveCell.Column tout simplement
eric

Réponse 2 / 10

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 .

à+

Réponse 3 / 10

nospam873 Messages postés 2 Date d'inscription Statut Membre Dernière intervention 2

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

Réponse 4 / 10

JohnDKD Messages postés 1 Date d'inscription Statut Membre Dernière intervention 1

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

sardine-à l'huile Messages postés 727 Date d'inscription Statut Membre Dernière intervention 1 175

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

Réponse 6 / 10

0seb0 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 16

Merci à tous ! :-)

Réponse 7 / 10

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

Réponse 8 / 10

lanar

génial ces 2 fonctions , je m'en sert régulièrement

Réponse 9 / 10

nospam873 Messages postés 2 Date d'inscription Statut Membre Dernière intervention 2

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

Réponse 10 / 10

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 .

à+

-1

Répondre Posez votre question

Votre réponse

Discussions similaires

[vba] recherche d'une valeur EXACTE

cel92 -
Mimi -

10 réponses

EXCEL VBA - recherche d'une valeur

olive60 -
olive60 -

18 réponses

Macro, excel, rechercher une valeur

clemdore -
michel_m -

5 réponses

Excel si cellule contient texte alors...

caba_44 -
RENOU -

41 réponses

chercher une valeur dans une colonne précise

NLAH -
Utilisateur anonyme -

5 réponses

valeur derniere cellule dans une colonne

luky 1962 -
yclik -

1 réponse

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire