Copier des lignes sous condition dans une autre feuille

Bonjour,

Je souhaiterais copier certaines colonnes des lignes de bénévoles de l'onglet "Tableau Benevoles" dans l'onglet "Mails" sous condition qu'il soit présent.

"Tableau Benevoles" -> B10 , C10 et L10 --- si D10 = 1 alors copier dans l'onglet "Mails" -> B10 , C10 et D10.

Le petit plus serait que si je modifie la colonne D de l'onglet "Tableau Benevoles" ( 1 passe à 0 ) que cela retire la ligne de l'onglet "Mail"

ou alors un bouton rafraîchissement dans l'onglet "Mails" pour réactualiser la liste.

J’espère avoir été assez clair.

Je vous remercie d'avance et trouverais en pièce jointe mon fichier.

David

bonjour

avec un simple TCD, voir onglet exemple

j'ai effacé des mails pour bien voir le filtrage des vides

Bonsoir,

Merci jmd de ta réponse.

Mais je ne comprends pas tout, cela ne fait ce que je demande.

Cela ne reporte pas juste les présents, j'ai tout le monde et si je filtre juste les 1 (présent) effectivement je ne vois que cela.

Mais je ne peux pas sélectionner la colonne mail ou autre sans prendre les 0 caché.

Il ne faut que reporter les présents dans la deuxieme feuille.

David

Bonjour

voila une macro a tester

a toi de mettre le bouton

A+

Maurice

• Sub TestTransfert()
  Set Sh = Sheets("Liste Mails")
  Feuil2.Select
  Application.ScreenUpdating = False
  Sh.Range("B10:D" & Rows.Count).ClearContents
  C = 10
  For L = 10 To Cells(Rows.Count, 2).End(xlUp).Row
  If Range("D" & L).Value = 1 Then
  Range("B" & L & ":C" & L & ",L" & L).Copy
  Sh.Range("B" & C).PasteSpecial xlPasteValues
  C = C + 1
  End If
  Next
  Application.CutCopyMode = False
  End Sub

Salut Maurice,

Impeccable, j'ai mis le bouton et c'est parfait cela réactualise.

Par contre, par rapport au tuto je ne comprends pas tout encore. Tu dois utiliser pas mal d’abréviation.

Il va falloir que je mis met plus dedans si je veux pouvoir m'en sortir tout seul.

@+ Merci

David

bonjour

pour les format des cellules

' Sh.Range("B" & C).PasteSpecial xlPasteValues

Sh.Range("B" & C).PasteSpecial xlPasteAllUsingSourceTheme

A+

Maurice

Bonjour,

Merci beaucoup.

@+

David

bonjour

peux être un truc comme ça

• Sub TransfertAccueilBenevoles()
  Set Sh = Sheets("Emargement Accueil")
  Sheets("Tableau Benevoles").Select
  Application.ScreenUpdating = False
  Sh.Range("B10:F" & Rows.Count).ClearContents
  C = 10
  For L = 10 To Cells(Rows.Count, 2).End(xlUp).Row
  If Range("D" & L).Value = 1 Then
  Range("B" & L & ":C" & L).Copy Sh.Range("B" & C)
  Range("K" & L & ":L" & L).Copy Sh.Range("D" & C)
  Range("H" & L).Copy Sh.Range("F" & C)
  'Range("B" & L & ":C" & L & ",K" & L & ",L" & L & ",H" & L).Copy
  'Sh.Range("B" & C).PasteSpecial xlPasteAllUsingSourceTheme
  C = C + 1
  End If
  Next
  Application.CutCopyMode = False
  End Sub

A+

Maurice

Salut Maurice,

Effectivement, quand je lis ton code cela me semble un peu plus clair.

J'ai du boulot encore.

Merci beaucoup.

@+

David