Copier/coller avec condition

Bonjour,

J'ai un fichier Excel avec n lignes et x colonnes sur la Feuil1, j'aimerai pouvoir couper toute une ligne si la cellule "A" de cette ligne respecte la condition suivante: si la cellule contient le mot 'closed'.

Puis je voudrai coller cette ligne sur la feuil2.

Exemple:

Si la cellule A9 contient le mot 'closed' alors couper toute la ligne 9 et la coller dans la Feuil2.

Voilà, si quelqu'un pourrait m'aider s'il vous plaît.

Merci

17fichier-closed.xlsx (45.53 Ko)

Bonjour

à tester

Note : Bouton dans Feuil1 en haut

crdlt,

André

je vous remercie pour ta réponse.

En fait, ce que je cherche c'est de copier la ligne en feuil2 et au même temps de couper la ligne de la Feuil1.

de même, quand j’essaie d'ajouter un nouveau ligne à la Feuil2, je trouve que l’ensemble du tableau a été dupliqué.

Bonjour,

ah ok

je venais de m'apercevoir que le fichier joint ci-dessus ajouter à chaque fois par incrémentation le nombre de ligne comportant x 'closed'

bon, je met le fichier si cela intéresse quelqu'un

rectifier fichier ci-dessous :

  • Déclarations des variables
  • suppression des valeurs, formats etc. de la Feuil2 du classeur

et je regarde ta requête

crdlt,

André

re,

à tester

après il faut combiner, bidouiller les fichiers

  • Supprime la ligne de la feuil1 qui comprend dans la colonne A le mot 'closed' (attention de bien respecté la casse au cas où)
  • transfert dans la feuil2 de toutes les lignes comprenant le mot 'closed'

crdlt,

André

Bonjour,

J'ai un peu le même problème et je suis vraiment débutant sur Excel je m'explique j'ai crée un fichier Excel ou j'aimerai copier coller des cellules dans une feuille.

J'aimerai que lorsque je marque oui dans la colonne rapprochement dans n'importe quelle autre feuille du classeur (SIT19 FACT19 SIT20 FACT20) cela se copie dans l'onglet ENTCLIENT 20 (seulement les infos des cellules demandées dans ENTCLIENT 20).

Je vous joint le fichier que j'utilise (pour info je travail avec Excel 2016 sur MAC)

Je vous remercie par avance.

Paolo

Bonjour toutes et tous

dans un nouveau module

si, j'ai suivi tes explications

crdlt,

André

Spoiler
Option Explicit

  Dim objFeuille As Worksheet
  Dim valcherch, derlig  As String
  Dim cellule As Object

Sub Renouvellement_Norm()
    Dim plage As Range, cel As Range
    'stop rafraichissement ecran
    Application.ScreenUpdating = False
    'valeur a chercher
    valcherch = "oui"
    With Worksheets("FACTURES 19")
        'derniere cellule colonne A
         derlig = .Range("A" & Rows.Count).End(xlUp).Row
        'definition plage à tester en memoire
        Set plage = .Range("A4:WA" & derlig)
    End With

    derlig = 0
    With Worksheets("SIT19")
        'test plage
        For Each cel In plage
            If cel = valcherch Then
                'premiere cellule vide apres derniere non vide colonne D
                derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
                'premier lancement
                If derlig = 4 Then
                    derlig = 9
                End If
                'copy ligne entiere
                cel.EntireRow.Copy .Range("B" & derlig)
            End If
        Next cel
    End With

       With Worksheets("SIT19")
    Dim K As Integer
For K = 300 To 1 Step -1
    If Not Cells(K, 1).Resize(1, 6).Find("oui") Is Nothing Then Rows(K).Delete
Next K

 ' -------------------------------------
 ' rajouter par Andre13 le 31012020
 Dim DerLigne As Long

       ' en cas d'erreur
        On Error Resume Next
   ' ajouter la formule somme de A5 etc.
        .Range("A5").FormulaR1C1 = "=SUM(1)"
   ' à vérifier
         Range("A6").Select
         ActiveCell.FormulaR1C1 = "=(R[-1]C+1)"
        .Range("A6:A" & DerLigne).FormulaR1C1 = "=(R[-1]C+1)"
        DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row
 ' -------------------------------------

 End With
 On Error Resume Next

     'rafraichissement ecran
     Application.ScreenUpdating = True
End Sub

Bonjour André,

Je vous remercie pour le retour et en fait j'avais envoyé le mauvais fichier (celui que j'ai envoyé était celui avec lequel j'essayais de faire l'apprenti chimiste d'excel ) ci joint le bon fichier beaucoup plus simple je pense par rapport à ce que j'avais mis dans ma demande.

"J'aimerai que lorsque je marque oui dans la colonne rapprochement dans n'importe quelle autre feuille du classeur (SIT19 FACT19 SIT20 FACT20) cela se copie dans l'onglet ENTCLIENT 20 (seulement les infos des cellules demandées dans ENTCLIENT 20)".

Merci beaucoup de prendre de votre temps.

Paolo

Rechercher des sujets similaires à "copier coller condition"