Discussion :

[pascal4782]

Bonjour à tous et à toutes,

Question bête, Pourquoi l’autoFill ne fonctionne pas correctement.
La formule dans chaque cellule est la bonne, par contre le résultat est celui de la 1° cellule (C20)

Merci par avance

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
Sub Depouillemententest()
 
With Sheets("B")
   Application.ScreenUpdating = False
   Dim A As Long, Str_Val_1 As String
Dim Debut As Currency
Debut = Timer
     .Range("A20:Q90").ClearContents
For A = 1 To 700
     .Range("A20:A89").Value = .Range("AH20:AH89").Offset(0, A).Value
      Str_Val_1 = "=RC[-1]+sin(RC[-2]/R"
      Range("C20").FormulaR1C1 = Str_Val_1 & A & "C19)"
      Range("C20").AutoFill Destination:=Range("C20:C89"), Type:=xlFillDefault
            .Range("E20:E89").Value = .Range("C20:C89").Value
            .Range("B20:B89").Value = .Range("C20:C89").Value
 Next A
 End With
 
   Application.ScreenUpdating = True
   Range("B11") = (Timer - Debut) & " sec"
 
End Sub

[pascal4782]

Bonjour à tous,

J’ai trouvé ce qui cloche, dans un programme antérieur j’avais oublié de passer .ScreenUpdating = 1

Je suis débutant, et j'ai probablement commis d'autres maladresses.

Oups,

Le gros inconvénient d’avoir passé .ScreenUpdating = 1 est que le temps de traitement est multiplié au moins par 10


Merci