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 :

Extraction de ligne sous condition [Toutes versions]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    Janvier 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 32
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2018
    Messages : 4
    Par défaut Extraction de ligne sous condition
    Bonjour à tous,

    Je suis nouvelle sur le forum et en programmation ! J'ai un problème sur un code, je vous explique mon cas. Mon tableau est un outil de gestion des recrutements, à la fin de la période d'essaie si dans la dernière colonne (AM) il est inscrit confirmé alors la ligne se copie dans l'onglet "Confirmé".
    Jusque là pas de problème le code fonctionne parfaitement.
    Cependant j'aimerai que les lignes se suppriment juste après. Indépendamment les deux codes fonctionnent bien mais ensemble cela ne marche plus et je n'arrive à copier/coller qu'une seule ligne ! (Si plusieurs lignes sont en "Confirmé" il n'y a que la première qui se copie sur l'onglet suivant et les autres se suppriment)

    Voici mon code :

    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
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    Sub bouton41_Cliquer()
     Dim DerLigne As Long
     Dim Ligne As Long
    Dim Abc As String
     'Dim Col As Integer
      Dim Lastline As Long
      Dim Firstcol As Integer
     Dim Lastcol As Integer
    Dim Cell As Range
     
    Reponse = MsgBox("Voulez-vous continuer ?", vbYesNo)
    If Reponse = 7 Then Exit Sub
     
      Sheets("DATA").Activate
      Lastline = Range("A" & Rows.Count).End(xlUp).Row
     
     For Each Cell In ActiveSheet.Range(Cells(10, 39), Cells(Lastline, 39))
      Sheets("DATA").Activate
      If Cell.Value = "Confirmé" Then
     Col = Cell.Column
      Ligne = Cell.Row
      Cells(Ligne, Col).EntireRow.Copy 'Copie de la ligne où "Confirmé" apparait.
     
      Sheets("Confirmé").Activate
      DernLigne = Range("A" & Rows.Count).End(xlUp).Row
      Cells(DernLigne + 1, 1).Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
     
    End If
     
    Dim compt As Integer
        compt = 2
        Do While compt <= 1000
            If Cells(compt, 39).Value = "Confirmé" Then
                Cells(compt, 39).EntireRow.Delete
            Else
                compt = compt + 1
            End If
        Loop
     
     
     
    Next
    End Sub
    Je vous joint également le tableau en question.

    Merci d'avance pour votre aide !

    Linda
    TEST7 bdd.xlsm

  2. #2
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    Janvier 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 32
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2018
    Messages : 4
    Par défaut
    Finalement j'ai trouvé la solution, j'ai mis les deux codes de façon séparés dans un bouton et cela fonctionne très bien !

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

Discussions similaires

  1. [XL-2003] Copier coller une ligne sous condition
    Par geraldferri dans le forum Excel
    Réponses: 12
    Dernier message: 21/04/2009, 11h17
  2. Suppression de lignes sous conditions
    Par juniorglobal08 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 02/10/2008, 21h15
  3. copier des lignes sous conditions (dans 2 colonnes différentes)
    Par olive08 dans le forum Macros et VBA Excel
    Réponses: 18
    Dernier message: 12/10/2007, 14h44
  4. Afficher une ligne sous condition
    Par gids01 dans le forum iReport
    Réponses: 4
    Dernier message: 25/09/2007, 13h48
  5. Suppression des lignes sous condition multiple
    Par baptbapt dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 20/06/2007, 16h23

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