Bonjour.
Cette partie de macro a pour but de comparer 2 codes articles en colonne N et P .

Si les 2 codes sont differents , je voudrais que la macro coupe et colle les valeurs des cellules de la colonne P,Q et R et la reporte sur un autre onglet (en rouge sur l'image ).

Suite à ça il faut supprimer les cellules et decaller vers le haut .
Recomparer de nouveau les 2 codes , jusqu'a ce que les 2 codes soientt les mêmes et passer à la ligne suivante

Nom : Sans titre.JPG Affichages : 80 Taille : 19,0 Ko

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Do
Range("P2:R2").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Import Tiamp").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
 
Exit Do
Loop Until ActiveCell.FormulaR1C1 = "RC[+2]"
Cette partie de ma macro fonctionne de manière locale sur une ligne , je n'ai pas trouvé comment l'étendre.

Merci d'avance de votre aide.

Cdt

Yoni