Déplacer une ligne

- - Dernière réponse : michel_m
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
- 1 juin 2019 à 12:19
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

Configuration: Android / Chrome 71.0.3578.99
Afficher la suite 

2 réponses

Messages postés
8748
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 octobre 2019
436
0
Merci
bonjour, 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.
Commenter la réponse de yg_be
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2813
0
Merci
Bonjour
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

Commenter la réponse de michel_m