Pb de lancement d'une requête

**pedrolahn** · 13/05/2008, 09h38

bonjour,

Je désire lancer une requête, passer à la cellule en dessous et relancer cette requête.
Pour cela j'ai écris le code suivant :

Code :

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

1
2
3
4
5
6
Dim i As Long
    For i = 10 To 58
        Range("A1: D5,"D"&i").Select
        Range("D&i").Activate
        Run "VB_Launch_request"
    Next i

Et lorsque je quite la 3e ligne, "D" est surligné et j'ai un message d'erreur qui dit:
Erreur de compilation
Attendu : réparateur de liste ou )

Je ne trouve trouve pas l'erreur.
Pourriez vous m'aider s'il vous plaît?
Merci d'avance.

Pierre

Invité · 13/05/2008, 09h43

Bonjour

J'écrirais plutôt :

Code :

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

1
2
 
Range("D" & i ).Activate

Starec

**pedrolahn** · 13/05/2008, 09h50

Merci beaucoup du conseil.
Mais la 3e ligne est toujours erronée, il y a une erreur de syntaxe et je n'arrive pas à la trouver.

**papimcha** · 13/05/2008, 09h53

Bonjour,
essaie ceci

Code :

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

1
2
3
4
5
6
Dim i As Long
    For i = 10 To 58
        Range("A1: D5","D"&i).Select 'ici tu définissais D comme variable et i en texte or c'était l'inverse que tu voulais
        Range("D" & i ).Activate 'idem
        Run "VB_Launch_request"
    Next i

bonne journée

**pedrolahn** · 13/05/2008, 10h13

Cela ne fonctionne pas.
En fait quand j'écrit la ligne suivante, je sélectionne la zone ou est écris ma requête et j'indique la cellule de destination.

Code :

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