Supprimer le premier caratère de la chaîne de caractères

[Résolu]
Signaler
Messages postés
134
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
5 avril 2007
-
Messages postés
134
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
5 avril 2007
-
re bonjour!

cette fois-ci, j'ai une variable Adresse (string) et je voudrai supprimer le premier, ou les 2 ou 3 premiers caractères (tjs en vba). exple si g Adresse qui contient "$B$1" ke ca me retourne ke 1 ou "$B$100" ca me retourne 100.
merci d'avance
jordinette

3 réponses

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
5
Toi, tu serais en train de partir du code que je t'ai fourni précédemment avec l_Cell.Address, que ça ne m'étonnerait pas.

Le mieux pour renvoyer le numéro de ligne, c'est d'utiliser directement l_Cell.Row (l_Cell.Column pour le numéro de colonne).

Sinon pour répondre à ta question :
ls_Adresse = "$B$100"
Debug.Print Right(ls_Adresse, len(ls_Adresse) - 3).
Un pb se pose si tu as sélectionné la colonne BG =>
ls_Adresse = "$BG$100"
Right(ls_Adresse, len(ls_Adresse) - 3) va te renvoyer "$100" au lieu de 100.
Le mieux c'est d'utiliser la fonction Split qui va découper ta chaine par rapport à un délimiteur :
Dim ls_Coordonnees() As String
Dim ls_Adresse as String
ls_Adresse = "$B$100"ls_Coordonnees Split(ls_Adresse, "$")> ls_Coordonnees(0) contient "B" et ls_Coordonnees(1) contient "100"
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
5
Correction, à cause du premier "$" dans ls_Adresse,
ls_Coordonnees(0) = ""
ls_Coordonnees(1) = "B"
ls_Coordonnees(2) = "100"
Messages postés
134
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
5 avril 2007

Ben si j'utilise l'aide que tu me fournis, et je t'en remerci. mais je crois que j'ai pas fini de venir demander de l'aide vu que chaque jour mon chef me rajoute une difficultée ;)
Bon app
Jordinette