Discussion :

[beurnoir]

Bjr,

J'ai le code suivant :

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
 
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/12/2005 par pommbe01
'
    Dim i As Integer
 
    Sheets("DATA").Select
 
    For i = 1 To 300
 
    Cells(i, 1).Select
 
    Selection.QueryTable.Refresh BackgroundQuery:=False
 
    Next
 
End Sub

Mais j'ai une erreur au niveau de la ligne :

Code :

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

1
2
 
Selection.QueryTable.Refresh BackgroundQuery:=False

Erreur definie par l'application ou par l'objet.

En fait je désire simplement actualiser les données de toutes les cellules de ma colonne A de ma feuille DATA.

Comment faire svp???

Merci

[SfJ5Rpw8]

Tu as 300 table de donnée dans ta feuille..? si n'est pas le cas pour le raffrachissement des donné un seul appel à refresh ... sufffit !!

[beurnoir]

Le probleme est qu'en fait je veux actualiser toutes les cellules de ma colonne A et ca je peux pas le faire avec un seul refresh.

[SfJ5Rpw8]

Le probleme est qu'en fait je veux actualiser toutes les cellules de ma colonne A et ca je peux pas le faire avec un seul refresh.

?il y as quoi dans tes cellules ?


si le refresh est vraiment utile ligne par ligne..., rajoute avant ta boucle le code suivant ;

Code :

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

On error resume next

qui permettra d'ignorer les erreurs pour les cellules ... qui ne contiennent pas de de lien de données...

[beurnoir]

Merci ca fonctionne