Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba Convertir lettre en numéro de colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion C@thy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

C@thy

XLDnaute Barbatruc
Bonjour le forum,

dans le temps jadis (= avant la V2007) j'avais cette macro :
Code: 
Sub ConvertirLettrColonne()
quest1:
 If Application.ReferenceStyle = xlA1 Then
letColonne = InputBox("Indiquez la lettre de la colonne")
If Len(letColonne) > 2 Then GoTo quest1
 If Len(letColonne) = 2 Then
 verif_colonne = (((Asc(UCase(Left(letColonne, 1))) - 64) * 26)) + (Asc(UCase(Right(letColonne, 1))) - 64)
 Else
 verif_colonne = (Asc(UCase(letColonne)) - 64)
 End If
 End If
MsgBox verif_colonne
End Sub
mais, évidemment ça ne marche pas avec les colonnes à 3 lettres (ex. AAA doit donner 703...)

Je suis sûre que vous avez une idée...

Merci à vous.

Bises

C@thy
 
Trier par date Trier par votes
Re : vba Convertir lettre en numéro de colonne

OK, un très grand Merci à vous, cela fonctionne très bien.

...J'ai une petite préférence pour le code de job75, cela semble si simple...🙂

Question subsidiaire :

et l'inverse???😱

C@thy
 
Vote positif 0 Vote négatif
Re : vba Convertir lettre en numéro de colonne

Bonjour C@thy, Bernard,

Code: 
Sub ConvertirNumeroColonne()
Dim num$, lettres$
1 num = InputBox("Indiquez le numero de la colonne")
If num = "" Then Exit Sub
On Error Resume Next
lettres = Split(Columns(Val(num)).Address(0, 0), ":")(0)
If lettres = "" Then GoTo 1
MsgBox lettres, , "Lettre(s) colonne " & Val(num)
End Sub
A+
 
Vote positif 0 Vote négatif
Re : vba Convertir lettre en numéro de colonne

Re...


C@thy à dit:
(...)

Question subsidiaire :

et l'inverse???😱
(...)
Cliquez pour agrandir...

Dranreb à dit:
Bonjour.
Fonction inverse EntCol déjà donnée poste #13
Cliquez pour agrandir...
... et dans le message #14 également...​


Bonne journée.


ℝOGER2327
#7735

Mardi 10 Gueules 142 (Saint Préservatif, bedeau - fête Suprême Quarte)
16 Pluviôse An CCXXIII, 5,3204h - buis
2015-W06-3T12:46:09Z
 
Vote positif 0 Vote négatif
Re : vba Convertir lettre en numéro de colonne

Bonjour à tous

Pour les colonnes en lettre, j'ai fait cette procédure. A voir si cela fonctionne quelque soit la version d'Excel 😕.

Code VBA:
Sub Colonne_En_Lettre()
MsgBox Replace(Mid(Columns(ActiveCell.Column).Address, 2, (Len(Columns(ActiveCell.Column).Address) / 2) - 1), ":", "")
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
LibreOffice Calc LibreOffice cal probleme pour effacer colonne
Réponses
1
Affichages
166
Staple1600
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
185
oguruma
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
352
papychat1
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
338
fanch55
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
326
anthoYS
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
486
oguruma
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
381
Etoto
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
181
Pierreavecunp
P
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
557
Minus&Cortex
M
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
284
piga25
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
438
snoopy07
S
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
460
AtTheOne
Génération de QR Codes
Réponses
5
Affichages
1 K
mromain
M
  • Question Question
XL 2016 Impression d'un rapport PDF depuis une URL avec VBA
Réponses
3
Affichages
949
mrcooll
M
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
500
Nicolas JACQUIN
W
  • Question Question
Microsoft 365 VBA: Supprimer Doublons de data dans une colonne
Réponses
3
Affichages
441
merinos-BernardEtang
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
798
GADENSEB
  • Résolu(e)
Microsoft 365 lister des fichiers
2
Réponses
19
Affichages
2 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…