us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 8 nov. 2008 à 15:11
Bonjour,
Peut-être ainsi :
For i = 1 To 10
if i=1 or i=3 or i=5 or i=9 then
If Cells(i, 1).Value = "" Then Exit For
end if
Next i
Cells(i, 1).Value = Sheets("feuil1").TextBox1.value
mais je ne suis pas sur que cela soit vraiment ce que tu veux faire... A la fin de la boucle, la cellule A11 sera remplie dans le cas où il n'y a pas de cellule vide trouvée... c'est peut-être normal, mais bon...
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 8 nov. 2008 à 16:13
Bonjour jmf0,
Il maque IF, à End if... na !
Oui, ce que tu proposes est juste, mais ne fait pas exactement la même chose que le code proposé... Mais, il me semble aussi que cela est plus logique... mais seul Herold1983, sait ce qu'il veut...
En clair, dès qu'il y a un premier remplacement, on doit arrêter la boucle...
herod1983
Messages postés193Date d'inscriptionjeudi 2 octobre 2008StatutMembreDernière intervention 3 août 2012 9 nov. 2008 à 11:01
Bonjour a tous
Merci déjà de me répondre
Alors pour les deux méthodes que us_30 et jmf0 mon trouvé, elle fonctionne très bien les deux, je pencherai plus pour toto lol, car
à la 9e cellule donc la dernière, la boucle s'arrête alors que pour l'autre sa continue, les valeurs s'inscrivent sur la 11, 13 etc
Merci à vous tous d'avoir résolu rapidement mon problème.
Bon Dimanche
a+