probleme de taille (apperement)Résolu

Question

Bon alors je sais pas trop si il s'agit plus d'un probleme de bureautique ou de programmation lol, l'avenir me le dira (qui ca???...je sors)
Normalement apres avoir régler ce probleme mon programme sera complet et parfait(on peut toujours réver)

Alors voila j'utilise ce code dans ma macro :
   cell = Range("A1").Value
   Mid(cell, 6) = TextBox1.Value
   Range("A1").Value = cell

en fait j'essaye de changer "open 0.0.0.0" en "open 10.0.0.15" (pour ceux qui me connaissent par mes anciens post, c'est la fameuse adresse ip que je voulais changer^^)
Le probleme c'est que apres la transformation avec la fonction mid, dans la cellule A1 je me retrouve avec "open 10.0.0." et ca ne se termine pas.
Pourquoi donc?? probleme de format? taille?

Renfield · Accepted Answer

Pourquoi ne pas faire :

Range("A1").Value = "open " & TextBox1.Value

ou, au pire:

Range("A1").Value = Left$(Range("A1").Value, 6) & TextBox1.Value

cs_faucheuse · Answer

et comment je dois faire alors?
J'ai essayer de déclarer cell comme double, mais ca change rien, et dans une autre cellule j'ai un plus grand texte qui passe tout seul.

jrivet · Answer

Salut,
Tu serais bien le premier pour qui la taille serait un problème  (je sui s parti déjà)

Pour ton problème que contient TextBox1.Value 
lors du changement?
pourquoi ne pas entrer directement TOUTE l'adresseIP dans le Textbox?

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Tiens,[auteur/RENFIELD/2359.aspx Renfield] tu as corrigé ton post 

@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

corrigé ? non, on ne peut pas, même les admins, (sauf ceux qui ont la main sur la BDD)

par contre, je peux supprimer des posts

cs_faucheuse · Answer

ok
Range("A1").Value = "open " & TextBox1.Value 
a l'air de bien fonctionner, je vous promet de me coucher tot se soir pour eviter de vous poser des questions aussi bete demain (d'ailleurs je vais piquer un somme ... a non zut vla le patron)

cs_faucheuse · Answer

omg j'ai oublié de dire merci
MERCI!!!

Mais au fait, je comprend quand meme pas pourquoi ma solution fonctionnait pas, quelqu'un pourrait m'expliquer svp (vous avez le droit de répondre "t'yreflechira demain" si vous considérez que c'est une autre question idiote XD)

Renfield · Answer

modifier un bout de chaine via Mid comme tu cherchais a le faire n'autorise pas a dépasser...

simplifions ton code :

Dim cell As String
    cell = "open 0.0.0.0"
    Mid$(cell, 6) = "10.0.0.15"
    MsgBox cell  
   => "open 10.0.0."

si tu avais eu :

Dim cell As String
    cell = "open 0.000.0.0"
    Mid$(cell, 6) = "10.0.0.15"
    MsgBox cell

tu aurais eu deux caractères de plus à modifier
on aurait bien obtenu "open 10.0.0.15"

cs_faucheuse · Answer

c'est bete comme truc, je vois pas trop l'interet d'avoir fait une limite ici mais ca doit servir autre part.
En tout cas merci Renfield

Renfield · Answer

modifier une chaine via Mid permet d''eviter de réallouer la chaine en question, et permet donc de gagner en temps d'execution.
faire ce genre de controles ralentirait la chose.

si tu veux avoir le loisir de dépasser, il te faudra de toutes facon réallouer... donc on concatène de nos elements pour créer une nouvelle chaine.

Kristof_Koder · Answer

Renfield < La fonction Mid$() en L-Value, ca ne te gène pas toi ?

Renfield · Answer

non, pourquoi ? 

permet de modifier des caractères d'une chaine sans réallouer celle-ci => gain de perf

Kristof_Koder · Answer

Ben va falloir que je teste ca car franchement, j'ai jamais pensé que cela fonctionnait !!

Probleme de taille (apperement)

13 réponses

Votre réponse