J'ai corrigé comme suit, je me suis mis des MsgBox pour voir quel cas Excel rencontrait et c'est "NUM" qui sort donc les valeurs testées sont numériques mais Excel m'indique "Valeur numérique stockée sous forme de texte" et ne peut procéder procéder à aucun calcul sur ces cellules:
Peux-tu voir d'où vient le problème même si cela ne correspond plus stricto sensu au sujet de la conversation?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 For i = 1 To 127 Select Case i 'And j Case 1 To 3 Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i).Result Case 7 To 130 Cells(ligne, i - 3) = FichierWord.ActiveDocument.FormFields(i).Result If IsNumeric(Cells(ligne, i).Value) Or Cells(ligne, i).Value = "" Then MsgBox "NUM" Cells(ligne, i).Value = Cells(ligne, i).Value Else MsgBox "NOT" Cells(ligne, i).Value = CDbl(Cells(ligne, i).Value) End If End Select Next i