vba rechercher puis couper coller

satfilter

XLDnaute Nouveau
bonjour,
j'ai une feuille excel qui est le résultat d'une requête SQL avec 2 fournisseurs distinct pour chaque facture (une histoire de tva) et même parfois plusieurs mandats pour une même ref facture.

je vous joint un extrait de ce fichier pour une meilleure compréhension.

il faudrait, pour une même Ref Facture (colonne A), que je coupe la ligne du fournisseur 999 et que je vienne la coller a la suite de le ligne du fournisseur qui n'a pas le numéro 999.

c'est un peu compliqué a expliquer.
je met en feuille 2 le résultat attendu.

en gros, le principe de cette macro serai de couper coller la ligne du fournisseur 999 a la suite de la ligne dont le numéro de facture est identique et qui n'a pas le fournisseur 999.

merci beaucoup pour votre aide précieuse !
a++
 

Pièces jointes

  • Classeur1.xlsx
    15 KB · Affichages: 38

pierrejean

XLDnaute Barbatruc
Bonjour satfilter
A tester:

Code:
For n = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
   If Range("A" & n - 1) = Range("A" & n) And Range("C" & n) = 999 Then
       Range("A" & n & ":J" & n).Copy Destination:=Range("K" & n - 1)
       Rows(n).Delete
   End If
Next
 

Statistiques des forums

Discussions
294 211
Messages
1 936 896
Membres
188 099
dernier inscrit
dedispotter01