contrôle technique

[Roll]

Bonsoir le forum,
je tiens mensuellement un journal de différents problèmes rencontrés.
je voudrais recopier dans un onglet "résumé", les lignes de l'onglet Base dont la cellule en col D n'est pas vide.
J'ai fait une macro en utilisant l'enregistreur de macro (car je ne connais absolument rien en VBA).
Mon problème est que cela ne recopie pas à la suite des lignes déjà recopiées, mais les écrase.
Comment faire?

 

[JCGL]

Re : contrôle technique

Bonjour à tous,

Peux-tu essayer ceci :

Sub Archivage()
    Feuil1.Range("A4:D4").Copy Feuil1.Range("F4")
    Feuil1.Range("A4:D1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "D1:D2"), CopyToRange:=Range("F4:I4"), Unique:=True
    Feuil1.Range("F5:I100").Copy Feuil2.Range("A" & Feuil2.Range("A65536").End(xlUp).Row + 1)
    Feuil1.Columns("F:I").Delete Shift:=xlToLeft
    Range("A4").Select
End Sub

A + à tous

Edition : Salut Cousin Hub. Ravi de te croiser 🙂

 

[Cousinhub]

Re : contrôle technique

Bonsoir,

Hi, JC 😀

Un autre essai :

Sub recap()
Dim DerCel As Range
Dim FBase As Worksheet, FResume As Worksheet
Set FBase = Sheets("Base")
Set FResume = Sheets("Résumé")
Set DerCel = FResume.Cells(Rows.Count, 1).End(xlUp)(2)
With FBase
    .Range("A1:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Name = "base"
    .Range("F2").FormulaR1C1 = "=RC[-2]<>"""""
    .Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("F1:F2"), _
        CopyToRange:=DerCel
    .Columns(6).Clear
End With
DerCel.EntireRow.Delete
End Sub

Juste pour le fun, et en utilisant le filtre élaboré vers un autre onglet.

Bonne soirée

 

[Roll]

Re : contrôle technique

merci JCGL

cela fonctionne comme je le voulais.

bonne soirée