VBA - Conversion d'un texte en nombre

Bon jour, XRay
peut etre ça te convient

If UserForm3!TextBox1.Value = "" Then
  ActiveCell.Value .Value = ""
Else
  ActiveCell.Value = CDbl(UserForm3!TextBox1.Value)
End If

bonne journée

utilises plutot la fonction VAL() qui transforme du texte en chiffre et qui est une fonction VBA

my_string = "9874"
val(my_string)=9874

time is not money, time is life

excuse-moi, je n'ai pas fait attention.

Dans l'aide de VBA, on parle de VAL... qui convient tout à fait... ;-)

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

BONJOURS a tous

Dans un tableau fait avec excel 2003 je voudrais remplacer automatiquement dans une autre colonne les F PAR 2 et les H par 1
POur le debutant que je suis cela me parait dur car je ne trouve pas de fonction pour le faire
Y a t'il une astuce
merci pour toute reponse

salut Xray,
Je te propose une methode en 2 etapes :

1/ tu fait un copy/pastespecial (change les parametres) pour coller en tant que nombre le contenu des cases qui t interesse
2/ tu changes le style "a la main" En recordant une macro.

Tu compile le tout en 1 programme. le tour est joue!

.............D............I..............E..................I............. F...............I............... G..........I
...........................I..................................I...............................I............................I
....11/03/2010 ....I........ Couleur ...........I............ 45..............I... #VALEUR!.........I
....25/03/2010 ....I.......... Bois ...............I........... 60...............I... #VALEUR! .......I

voici un apercu de mon tableau et voici ma formule en G : = E6*7+D6

j'aurais besoin de calculer un délai. En E c'est une liste déroulante contenant les mots Bois, couleur, blanc, cintrage et bicolore. Chacun d'eux correspond a un délai de livraison en semaine d'ou le 7 dans la formule.

sur vba apres utilisation de l'aide j'ai fait cela mais ca marche pas (en mm tps vu mon niveau je m'y attendais)

Private Sub Workshee1_Calculate()
If Target.Column <> 7 Or Target.Row < 6 Or Target.Cells.Count > 1 Then
'si la colonne <>7 (C) ou la ligne <6 ou la sélection fait plus d'1 cellule

Private Const Bois As Integer = 4
Private Const Couleur As Integer = 3
Private Const Cintrage As Integer = 6
Private Const bicolore As Integer = 4
Private Const Blanc As Integer = 2

Else
On Error GoTo End
End If
End Sub

Salut,

dans l'aide excel sur les chaines de caractères, on trouve la fonction CNUM, elle pourra sans doute te convenir...

la liste des fonctions s'obtient en cherchant "A propos des fonctions de texte" dans l'aide

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

tu peux te procurer un livre sur VB ou bien aller chercher la librairie MSDN sur le net ( légalement bien sure !)

Ne prend pas ton temps car le temps ne t'attend pas.