Bonjour,
j'ai crée une macro qui copie (speciale : valeur) les données d'un onglet vers un autre onglet. Le second onglet sert de base pour un TCD. Pour finir elle rafraichit les données du tcd.
Quand je veux rafraichir avec ma macro, je suis obligé de la lancer deux fois pour obtenir le résultat le rafraichissement.
Voici le code:
Quelqu'un aurait une idée pour que le rafraichissement se fasse dès la première passe de la macro.
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 Sub Rafraichissement() Dim Wb1 As Workbook Dim Plg As Range Application.ScreenUpdating = True Set Wb1 = ThisWorkbook Set Plg = Wb1.Sheets("Extract").Range("A1:D" & Wb1.Sheets("Extract").Range("A65536").End(xlUp).Row) Wb1.RefreshAll Wb1.Sheets("Valeur").Cells.Clear Plg.Copy Wb1.Sheets("Valeur").Range("A1").PasteSpecial xlPasteValues Wb1.Save Wb1.RefreshAll Application.ScreenUpdating = True End Sub
Merci par avance
Cordialement
Partager