Déplacer une ligne
Bonjour,
J'arrive pas à activer une boucle for avec une condition if à l intérieur.
Le programme qui est à l'intérieur de la condition if ne s'exécute pas
Sub selection ()
Sheet (1).activate
Lastrow = cells(rows.count , 1).end (xlup).row
for i=2 to lastrow step 1
If sheets ("feuil1").cells (i, 1).value = "fil" then
Rows ("i") select
Selection.cut
Range ("Ai").select
Range ("lastrow+1").select
activesheet.paste
Selection. end (xlUp).select
Rows ("i").select
Selection. delete shift:=xlUp
End sub
merci infiniment
J'arrive pas à activer une boucle for avec une condition if à l intérieur.
Le programme qui est à l'intérieur de la condition if ne s'exécute pas
Sub selection ()
Sheet (1).activate
Lastrow = cells(rows.count , 1).end (xlup).row
for i=2 to lastrow step 1
If sheets ("feuil1").cells (i, 1).value = "fil" then
Rows ("i") select
Selection.cut
Range ("Ai").select
Range ("lastrow+1").select
activesheet.paste
Selection. end (xlUp).select
Rows ("i").select
Selection. delete shift:=xlUp
End sub
merci infiniment
Configuration: Android / Chrome 71.0.3578.99
2 réponses
-
Contributeurbonjour, merci d'utiliser la coloration syntaxique pour publier ton code.
es-tu certain d'avoir publié ton code complet? il me semble plein d'erreurs. -
ContributeurBonjour
Comme l'a écrit Yg_be que je salue, il y a beaucoup d'erreurs pardonnables puisque tu sembles débuter,
tu trouveras ci joint un exemple commenté.
https://www.cjoint.com/c/IFbkqBLp6Oy
pour apprendre VBA
https://bidou.developpez.com/article/VBA/
ca ne se lit pas comme un roman policier mais c'est très complet
