Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #41
    Membre régulier
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    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

  2. #42
    Membre régulier
    JE crée un post dans Excel?

  3. #43
    Membre régulier
    Plutôt avec:

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    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
     
     Case 1 To 3
        Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i).Result
     Case 7 To 130
     Cells(ligne, i ) = FichierWord.ActiveDocument.FormFields(i + 3).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

  4. #44
    Membre régulier
    RESOLU, merci beaucoup pour ton aide:

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    For i = 1 To 130
                    Select Case i
     Case 1 To 3
        Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i).Result
     
     Case 4 To 7
     
     Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i + 3).Result
     
     Case 8 To 127
     Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i + 3).Result
     If Cells(ligne, i).Value <> 0 Then
     Cells(ligne, i).Value = CDbl(Cells(ligne, i).Value)
     
     
     Cells(ligne, i).Value = Cells(ligne, i).Value
                  End If
     
     
     
     
                    End Select
     
     
      Next i