Discussion :

[vbomars]

Bonjour à tous,

Je viens requérir votre aide, je pensais avoir une macro fonctionnelle mais même après avoir cherché et recherché, démonter ma macro point par point, je ne trouve toujours pas le problème.

La macro a pour objectif de vider plusieurs onglets sauf les cellules citées tout en bas du message, avant d'y insérer une base de données.

Le voici:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub test()
'
' test Macro
'
' Touche de raccourci du clavier: Ctrl+x
'
 
    ' Affiche un message en bas à gauche indiquant le statut de l'opération
    Application.StatusBar = "We are processing file... Please wait"
 
    'Active l'onglet intitulé WAIT dans le fichier Excel où se situe la macro et le rend ainsi actif, donc visible à l'écran
    Sheets("WAIT").Activate
 
    'Désactive le calcul automatique des formules sous Excel
    Application.Calculation = xlCalculationManual
 
    'Désactive l'affichage (L'onglet WAIT sera donc la seule chose visible...)
    Application.ScreenUpdating = False
 
    Workbooks.Open Filename:= _
    "Lien", UpdateLinks:=0
 
    Workbooks("test2.xlsm").Activate
    Sheets("NEW DATABASE").Select
    Range("A2:DB25000").Select
    ''''''''''''''Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
 
    Workbooks("test2").Activate
    Sheets("NEW DATABASE").Select
    Range("DC3:DF25000").Select
    '''''''''''''''Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
 
    Workbooks("test2.xlsm").Activate
    Sheets("DB REWORK").Select
    Range("A3:DB3").Select
    Range(Selection, Selection.SpecialCells(xlLastCellInColumn)).Select
    Selection.ClearContents
 
    Workbooks("test2.xlsm").Activate
    Sheets("View").Select
    Range("A3:DB3").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
 
    Workbooks("test1.xlsm").Activate
    Sheets("EXTRACTION").Activate
    Range("A1:AR1").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
 
    Workbooks("test2.xlsm").Activate
    Sheets("NEW DATABASE").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

Le problème que j'ai est que les formules situées dans le fichier test2 et l'onglet NEW DATABASE, en DC2 et DF2 sont effacées alors que la suite de ma macro suppose de les étendre (Il ne se situe pas sur la fonction pour les étendre mais simplement sur le fait de ne pas effacer ces cellules en DC2 et DF2).

Je me retrouve face à un mur, je ne sais pas quelle fonction efface les cases DC2 à DF2 donc si quelqu'un d'expérience pouvait jeter un oeil et m'apporter ses lumières, je vous en serais extrêmement reconnaissant.

Merci et bonne journée à tous.

[Philippe Tulliez]

Bonjour,
Avant tout, il est parfaitement inutile d'utiliser les méthodes Select, Activate et les propriétés Selection, etc. C'est non seulement inutile mais de plus cela ralenti l'exécution du programme
Donc au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Workbooks("test1.xlsm").Activate
    Sheets("EXTRACTION").Activate
    Range("A1:AR1").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy

Cette ligne fera l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("test1.xlsm").Sheets("EXTRACTION").Range("A1:AR1").SpecialCells(xlLastCell).Copy

(Attention tapé de mémoire sans test)
Pour ce qui est d'effacer des cellules, la méthode Clear de l'objet Range efface tout, ClearContents le contenu, ClearFormats le format, etc.
Si tu veux effacer le contenu d'une plage sans que les formules soient effacées c'est à dire uniquement les constantes c'est la méthode SpecialCells avec comme argument la constante xlCellTypeConstants
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:A100").SpecialCells(xlCellTypeConstants).ClearContents