IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro - transfert de données avec la condition SI


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    secrétaire
    Inscrit en
    Février 2017
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Belgique

    Informations professionnelles :
    Activité : secrétaire

    Informations forums :
    Inscription : Février 2017
    Messages : 1
    Par défaut 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 tableauTableauV1.xlsx à 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

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    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 »)
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. [XL-2010] Probleme de transfert de données avec condition IF
    Par cbredeche dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/12/2016, 11h18
  2. Transfert de données avec collage spéciale
    Par Fredh61 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 02/06/2009, 12h20
  3. Ajout des données avec une condition
    Par jean sami dans le forum SQL
    Réponses: 2
    Dernier message: 15/09/2008, 06h21
  4. Macro transfert de données selon un critére
    Par quentin.lefrere.08 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 27/05/2008, 14h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo