XL 2013 Convertir texte en nombre (résolu)

[Cougar]

Bonjour le forum,

Après plusieurs recherches je n'ai pas trouvé de code pour convertir du texte en nombre. Ayant des lignes vides, je ne peux utiliser le LBound UBound. Donc, Est-ce que vous auriez une idée ?

Les valeurs se trouvent dans la colonne E.

Voir fichier joint.

Merci

 

[Victor21]

Bonjour, Cougar.

Si vous confirmez l'intérêt de transformer un No.Produit en nombre , multipliez-le par 1 au format nombre sans décimale.

 

[danielco]

Bonjour,

Si tu veux absolument le faire par macro, teste :

  Dim C As Range, X As Range
  For Each C In [E5:E57]
    C = C * 1
    If C.MergeArea.Address <> C.Address Then
      For Each X In C.MergeArea
      X = X * 1
      Next X
    End If
  Next C

Cordialement.

Daniel

 

[Cougar]

Bonjour le forum, le fil,

Oui je dois le faire par macro pour être inséré dans le reste du code.

Daniel, lorsqu'il ton code rencontre une ligne vide, j'ai une incompatibilité de type (erreur 13) car j'ai des cellule contenant des lettres (mon fichier n'en contenait pas car tronqué).

Merci

 

[danielco]

  Dim C As Range, X As Range
  For Each C In [E5:E59]
    If C.MergeArea.Address <> C.Address Then
        For Each X In C.MergeArea
        If C <> "" Then
          X = X * 1
        End If
      Next X
    ElseIf C <> "" Then
      C = C * 1
    End If
  Next C

Daniel

 

[Cougar]

re,

Daniel, merci. Le tout fonctionne très bien.

 

[Victor21]

Re,

J'avais dit :

[...] au format nombre sans décimale.

Mais je vois que le No. Produit 1.00412E+13 vous convient 😉

 

[danielco]

Pour faire suite à la remarque de Victor21, si tu veux conserver l'aspect initial, tu peux ajouter :

[E:E].NumberFormat = "0"

au début ou à la fin du précédent code.

Daniel