vba rechercher puis couper coller

[satfilter]

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++

 

[pierrejean]

Bonjour satfilter
A tester:

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

 

[Lone-wolf]

Bonjour satfiter

Il y a une chose que j'ai du mal à saisir, comment tu peux avoir la même référence facture pour deux fournisseurs différents??

EDIT: bonjour pierrejean 🙂

 

[satfilter]

Bonjour satfiter

Il y a une chose que j'ai du mal à saisir, comment tu peux avoir la même référence facture pour deux fournisseurs différents??

EDIT: bonjour pierrejean 🙂

c'est des acquisitions intra communautaire ou des importations...

PierreJean, Merci pour le ptit code, ça va bien me dépatouiller !!

a++

 

[Lone-wolf]

Re

Même si c'est le cas. Si X fait une commande, tu est content de payer la facture?? 😵