je cherche à tirer les formules par le VBA...
J'ai un probleme il me dit que la méthode de l'objet range global a échoué...
voici mon code


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
23
24
25
26
27
28
'Déclaration des variables
Dim premiereligne, derniereligne, plage
premiereligne = 20
derniereligne = 565
 
'Recherche de fin de fichier
compteurligne = premiereligne + 1
plage1 = ("20;565") '(lignes)
plage2 = Range("31;79") '(colonnes)
 
    While ThisWorkbook.Worksheets("Feuille principale").Cells("premiereligne;derniereligne").Range("plage2") <> "Veuillez ne pas supprimer ces lignes"
    Wend
derniereligne = compteurligne
            If premiereligne = 0 Then
        premiereligne = premiereligne + 1
 
'Désactivation des filtres
If ThisWorkbooks.Worksheets("Feuille principale").FilterMode = True Then
ActiveSheet.ShowAllData
End If
 
'Destination des formules
 
Selection.AutoFill Destination:=Range("plage2;derniereligne"), Type:=xlFillDefault
 
End If
Calculate
End Sub
merci