Extraire les letrres d'une adresse de cellule

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky \(BJ\)
Le #18295651
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" 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



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

"Youky (BJ)" 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" 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







Jacquouille
Le #18296611
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)" 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" 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







Philippe.R
Le #18296881
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" 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



Guitard Jean-Luc
Le #18296871
Merci beaucoup
et bonne année à tous
"Jacquouille" 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)" 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" 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











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


"Guitard Jean-Luc" 4960d951$0$4083$
Merci beaucoup
et bonne année à tous
"Jacquouille" 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)" 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" 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















Publicité
Poster une réponse
Anonyme