Valeur Numérique dans TextBox

[zeltron24]

Bonsoir à tous,
Je fais une fois encore appel à vos connaissances.
Lorsque dans un Textbox j'inscris le chiffre zéro et que celui ci est recopié dans une cellule, apparament il n'est pas converti en numérique. Car dans ma mise en forme conditionnelle, la valeur zéro ne doit pas etre visible (Fond de cellule blanc et si la vlaleur est égale à 0 Font blanc.)
Hors la valeur est visible en noir.
Y aurait il moyen de faire quelque chose?
d'avance merci pour votre aide.
Cordialement
Zeltron24

 

[Pierrot93]

Re : Valeur Numérique dans TextBox

Bonjour,

essaye peut être ceci :

Range("A1").Value = CDbl(TextBox1)

bonne soirée
@+

 

[zeltron24]

Re : Valeur Numérique dans TextBox

Bonsoir Pierrot93

Voici un exemple ci joint afin de mieux cerner le sujet.
Merci pour ton aide.

 

[Fred0o]

Re : Valeur Numérique dans TextBox

Bonsoir Zeltron et Pierrot,

Zeltron tu devrais prendre en compte les conseils des Barbatrucs ! Comme te l'as si justement expliqué Pierrot, il te faut utiliser la fonction CDbl de la manière suivante :

Private Sub CmdValider_Click()

' Recopie les valeurs dans les cellules du mois de la feuille sélectionnée.

Range("B3").Value = [COLOR=Red]CDbl([/COLOR]FrmAjout.BoxTravail[COLOR=Red]) [/COLOR]         ' Heures Travaillés
Range("B4").Value =[COLOR=Red] CDbl([/COLOR]FrmAjout.BoxPlafon[COLOR=Red]) [/COLOR]          ' Jours Plafonnés
Range("B5").Value = [COLOR=Red]CDbl([/COLOR]FrmAjout.BoxPaie[COLOR=Red])[/COLOR]             ' Heures Payés

Unload FrmAjout                             ' Fermeture du formulaire
Range("A1").Select

End Sub

A+

 

[laetitia90]

Re : Valeur Numérique dans TextBox

bonsoir zeltron24 ,Pierrot93,Fred0o
une autre facon de l'ecrire!!

Range("b3") = FrmAjout.BoxTravail.Value
Range("b4") = FrmAjout.BoxPlafon.Value
Range("b5") = FrmAjout.BoxPaie.Value

ou encore dans ce cas la

[B3] = FrmAjout.BoxTravail.Value
[B4] = FrmAjout.BoxPlafon.Value
[B5] = FrmAjout.BoxPaie.Value

 

[Bruce68]

Re : Valeur Numérique dans TextBox

Bonsoir à tous

Voir fichier joint

 

[steph_60]

Re : Valeur Numérique dans TextBox

Bonsoir à tous

Voir fichier joint

Bonjour à tous

voir le pgm joint

 

[zeltron24]

Re : Valeur Numérique dans TextBox

Bonsoir Steph 60, Bruce 68, Laetitia 90 et FredOo,
Je viens de lire vos messages et je vous remercie tous très sincérement pour votre aide.
Une petite question, est ce que la fonction ou la formule CDb1 ne me donne que la couleur Blanc ? Y a t il pas moyen de changer cette couleur? En Bleu par exemple.
Cordialement
zeltron24

 

[Fred0o]

Re : Valeur Numérique dans TextBox

Bonsoir Zeltron,

En fait, tu fais ce que tu veux avec ta mise en forme conditionnelle. Dans l'exemple proposé, tu as mis un fond blanc. C'est pour cela que tu as la couleur blanche. La fonction CDbl() quant à elle, se contente de convertir le texte saisi dans la boîte de dialogue, en nombre.

A+

 

[zeltron24]

Re : Valeur Numérique dans TextBox

Bonsoir FredOo,
Merci pour tes explications cela me semble plus clair, en effet, je croyais pouvoir changer la couleur avec CDb().
Je mets de suite en pratique ces diverses solutions.
Bonne soirée à toi et aux autres membres qui m'ont aidés.
Cordialement
Zeltron24