XL 2013 Convertir texte en nombre (résolu)

Victor21

XLDnaute Barbatruc

• 13 Août 2019

• #2

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.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 13 Août 2019

• #3

Bonjour,

Si tu veux absolument le faire par macro, teste :

VB:

  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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 13 Août 2019

• #4

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

 

Dernière édition: 13 Août 2019

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 13 Août 2019

• #5

VB:

  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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 13 Août 2019

• #6

re,

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 13 Août 2019

• #7

Re,

J'avais dit :

Victor21 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 14 Août 2019

• #8

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

VB:

[E:E].NumberFormat = "0"

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

Daniel

 

Vote positif 0 Vote négatif