Discussion :

[H.ile]

Aloha

Dans ma macro VBA j'ai ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
TZ = InStr(1, ch_attribut, "T = Z de l'objet")
Select Case TZ
    Case Is = 0
      GoTo finTZ
    Case Is > 0
      ch_attribut = Left(ch_attribut, TZ - 1) & "T" & Mid(ch_attribut, TZ + 1)
End Select

Oui mais voilà, ch_attribut reste égal à ch_attribut même dans le cas ou TZ = 2.
Pourquoi ?

[dadavyvy]

Exemple dans le cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ch_attribut = "@T = Z de l'objet@"
 
TZ = InStr(1, ch_attribut, "T = Z de l'objet")
'tu as : TZ = 2
 
Select Case TZ
    Case Is = 0
      GoTo finTZ
    Case Is > 0
      ch_attribut = Left(ch_attribut, TZ - 1) & "T" & Mid(ch_attribut, TZ + 1)
'Left(ch_attribut, TZ - 1) = "@"
'Mid(ch_attribut, TZ + 1) = " = Z de l'objet@",
'    car tu ne spécifies pas la longueur du texte à extraire dans le Mid
'    donc il va jusqu'au dernier caractère
End Select
' Bref tu enlèves le "T" pour le remettre

[Godzestla]

Bonjour,

2 petites remarques.

1) Essaie d'éviter les Goto.
2) Si tu es certain (debug) que TZ = 2, alors cela ne semble pas être un probleme de Select case mais c'est plutot l'instruction suivante qui ne fait rien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ch_attribut = Left(ch_attribut, TZ - 1) & "T" & Mid(ch_attribut, TZ + 1)

Si TZ = 2, ton code ne fait rien car il remet T en pos 2.

[ouskel'n'or]

Pour ma part, je n'ai pas de pb avec ça...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ch_attribut = "2T = Z de l'objet"
TZ = InStr(1, ch_attribut, "T = Z de l'objet")
Select Case TZ
    Case Is = 0
      MsgBox TZ
    Case Is > 0
      MsgBox TZ
End Select

Bref, il semblerait que tu ne nous dises pas tout

[ucfoutu]

Bonjour,

Il est clair que si tu prends tout ce qu'il y a à gauche jusqu'à la position TZ -1 et que tu le concatènes avec "T" et tout ce qui suit la position TZ + 1, ta chaine résultante sera rigoureusement égale à la chaîne traitée !

Réfléchis déjà à la logique d'aller jusqu'au caractère, à gauche, de position TZ-1, puis de lui rajouter le caractère de rang TZ (lme caractère "T") !!!
Cela équivaut à prendre à gauche tout ce qui va jusqu'au caractère TZ, donc "T" inclus !!!

Que manque-t-il dans cette affaire ? du code ? non... de la logique ? oui...

Et si tu nous disais plutôt (avec un exemple de chaîne traitée et de chaîne résultante) ce que tu attends comme chaîne résultante ? (car on ne le sait pas !)

[Gorfael]

Salut dadavyvy et le forum
Pas sur, mais pour moi InStr(1, ch_attribut, "T = Z de l'objet") renvoi du texte et l'instruction Select case peut traiter des chiffres ou des lettres. il faudrait changer TZ en nombre (CInt par exemple) ou faire que Select Case teste des chiffres ("0", "1", etc)
A+

[ouskel'n'or]

Non, Instr renvoie un variant, j'ai vérifié ça car j'avais aussi cette idée. Or un variant prend le premier type utilisé.

Tu me copieras cent fois

Instr : Renvoie une valeur de type Variant (Long) indiquant la position de la première occurrence d'une chaîne à l'intérieur d'une autre chaîne