textbox en cdbl

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #2

Re : textbox en cdbl

Bonjour

essaies

if ME.SPE3="" then
Cells(derlig,3)=""
else
Cells(derlig,3)=CDbl(ME.SPE3)
end if

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 6 Janvier 2009

• #3

Re : textbox en cdbl

Salut,Hidozo

as tu essayé au début de ton code de mettre On error Resume next

Cordialement

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 6 Janvier 2009

• #4

Re : textbox en cdbl

Bonjour,
La solution de pascal fonctionne, mais j'ai 200 textbox à basculer dans Excel alors fastidieux

la solution de Said fonctionne apparement après le 1er test, merci à vous deux.
Hidozo

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #5

Re : textbox en cdbl

RE

en effet cela peut-être fastidieux mais si tu as nommé tes textbox avec des numéros et que cela correspondent à des colonnes on peut faire une boucle ainsi que quelques lignes de code

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 6 Janvier 2009

• #6

Re : textbox en cdbl

Re bonjour,

Oui, je sais,

j'ai bien listé mes textbox (SPE1 à SPE135), mais certaines ce sont des valeurs donc j'utilise cdbl et d'autres du texte donc je transfere directement.

J'ai bien pensé à for i =1 to 135... mais je n'ai pas réussi, j'ai bossé juque 3 hrs du mat la dessus.

Cordialement

Hidozo

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #7

Re : textbox en cdbl

RE

il faut faire un truc du genre

for i = i to 135
Cells(derlig,i)=CDbl(controls("SPE" & i))
next

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 6 Janvier 2009

• #8

Re : textbox en cdbl

re,

oui, j'ai essayé, mais un textbox tous les 3 est du text alors ça me fait ecrire un paquet de boucles.

mais je vais devoir optimisé l'outil.

Là il fonctionne donc je peux le livrer pour la 1ère version.

Merci de ton aide

hidozo

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #9

Re : textbox en cdbl

Si c'est vraiment un text box tous les 3 on doit pouvoir faire avec 3 boucles

Après si c'est aléatoire c'est vrai que c'est plus difficile

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 6 Janvier 2009

• #10

Re : textbox en cdbl

oui, des boucles, je sais, mais dur de les mettre à plat.

je verrai ça plus tard, mais ce searit mieux en effet.

Hidozo

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 6 Janvier 2009

• #11

Re : textbox en cdbl

Bonjour à tous

un petit truc en passant qui peux aider : une variable de type string

Code:

mavar = "ANNADANNNNNAD"
for i = 1 to len(mavar)
     select case mid(mavar,i,1)
          case "A"
                cells(a,i) = me.controls("SPE" & i)
          case "N"
                cells(a,i) = cdbl(me.controls("SPE" & i))
          case "D"
                cells(a,i) = cdate(me.controls("SPE" & i))
     end select
next i

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 6 Janvier 2009

• #12

Re : textbox en cdbl

Bonjour Pascal Hidozo, Wilfried,
si tu pouvais commenter ta macro j'ai beaucoup à apprendre et cela m'aiderais car là je ne comprend pas
merci d'avance*Wilfried
Papou

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 6 Janvier 2009

• #13

Re : textbox en cdbl

salut paritec

Code:

je mets dans une variable, dans l'ordre, les différents types de valeur que je veux transférer
A pour alpha; N pour numérique, D pour date, etc...
mavar = "ANNADANNNNNAD"

Code:

ensuite une boucle sur les textbox nommées SPExxx (xxx etant un index)
for i = 1 to len(mavar)
     select case mid(mavar,i,1) ' Selon la position de i, je récupere le type de variable
          case "A" 'Alphabetique
                cells(a,i) = me.controls("SPE" & i)
          case "N" ' Numerique : conversion cdbl
                cells(a,i) = cdbl(me.controls("SPE" & i))
          case "D" ' Date : Conversion date
                cells(a,i) = cdate(me.controls("SPE" & i))
     end select
next i ' jusqu'à la derniere textbox

ps: personnellement, je n'utilise jamais Cdbl

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 6 Janvier 2009

• #14

Re : textbox en cdbl

Merci beaucoup Wilfried,
mais c'est encore trop compliqué pour moi, je vais piocher et essayer de comprendre en faisant des essais
merci pour tout
Papou

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 6 Janvier 2009

• #15

Re : textbox en cdbl

Bonjour Wilfried,

Ouaouuuuu,

merci pour l'explication complémentaire.

ça me plait et je tenterai d'optimiser mon code avec ton astuce. Mais il faut d'abord que je la comprenne bien

Merci

Hidozo

 

Vote positif 0 Vote négatif