Déplacement de ligne vers un onglet (1 condition)

Bonjour

Je cherche à créer une macro permettant déplacer des lignes(avec MFC-Mise en forme) d'un onglet vers un autre suivant une condition : valeur "X" dans la colonne A.

J'ai tenté de créer une macro qui est sur le fichier mais cela ne fonctionne pas.

Pouvez-vous m'aider?

merci

Bonjour,

quelques modifications de la macro deplace():

Sub deplace()

  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
  Dim Dest As Worksheet, Source As Worksheet
  Set Dest = Worksheets("FSC")   ' feuille de destination
  Set Source = Worksheets("bdd") ' feuille de source

  Col = "A"                 ' colonne données non vides à tester'
  NumLig = Dest.Range("A" & Rows.Count).End(xlUp).Row  'N° de la dernière ligne non vide de la feuille de destination
  With Source     ' feuille source'
  NbrLig = .Cells(65536, Col).End(xlUp).Row 'N° de la dernière ligne non vide de la feuille source
  For Lig = 8 To NbrLig             'n° de la 1ere ligne de données'
    If .Cells(Lig, Col).Value = "X" Then
      NumLig = NumLig + 1
      .Cells(Lig, Col).EntireRow.Copy Dest.Cells(NumLig, 1)
    End If
  Next
  End With

End Sub

Bonjour

merci Algo plus cela fonctionne.

il me reste juste à régler mon soucis de MFC avec les $D$ etc des MFC dans l'onglet destination

Par contre je n'avais pas pensé mais si je lance la macro plusieurs fois il ajoute les lignes à la suite.

En fait dans le cas ou la ligne est déjà présente (avec une vérif sur la colonne B) il faudrait qu'il me l'indique et me demande si je veux quand même l'ajouter.