Fonction Sql "INSERT,UPDATE" en vba sur plusieurs lignes

Version imprimable

Bonjour à tous,

voilà étant débutant en vb, je cherche à exécuter des fonction insert et update sur une plage donnée.

Cependant, je dois écrire autant de fois la fonction range qu'il y a de lignes à insérer ou updater!

Exemple de fonction que je veux faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub lignes() Range("AD2:AG2,AH2").Select Range("AH2").Activate Run "VB_Launch_request" Range("AD3:AG3,AH3").Select Range("AH3").Activate Run "VB_Launch_request" etc....... End Sub
Ma question est comment faire pour qu'il le fasse autant de fois qu'il y a de lignes remplies?

Merci d'avance.

Essais donc ça :

Code:

1
2
3
4
5
6
7
8
9
10
Sub lignes()
Dim i As Long
For i = 2 To Cells(2, 30).End(xlDown).Row
Range("AD" & i & ":AG" & i & ",AH" & i & "").Select
Range("AH" & i & "").Activate
Run "VB_Launch_request"
Next i
 
MsgBox "C'est finit !"
End Sub

19/02/2013, 16h02
darkjeje

Merci beaucoup "Limace Hurlante", cela fonctionne!:ccool:

Quelle rapidité! Super forum qui partagent son savoir avec les débutants.

Une petite dernière pour la route...

La requête s’exécute temps que la cellule 30=AD n'est pas vide.

Code:

For i = 2 To Cells(2, 30).End(xlDown).Row

Je voudrais quelle le fasse tant que dans la colonne "W" on a la valeur 1 et quelle s'arrête si "W" a la valeur 0

Cordialement