Aide : déplacer des lignes dans une autre feuille

[alexb77]

bonsoir à tous,
je débute en macro, cela fait des jours que je planche sur un fichier d'ordonnancement mais là je pense que c'est pour l'instant au dessus de mes capacités.
je dois transferer des lignes suite a des cases à cocher dans une autre feuille.
je pense qu'il faut utiliser une concatenation car j'ai 2 critère pour la destination de ces lignes.
tout est expliqué plus précisement dans le fichier joint ( j'ai du supprimer plusieurs feuilles pour joindre le fichier mais l'essentiel est là)
merci beaucoup.
amicalement alex

 

[JNP]

Re : Aide : déplacer des lignes dans une autre feuille

Bonsoir Alexb77 🙂,
Je n'ai pas le temps de construire les macros dont tu as besoin mais voici les lignes directrices qui devraient te permettre d'avancer :
Il te faut boucler sur la colonne A de ta feuille commandes :

Dim I as Integer
I = 6
While Sheets("commandes").Cells(I,1) <> ""
' Là ton test
I = I + 1
Do Loop

Ton test est évidement

If Sheets("commandes").Cells(I,1) = True Then

A ce moment là, tu fait la copie sur la feuille Sheets(zoneliste). Pour déterminer l'emplacement de ta ligne de copie, un nouveau While va chercher Sheets(zoneliste).Cells(I,1) = zoneliste2.
Bon courage 😎