Discussion :

[darkjeje]

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 :

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

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.

[Limace_hurlante]

Essais donc ça :

Code :

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

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

[darkjeje]

Merci beaucoup "Limace Hurlante", cela fonctionne!

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 :

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

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