VBA Code selon condition

Bonjour,

Je fais appel à votre aide,

En fait, je cherche un code qui me permette de tirer les formules de la ligne 6 colonne après colonne, selon l'indicateur de la ligne 1 ("E0" ou "E1").

Explication: Si E0 en colonne B, alors tirer la formule de B6 à B21, puis passer à la prochaine colonne... Et si E1, alors vérifier la condition de date: "si la date en ligne 2 de la colonne en question est supérieure à 20j par rapport à la cellule F4" , alors tirer la formule jusqu'en bas, sinon ne rien faire et passer à la prochaine colonne...etc.

Merci beaucoup!

Bonjour sidi13, le forum,

Un essai.....

Sub test()
 Dim lig As Long, dl As Long
 Dim col As Integer, dercol As Integer

 Application.ScreenUpdating = False

 With Sheets("Feuil1")
        dl = .Range("A" & Rows.Count).End(xlUp).Row
    dercol = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column

   For col = 2 To dercol
    Select Case .Cells(1, col).Value
     Case Is = "E0"
       .Range(Cells(6, col), Cells(dl, col)).FillDown
     Case Is = "E1"
      If CDate(.Cells(2, col)) > CDate(.Cells(4, 6)) + 20 Then .Range(Cells(6, col), Cells(dl, col)).FillDown
    End Select
   Next col
 End With
End Sub

Cordialement,

Merci beaucoup xorsankukai,

Cependnat, j'ai ce msg:

Re,

Flûte, je ne rencontre pas ce souci.....(excel2010)....

Teste ce fichier....CTRL + e pour exécuter la macro...

Cordialement,

Ca marche ! Merci beaucoup, c'est exactement ce que je voulais