Transfert et conversion des données Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 7 avril 2016, 16:46

Bonjour

Remplace la partie correspondante par celle-ci
      For I = 0 To UBound(T1)
        F2.Cells(Ligne, 6 + I) = IIf(IsNumeric(T1(I)), Val(T1(I)), T1(I))
      Next I
Pour la signification de IIf voir l'aide
L'instruction équivaut à
  If IsNumeric(T1(I)) Then
    F2.Cells(Ligne, 6 + I) = Val(T1(I))
  Else
    F2.Cells(Ligne, 6 + I) = T1(I)
  End If
Image
N
Nuns
Jeune membre
Jeune membre
Messages : 28
Inscrit le : 30 mars 2016
Version d'Excel : 2007 FR

Message par Nuns » 8 avril 2016, 09:26

Bonjour,

Cette ligne ne supprimait pas l'espace avant les codes.

J'ai modifié comme ça :
For I = 0 To UBound(T1)
        F2.Cells(Ligne, 6 + I) = IIf(IsNumeric(T1(I)), Val(T1(I)), LTrim(T1(I)))
      Next I
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message