Macro Excel pour copier des données et masquer des lignes

Bonjour à tous,

Voilà j'ai un problème. Je vous présente un exemple comme ça juste pour avoir une idée de la macro à réaliser :

8test-macro.xlsx (8.77 Ko)

Je souhaiterais en fait que lorsqu'il y a une case coché copier les données correspondante dans une autre feuille ou dans un autre endroit de la feuille; mais aussi s'il la case n'est pas coché de masquer la ligne.

J'espère avoir été clair

Merci d'avance pour vos réponses.

Bonjour Minato1995,

Un exemple de macro....

Sub testTransfert()

Dim i As Integer, dl As Integer, dl2 As Integer

   dl = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
  dl2 = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1

  With Sheets("Feuil1")

   For i = 2 To dl
    If .Range("A" & i) <> "" And .Range("B" & i) = "X" Then .Range("A" & i).Copy Sheets("Feuil2").Range("A" & dl2): dl2 = dl2 + 1
    If .Range("A" & i) <> "" And .Range("B" & i) = "" Then .Rows(i).Hidden = True
   Next i
  End With
End Sub
8test-macro.xlsm (17.28 Ko)

Cordialement,

Bonjour,

Merci beaucoup

Rechercher des sujets similaires à "macro copier donnees masquer lignes"