Rebonjour,  
Deuxième sujet de la journée.  
je viens de créer un bouton pour que ma macro s'effectue d'elle même, dès que l'on clique sur le bouton. Depuis ma méthode autofill ne fonctionne plus.....mon code est sommaire si vous arrivez à le simplifier tant mieux mais j'aimerais surtout avoir votre avis sur mon autofill qui ne fonctionne plus
Private Sub Traitement_Click()  
Sheets("Données ETP" ).Activate  
Range("CB1" ).Select  
ActiveCell.FormulaLocal = "ETP"  
Range("CB2" ).Select  
ActiveCell.FormulaLocal = "=SI(SI(ESTERREUR(SI(S2<DATE(2012;1;1);(T2-""2012-01-01"" )/30/12;(T2-S2)/30/12));SI(S2<DATE(2012;1;1);1;(""2012-12-31""-S2)/30/12);SI(S2<DATE(2012;1;1);(T2-""2012-01-01"" )/30/12;(T2-S2)/30/12))*(Z2/100)>1;1;SI(ESTERREUR(SI(S2<DATE(2012;1;1);(T2-""2012-01-01"" )/30/12;(T2-S2)/30/12));SI(S2<DATE(2012;1;1);1;(""2012-12-31""-S2)/30/12);SI(S2<DATE(2012;1;1);(T2-""2012-01-01"" )/30/12;(T2-S2)/30/12))*(Z2/100))"  
Range("CB2" ).AutoFill Destination:=Range("CB2:CB" & Range("CA65536" ).End(xlUp).Row)  
Range("CB2" ).Select  
With Columns("CB:CB" ).Interior  
.ColorIndex = 41  
.Pattern = xlSolid  
End With  
Sheets("Données ETP" ).Range("CB2:CB" & Range("A65536" ).End(xlUp).Row).NumberFormat = "0.00"  
Merci pour votre aide

 
             Bonjour.

             Et où est-il le premier sujet ?    
 

             Aucun rapport !   Si cela ne fonctionne pas, c'est donc un souci de logique …
 
             Version remaniée :