Format numérique usf et tcd

[christian.bedere]

Bonjour à vous ...


Voilà, depuis qq temps je travaille avec un très beau userform, et aujourdh'ui je souhaite exploiter ds un TCD, les données inscrites par celui-ci. Or, je tombe sur une problème. Les données sur la feuille de calcul ne sont pas compatibles avec les valeurs numériques saisies par le userform.
D'habitude, je rajoute à mon code la fonction "cdbl" pour pouvoir être analysé ds le TCD, mais comme le code n'a pas été créé par moi, je ne sais pas comment faire pour parvenir à mes fins ...
Je vous mets donc le code pourriez vous s'il vous plait m'apporter votre lumière ?
Je vous remercie

For Each Feuille In Array("Impression")
If Feuille = "Impression" Then
Ligne = 13
Else
Ligne = Sheets("base").Range("a65536").End(xlUp).Row
End If
With ListView1
For I = 1 To .ListItems.Count
With .ListItems(I)
If IsNumeric(.Text) Then
Sheets(Feuille).Cells(I + Ligne, 1) = Numerique(.Text)
Else
Sheets(Feuille).Cells(I + Ligne, 1) = Numerique(.Text)
End If
End With
For j = 1 To .ColumnHeaders.Count - 1
With .ListItems(I).ListSubItems(j)
If IsNumeric(Numerique(.Text)) Then
Sheets(Feuille).Cells(I + Ligne, j + 1) = Numerique(.Text)
Else
Sheets(Feuille).Cells(I + Ligne, j + 1) = Numerique(.Text)
End If
End With
Next j
Next I
End With

 

[Bebere]

Re : Format numérique usf et tcd

bonjour Christian

essaye comme suit

For Each Feuille In Array("Impression")
If Feuille = "Impression" Then
Ligne = 13
Else
Ligne = Sheets("base").Range("a65536").End(xlUp).Row
End If
With ListView1
For I = 1 To .ListItems.Count
With .ListItems(I)
If IsNumeric(.Text) Then
Sheets(Feuille).Cells(I + Ligne, 1) = cdbl(.Text)
Else
Sheets(Feuille).Cells(I + Ligne, 1) = .Text
End If
End With
For j = 1 To .ColumnHeaders.Count - 1
With .ListItems(I).ListSubItems(j)
If IsNumeric(Numerique(.Text)) Then
Sheets(Feuille).Cells(I + Ligne, j + 1) = cdbl(.Text)
Else
Sheets(Feuille).Cells(I + Ligne, j + 1) = .Text
End If
End With
Next j
Next I
End With

à bientôt

 

[christian.bedere]

Re : Format numérique usf et tcd

Bonsoir Bebere

Merci d'être là pour moi !

Malheureusement, cela ne fonctionne pas, j'ai essayé mais le format ds le tcd en feuil1 ne reconnait pas les données saisies.
Je vais essayer de re-fouiller les archives de ce bon xld !!
bonne soirée à toi
Merci bcp
christian