Recopier une ligne sur une autre feuille

[zaephi]

Bonjour,

Je souhaiterai qu'un lligne soit recopier en integralité sur une autre feuille s'il y a une anomalie.
Comment faire sachant que :

Dans un tableau en feuille 1 j'ai une colonne "anomalie" qui se calcul (1=anomalie, 0= ok)

je souhaiterais que la ligne comportant une anomalie soit recopiée en feuille 2.

Merci de votre aide.


Zaephi

 

[bqtr]

Re : Recopier une ligne sur une autre feuille

Bonsoir,

Voici une façon de faire avec un filtre :

Sub Filtre()

Dim Tablo As Range, PlgFiltre As Range

Application.ScreenUpdating = False
Set Tablo = Range("A1:D" & Range("A65536").End(xlUp).Row)

  With Tablo
   .AutoFilter
   .AutoFilter Field:=3, Criteria1:="1"
  End With
  
Set PlgFiltre = Tablo.SpecialCells(xlCellTypeVisible)

PlgFiltre.Cells(1).EntireRow.Hidden = True
PlgFiltre.Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
PlgFiltre.Cells(1).EntireRow.Hidden = False
Tablo.AutoFilter
Application.ScreenUpdating = True

End Sub

-Tablo correspond à la plage de ton tableau de départ, ici sur 4 colonnes
(la première ligne du tableau est une ligne d'en-tête)
- Field:=3 correspond à la 3ème colonne (celle filtrée), colonne C
- Criteria1:="1" recherche le 1 dans les cellules du tableau dans la 3ème colonne (C)
- PlgFiltre correspond à la plage filtrée, celle qui contient toutes les linges où il y a le 1
- Le code masque la ligne d'en-tête puis copie le reste sur la feuille 2 (la 1ère ligne de la feuille 2 correspond à l'en-tête)
- Enfin la ligne d'en-tête est ré-affichée et le filtre annulé.

A toi d'adapter à ton cas 🙂

Bonne soirée