Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Simplification de code

Simplification de code

4 réponses
Avatar
Jacky
Bonjour à tous
Peut-être un doublon, j'avais oublié l'objet dans le premier message

Je cherche un code (sans boucle) pour l'équivalent de celui ci dessous.
C'est l'adresse d'une sélection en cours.
Ex:
x = $AA$25:$AB$50
ad_cel = AA25:AB50
'------------
x = Selection.Address
MsgBox x
For i = 1 To Len(x)
If Mid(x, i, 1) <> "$" Then ad_cel = ad_cel & Mid(x, i, 1) ' =adresse
cellule sans les $
Next
MsgBox ad_cel
'-------------
Sur xl97

Bonne journée
JJ
Signaler un problème avec ce contenu

4 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
Pierre Fauconnier
Bonjour

msgbox x.address(0,0)

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Jacky" a écrit dans le message
de news:
Bonjour à tous
Peut-être un doublon, j'avais oublié l'objet dans le premier message

Je cherche un code (sans boucle) pour l'équivalent de celui ci dessous.
C'est l'adresse d'une sélection en cours.
Ex:
x = $AA$25:$AB$50
ad_cel = AA25:AB50
'------------
x = Selection.Address
MsgBox x
For i = 1 To Len(x)
If Mid(x, i, 1) <> "$" Then ad_cel = ad_cel & Mid(x, i, 1) ' ­resse
cellule sans les $
Next
MsgBox ad_cel
'-------------
Sur xl97

Bonne journée
JJ




Avatar
Jacky
Bonsoir Pierre

Cela me fait une erreur 424==>objet requis
JJ

"Pierre Fauconnier" a écrit dans le
message de news:
Bonjour

msgbox x.address(0,0)

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Jacky" a écrit dans le
message

de news:
Bonjour à tous
Peut-être un doublon, j'avais oublié l'objet dans le premier message

Je cherche un code (sans boucle) pour l'équivalent de celui ci dessous.
C'est l'adresse d'une sélection en cours.
Ex:
x = $AA$25:$AB$50
ad_cel = AA25:AB50
'------------
x = Selection.Address
MsgBox x
For i = 1 To Len(x)
If Mid(x, i, 1) <> "$" Then ad_cel = ad_cel & Mid(x, i, 1) '
­resse


cellule sans les $
Next
MsgBox ad_cel
'-------------
Sur xl97

Bonne journée
JJ








Avatar
Pierre Fauconnier
Sorry,

x = selection.Address(0,0)
et x contiendra l'adresse sans les $

Pierre


"Jacky" a écrit dans le message
de news:uzUg$
Bonsoir Pierre

Cela me fait une erreur 424==>objet requis
JJ

"Pierre Fauconnier" a écrit dans le
message de news:
Bonjour

msgbox x.address(0,0)

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Jacky" a écrit dans le
message

de news:
Bonjour à tous
Peut-être un doublon, j'avais oublié l'objet dans le premier message

Je cherche un code (sans boucle) pour l'équivalent de celui ci
dessous.



C'est l'adresse d'une sélection en cours.
Ex:
x = $AA$25:$AB$50
ad_cel = AA25:AB50
'------------
x = Selection.Address
MsgBox x
For i = 1 To Len(x)
If Mid(x, i, 1) <> "$" Then ad_cel = ad_cel & Mid(x, i, 1) '
­resse


cellule sans les $
Next
MsgBox ad_cel
'-------------
Sur xl97

Bonne journée
JJ












Avatar
Jacky
Re.
J'ai rectifié
x = Selection.Address(0,0)

Merci Pierre
Bonne soirée
JJ

"Jacky" a écrit dans le message
de news:
Bonjour à tous
Peut-être un doublon, j'avais oublié l'objet dans le premier message

Je cherche un code (sans boucle) pour l'équivalent de celui ci dessous.
C'est l'adresse d'une sélection en cours.
Ex:
x = $AA$25:$AB$50
ad_cel = AA25:AB50
'------------
x = Selection.Address
MsgBox x
For i = 1 To Len(x)
If Mid(x, i, 1) <> "$" Then ad_cel = ad_cel & Mid(x, i, 1) ' ­resse
cellule sans les $
Next
MsgBox ad_cel
'-------------
Sur xl97

Bonne journée
JJ