Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Extraire les letrres d'une adresse de cellule

Extraire les letrres d'une adresse de cellule

6 réponses
Avatar
Guitard Jean-Luc
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Youky \(BJ\)
Voici une solution proposée par Isabelle,

MsgBox Application.Substitute(Left(ActiveCell.Address, 3), "$", "")

cela renvoie seulement les lettres de colonne et sans les $
Youky (BJ)

"Guitard Jean-Luc" a écrit dans le message de news:
4960adf0$0$9383$
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci



Avatar
Guitard Jean-Luc
La solution fonctionne parfaitement
mais je souhaiterai garder les $ (ex : $GA$1) ou ($G$1)
est ce possible ?
merci

"Youky (BJ)" a écrit dans le message de
news:
Voici une solution proposée par Isabelle,

MsgBox Application.Substitute(Left(ActiveCell.Address, 3), "$", "")

cela renvoie seulement les lettres de colonne et sans les $
Youky (BJ)

"Guitard Jean-Luc" a écrit dans le message de
news: 4960adf0$0$9383$
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci







Avatar
Jacquouille
Bonjour

En reprenant la réponse de Ysabeau-Youry,

sub tralala ()
[A1]="$"& Application.Substitute(Left(ActiveCell.Address, 3), "$", "")
msgbox "Bonne Année"

PS Si tu veux un espace entre le $ et la ou les lettre(s), tu le rajoutes
ici:--->[A1]="$ "&

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Youky (BJ)" a écrit dans le message de
news:
Voici une solution proposée par Isabelle,

MsgBox Application.Substitute(Left(ActiveCell.Address, 3), "$", "")

cela renvoie seulement les lettres de colonne et sans les $
Youky (BJ)

"Guitard Jean-Luc" a écrit dans le message de
news: 4960adf0$0$9383$
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci







Avatar
Philippe.R
Bonsoir,
Une tite variante :

Sub Lettres_Adresse()
MsgBox Application.Substitute(Application.Substitute( _
Application.Substitute(Application.Substitute( _
Application.Substitute(Application.Substitute( _
Application.Substitute(Application.Substitute( _
Application.Substitute(Application.Substitute( _
ActiveCell.Address, 0, ""), 1, ""), 2, ""), 3, _
""), 4, ""), 5, ""), 6, ""), 7, ""), 8, ""), 9, "")
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Guitard Jean-Luc" a écrit dans le message de
news:4960adf0$0$9383$
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci



Avatar
Guitard Jean-Luc
Merci beaucoup
et bonne année à tous
"Jacquouille" a écrit dans le message de
news:
Bonjour

En reprenant la réponse de Ysabeau-Youry,

sub tralala ()
[A1]="$"& Application.Substitute(Left(ActiveCell.Address, 3), "$", "")
msgbox "Bonne Année"

PS Si tu veux un espace entre le $ et la ou les lettre(s), tu le rajoutes
ici:--->[A1]="$ "&

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Youky (BJ)" a écrit dans le message de
news:
Voici une solution proposée par Isabelle,

MsgBox Application.Substitute(Left(ActiveCell.Address, 3), "$", "")

cela renvoie seulement les lettres de colonne et sans les $
Youky (BJ)

"Guitard Jean-Luc" a écrit dans le message de
news: 4960adf0$0$9383$
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci











Avatar
Youky \(BJ\)
Pour le Fun......
MsgBox Left(ActiveCell.Address, InStr(2, ActiveCell.Address, "$"))
ca va aussi
Youky (BJ)


"Guitard Jean-Luc" a écrit dans le message de news:
4960d951$0$4083$
Merci beaucoup
et bonne année à tous
"Jacquouille" a écrit dans le message de
news:
Bonjour

En reprenant la réponse de Ysabeau-Youry,

sub tralala ()
[A1]="$"& Application.Substitute(Left(ActiveCell.Address, 3), "$", "")
msgbox "Bonne Année"

PS Si tu veux un espace entre le $ et la ou les lettre(s), tu le
rajoutes ici:--->[A1]="$ "&

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Youky (BJ)" a écrit dans le message de
news:
Voici une solution proposée par Isabelle,

MsgBox Application.Substitute(Left(ActiveCell.Address, 3), "$", "")

cela renvoie seulement les lettres de colonne et sans les $
Youky (BJ)

"Guitard Jean-Luc" a écrit dans le message de
news: 4960adf0$0$9383$
Bonjour
Pour extraire les lettres d'une adresse de cellule ex: $A$1 obtenir $A$
j'utilise cette macro peut on simplifier ?
Sub Adresse()
l = Len(ActiveSheet.c.Address)
If l = 4 Then
Deb = Left(ActiveSheet.c.Address, 3)
Else
Deb = Left(ActiveSheet.c.Address, 4)
End If
End Sub

Merci