détermination caractère

wilfried_42

XLDnaute Barbatruc

• 21 Juin 2007

• #2

Re : détermination caractère

Bonjour Burg

essaye cela

if isnumeric(mid(chaine,10,1)) then exit sub

Cliquez pour agrandir...

Chaine est une variable contenant la chaine de caracteres à tester

 

Vote positif 0 Vote négatif

B

Burg

Guest

• 21 Juin 2007

• #3

Re : détermination caractère

and the winner is : WILFRIED42 ! Merci !!! 😀

 

Vote positif 0 Vote négatif

B

Burg

Guest

• 22 Juin 2007

• #4

Re : détermination caractère

et puisque tu es en forme, je vais en profiter..

dans cette formule :

"='JUIN 2007'!H149+'JUIN 2007'!J149"

je cherche à remplacer par code VBA les "149" par d'autres nombres, variables. Le dernier "149", ça va (Right..), mais pour celui du milieu, je me dis qu'il faut repérer le "+", et sélectionner les 3 caractères précédents. Mais quels sont les mots clés VBA qui permettent de localiser un caractère particulier dans une formule, puis les 3 précédents ? Merci !! 🙂

 

Vote positif 0 Vote négatif

L

Lord Nelson

XLDnaute Occasionnel

• 22 Juin 2007

• #5

Re : détermination caractère

Salut,

Avec Replace, par exemple :

Dim Chaine1 as String, Chaine2 as String
Chaine2 = Replace(Chaine1, "149", "150")

A+
Horatio

 

Vote positif 0 Vote négatif

B

Burg

Guest

• 22 Juin 2007

• #6

Re : détermination caractère

Merci de ta réponse ! seulement , "149" était un exemple. Il s'agit d'une variable qui varie (logique) chaque mois. Le "+" par contre, lui est permanent. "Replace" ne peut donc s'appliquer dans ce cas là... d'autres idées ?

 

Vote positif 0 Vote négatif

L

Lord Nelson

XLDnaute Occasionnel

• 22 Juin 2007

• #7

Re : détermination caractère

Re,

Avec INSTR tu aurais la position la position du signe + mais, à mon avis, Replace est une solution plus efficace puisque rien ne t'interdit de l'utiliser avec des variables :

Chaine2 = Replace(Chaine1, Variable_à_remplacer, Variable_de_remplacement)

A toi de voir...

Horatio

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 22 Juin 2007

• #8

Re : détermination caractère

re: bojour lordnelson

Si j'ai compris, je vais me baser sur les ! et le + et garder dans chaine1, la pemiere partie et dans chaine2 la 2eme
dans chaine, j'ai la totalité des caractere

dim pos1 as integer, pos2 as integer
pos1 = instr(chaine,"!")
chaine1 = left(chaine,pos1)
pos2 = instr(chaine,"+")
pos1 = instr(pos2,chaine,"!")
chaine 2 = mid(chaine,pos2, (pos1-pos2)+1)

Cliquez pour agrandir...

bonne journée

 

Vote positif 0 Vote négatif