Macro - transfert de données avec la condition SI

Version imprimable

23/02/2017, 14h13
dominiquehansen

1 pièce(s) jointe(s)

Macro - transfert de données avec la condition SI

Envoyé par dominiquehansen

Dans mon fichier excel il y a 2 feuilles.
la 1ère feuille contient plusieurs colonnes (Nom, prénom, Status, n° carte, ...)
Je voudrais faire passer les données de la ligne complète du premier tableau dans une deuxième feuille du tableauPièce jointe 247692 à condition que dans la colonne "C" du 1er tableau il y ai un "S"

Je suis perdue.
Pourriez-vous m'aider s'il vous plait

d'avance je vous remercie

Fichier en annexe

Bonsoir à tous
ci après un code de l'un des super membres de ce site adapté par un débutant pour vos besoins
bonne continuation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub CopierSiS()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("Ctr déterminé").Activate ' feuille de destination
  Sheets("Ctr déterminé").Range("A3:M1000").Select
    Selection.ClearContents
 
  Col = "C"                 ' colonne de la donnée = "s"
  NumLig = 2
  With Sheets("Récapitulatif ")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 3 To NbrLig
    If .Cells(Lig, Col).Value = "s" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub

23/02/2017, 14h41
Philippe Tulliez

Bonjour,
La solution certainement à l'aide du filtre avancé d'excel (en VBA la méthode AdvancedFilter)
A lire le tutoriel Les filtres avancés ou élaborés dans Excel
A voir également Exporter des lignes suivant critères avec la méthode AdvancedFilter et Exporter les données comparées (« Matchées »)