textbox en cdbl

[hidozo]

Bonjour,

J'ai la ligne suivante :

Cells(derlig,3)=CDbl(ME.SPE3)

Ca marche très bien s'il y a un chiffre dans la textbox SPE3.

Par contre s'il n'y a pas de valeur, il y a bug.

Comment puis-je modifier la ligne pur que s'il n'y ait pas de valeur dansla trext box, rien ne se mette dans ma cellule

Merci de votre aide.

hidozo

 

[PascalXLD]

Re : textbox en cdbl

Bonjour

essaies

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

 

[BERRACHED said]

Re : textbox en cdbl

Salut,Hidozo

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

Cordialement

 

[hidozo]

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

 

[PascalXLD]

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

 

[hidozo]

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

 

[PascalXLD]

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

 

[hidozo]

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

 

[PascalXLD]

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

 

[hidozo]

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

 

[wilfried_42]

Re : textbox en cdbl

Bonjour à tous

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

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

 

[Paritec]

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

 

[wilfried_42]

Re : textbox en cdbl

salut paritec

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"

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

 

[Paritec]

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

 

[hidozo]

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