XL 2019 Nombre stocké sous forme de texte

Bonjour,

La voici dans le fichier, si tes calcules renvoient erreur faut juste changer le séparateur de décimale. Et tu n'as cas modifier dans la macro les cellules sélectionnées pour devenir des nombres. Et juste les nombres fonctionnent bien mais les triangles verts n'ont pas disparu. Mais pour les faire disparaître tu sélectionne toutes les erreurs, tu appuyes sur une seule pour la convertir en nombre et automatiquement toutes les erreurs disparaitront.

Bonjour netparty, Etoto,
A+

job75 à dit:

Bonjour netparty, Etoto,

VB:

Sub Convertir()
Dim ncol%, tablo, i&, j%
With [A1].CurrentRegion 'matrice, plus rapide
    ncol = .Columns.Count
    If ncol = 1 Then ncol = 2
    tablo = .Resize(, ncol) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        For j = 1 To ncol
            If IsNumeric(CStr(tablo(i, j))) Then tablo(i, j) = CDbl(tablo(i, j))
    Next j, i
    .Resize(, ncol) = tablo 'restitution
End With
End Sub

A+

Cliquez pour agrandir...

Cool, ça ce voit que tu as plus d'expérience que moi