Bonjour, à tous, j'ai un probleme au travail, je suis actuellement stagiaire dans une pme pmi et je dois pour facilité la lecture de la base de données au salariés, automatisé des requetes SQL en jonglant entre le VBA et les requetes SQL...

le problemes, ne se trouve actuellement pas sur les requetes SQL, mais sur le code VBA...

mon but est que si la valeur de la céllule G14 est égale a 0, une ligne est ajouté entre G14 et G15 sinon ça ne fait rien.

mais je ne comprend pas vraiment le probleme.
j'ai incrémenté une variable ( i ) dans un while pour faire une petite boucle...
quand j'exécute la macro avec pour valeur de ( i ) un chiffre que j'ai choisi et qui n'a aucune utilité, cela fonctionne et me rajoute bien la ligne que je demande...

mais quand pour l'ajout de ligne, je demande a ce qu'il me la rajoute a la ligne ( i : i ), la macro ne fonctionne plus.

je colle ci joint une copie de ma boucle.

merci par avance de votre aide

et désolé si je ne suis pas très clair!


Sub ajoutligne()
'
' ajoutligne Macro
' Macro enregistrée le 09/06/2008 par
''
i = 14 ' début du tableau

While (Cells(i, 7).Value = 1) ' temps que valeur céllule i est égale a 1
i = i + 1 'incrémentation de la position de la céllule,
MsgBox ("valeur différentes!!!")
Wend
i = i - 1


Rows("i:i").Select
Selection.Insert Shift:=xlDown
MsgBox (" ajout de ligne réussis")Configuration: Windows XP
Internet Explorer 7.0