Transfert des formules

Bonjour ,

je sais pas vraiment si y a t-il une solution qui répond à ce probléme : dans le fond ya un rapport entre la formule et le numéro de la ligne.

exemple : =IF(P2<>"",(IF(P2<=DATE(2014,3,31),"13/14",(IF(P2<=DATE(2015,3,31),"14/15",(IF(P2<=DATE(2016,3,31),"15/16",(IF(P2<=DATE(2017,3,31),"16/17",(IF(P2<=DATE(2018,3,31),"17/18"," ")))))))))),"")

Ici P2 = Ligne 2

le probléme c'est que on doit importer des donnees d'une feuille excel déja traité sous des conditions aussi avec leurs formules mais le grand souci c'est que on importe pas toutes les lignes donc c'est pas forcément que les données vont être transférées d'une maniére structurée du coup les formules vont etre erronnés

voici le code qui permet l'importation des données

Option Explicit
Option Base 1
'--------
Sub Importdatav2()
Dim Source As Workbook, Dercol As Integer
Dim Nbre As Integer, Tablo, Cptr As Integer, derlig As Integer, Lig As Integer, Col As Integer
Dim FichiersAOuvrir, I As Integer

  Application.ScreenUpdating = False

  FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
  If IsArray(FichiersAOuvrir) Then
    For I = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
      Set Source = Application.Workbooks.Open(FichiersAOuvrir(I), , True)
      With Sheets("Workload - Charge de travail")
       Dercol = Cells(2, Columns.Count).End(xlToLeft).Column
        Nbre = Application.CountIf(.Columns("AQ"), "XX")
        ReDim Tablo(Nbre, Dercol)
        Lig = 1
        For Cptr = 1 To Nbre
          Lig = .Columns("AQ").Find("XX", .Cells(Lig, "AQ"), xlValues).Row
          For Col = 1 To Dercol

            Tablo(Cptr, Col) = .Cells(Lig, Col).FormulaLocal

          Next Col
        Next Cptr
      End With
      Source.Close False

 With ThisWorkbook.Sheets("Sheet1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1 'premiere cellules vide colonne A
        .Range("A" & derlig).Resize(Cptr, Dercol) = Tablo
        '.Activate
     End With

    Next I
  Else
    MsgBox "Aucun choix"
  End If
End Sub

les cellules concernées (qui contiennent les formules )sont : A, B, AG ,AH ,AL ,AM ,AN ,AO ,AP

y'a t il une façon de changer ça

Merci beaucoup

Bonjour,

Je pense avoir une solution toute bête à ton problème mais il nous faudrait un fichier pour pouvoir être sûr de ce qu'on fait.

Cordialement