none
Extraire donnée d'un Tableau croisé dynamique en vba RRS feed

  • Question

  • Re-Bonjour à tous,

    Mon souci, je n'arrive pas à entrer dans le TCD, pour tester l'existence d'une année, si l'année existe, pouvoir extraire des données de cette  année vers une autre feuille du même classeur.

    Pour être encore plus explicite, lorsque j'impose une cellule à extraire le contenu , Excel le fait. Par exemple : Lorsque je fais le test du code suivant :


    For i2 = 77 To 77
            
             If (ThisWorkbook.Worksheets("Mouvement").Cells(i2, 56).Value = ThisWorkbook.Worksheets("Stock").Cells(1, 4).Value) Then
                 MsgBox "IMPORTATION DES DONNÉES FINANCIÈRES :" & vbCrLf & vbCrLf & "- Cette opération peut durer quelques secondes :" & vbCrLf & "- Merci de patienter jusqu'à la fin de l'opération ", vbInformation, "ApplicStock"
             Else
                 MsgBox "L'année n'existe pas dans le registre de vos données financières"
                 Exit Sub
             End If
         Next i2


    End Sub


    Excel trouve bien l'existence de l'année 2014 dans la cellule i2 = 77


    Mais quand je rend le code dynamique :  For i2 = 2 To LigneTCD

    Excel dit que la date n'existe pas


    Ainsi je ne comprends plus rien

    mercredi 18 juillet 2018 21:44