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 copier/coller avec condition [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2015
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Allier (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2015
    Messages : 4
    Points : 3
    Points
    3
    Par défaut Macro copier/coller avec condition
    Bonjour,
    Je vais essayer d'être clair, j'ai une macro qui cherche dans chaques feuilles de mon fichier les lignes "NON CONFORME" et les copie dans une autre feuille. Le problème c'est que soit elle ne check pas toutes les lignes de la feuille soit elle ne les copie pas, car dans le tableau récapitulatif il en manque.
    Qu'est ce que je dois faire ?
    Merci d'avance.

    Code vb : 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
    Option Explicit
     
    Dim f, sh, ln, lgn
     
    Sub NONCONFORMEnorm()
     
        Set f = Sheets("Recap Normative")
        f.Range("A14").CurrentRegion.Offset(1, 0).Clear
        For Each sh In Worksheets
            If sh.Range("G14") = "Conforme /" & Chr(10) & "Non Conforme" Then
                For ln = 16 To sh.Range("D" & Rows.Count).End(xlUp).Row
                    If sh.Range("G" & ln) = "NON CONFORME" Then
                        lgn = Application.Max(6, f.Range("D" & Rows.Count).End(xlUp)(2).Row)
                        sh.Range("B" & ln & ":I" & ln).Copy f.Range("A" & lgn)
                    End If
                Next ln
            End If
        Next sh
        MsgBox "Travail terminé !"
    End Sub

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    12 729
    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 : 12 729
    Points : 28 555
    Points
    28 555
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Lorsque l'on teste des chaînes de caractères, il y a toujours un risque d'avoir des espaces avant et après la chaîne et aussi un problème de casse dû à un mauvais encodage.
    Il est donc prudent de tester à l'aide des fonctions Trim et Lcase ou Ucase mais j'aime moins et si l'on cherche une phrase, j'enlève tous les espaces à l'aide de la fonction Replace.
    Dans certain cas, je pousse le vice jusqu'à enlever tous les caractères comme les apostrophes, tous les points de ponctuations, les caractères accentués, etc. Ce sont des heures de débogages gagnés

    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub t()
     Dim Texte As String
     Texte = "  MoT   "
     If Trim(LCase(Texte)) = "mot" Then MsgBox "Mot trouvé"
     Texte = " c'est ma phRase"
     If LCase(Replace(Texte, " ", "")) = "c'estmaphrase" Then MsgBox "Phrase trouvée"
    End Sub
    J'ajouterais que si tu veux exporter suivant conditions, il est intéressant de connaître le filtre avancé d'excel (méthode AdvancedFilter en VBA)
    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

  3. #3
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2015
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Allier (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2015
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Merci pour ta réponse,
    J'ai une autre question, dans la macro je copie toutes les colonnes de la "B" à la "I", comment je peux changer le code pourpar exemple ne pas prendre la colonne "D" ?

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    12 729
    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 : 12 729
    Points : 28 555
    Points
    28 555
    Billets dans le blog
    53
    Par défaut
    Bonjour,

    Moi, j'utilise la propriété CurrentRegion de l'objet Range en partant de la première cellule de la liste. (Equivalant de Ctrl+* ou Ctrl+A
    . Mais il faut au moins que la première colonne et première ligne soit remplie
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox "Dernière ligne " & Range("A1").CurrentRegion.Rows.Count
    Sinon il y a la propriété End de l'objet Range avec comme valeur la constante xlUp (Equivalant de Ctrl+Flèche Haut)
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox "Dernière ligne " & Cells(Rows.Count, 2).End(xlUp).Row
    Il y a aussi la propriété UsedRange de l'objet WorkSheet (Equivalent de Ctrl+End) mais pour ma part, je m'en méfie
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox "Dernière ligne " & ActiveSheet.UsedRange.Rows.Count
    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

  5. #5
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2015
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Allier (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2015
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Merci

  6. #6
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    12 729
    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 : 12 729
    Points : 28 555
    Points
    28 555
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    C'est amusant pare-que entre le moment où j'ai lu ta question et la rédaction de ma réponse précédente, tu as modifié le texte de cette première.
    J'ai une autre question, dans la macro je copie toutes les colonnes de la "B" à la "I", comment je peux changer le code pourpar exemple ne pas prendre la colonne "D" ?
    Ce qui n'est pas tout à fait la même chose.
    Le filtre avancé d'excel dont je t'ai donné le lien dans une de mes réponses plus haut, permet d'exporter certaines colonnes de la liste source.
    Sinon, dans une boucle, tu peux utiliser une structure conditionnelle telle que If...Then...Else ou SELECT CASE afin de passer outre certaine colonne
    ou encore la méthode Copy qui permet de copier des colonnes non contiguë
    Exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("B1:C15,E1:F15,I1:I15").Copy Range("N1")
    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

  7. #7
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2015
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Allier (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2015
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Oui j'ai éditer en même temps que ta réponse ^^.
    Merci j'ai plus qu'a me mettre aux filtres avancé, merci bien.
    Bonne journée.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Macro Copier Coller Avec CheckBox et Conditions
    Par HoLbOrN dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 15/11/2017, 14h09
  2. Macro- Copier-coller avec conditions
    Par touchard.mathieu dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 15/02/2014, 18h17
  3. [XL-2007] Macro- Copier-coller avec conditions
    Par natou_pc dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 12/05/2013, 19h57
  4. [XL-2000] macro copier coller avec condition ne marche pas
    Par antfo dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 17/03/2010, 11h54
  5. Macro copier/coller avec tri
    Par Lechette dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/03/2008, 13h44

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