Supprimer lignes d'une feuille SI

Bonjour,

Je recherche de l’aide sur une problématique :

Dans ma Feuil1, j’ai un tableau que j’incrémente de données, une fois les données incrémentés, il se copie colle en Feuil2.

Le tableau de la Feuil1 se remet à jour via une BI quand j’en ai besoin, ce qui veut dire que j’ai d’autres lignes qui s’incrémentent, et que je dois remplir.

Est-il possible lors de la réactualisation de mon tableau Feuil1, que vérification sur la Feuil2 soit réalisée afin de savoir si l’OF (Colonne E) existe déjà Feuil2, si oui, la ligne avec ce même OF est supprimée de la Feuil1.

Merci d’avance,

Bonjour

Dans ma Feuil1, j’ai un tableau que j’incrémente de données, une fois les données incrémentés, il se copie colle en Feuil2.

Bonjour Dan,

Voici le code qui copie le tableau en Feuil2 :

Sub Bouton1_Cliquer()

Dim C As Range

Dim LigneAjout As Long

With Worksheets("Feuil1")

For Each C In .Range("b2:b" & .Range("b" & Rows.Count).End(xlUp).Row)

If Not IsEmpty(C) Then

LigneAjout = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1

C.EntireRow.Copy Worksheets("Feuil2").Range("A" & LigneAjout)

End If

Next C

End With

End Sub

Bonjour Dan,

Aurais tu une solution à me proposer ?

Merci

Re

Essayez comme ceci

Sub Bouton1_Cliquer()
Dim C As Range
Dim LigneAjout As Long
Dim ref As Integer
With Worksheets("Feuil1")
    For Each C In .Range("b2:b" & .Range("b" & .Rows.Count).End(xlUp).Row)
        If Not IsEmpty(C) And Not IsEmpty(C.Offset(0, 3)) Then
            On Error Resume Next
            ref = WorksheetFunction.Match(C.Offset(0, 3), Worksheets("Feuil2").Range("E:E"), 0)
            If Err > 0 Then
                LigneAjout = Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Rows.Count).End(xlUp).Row + 1
                C.EntireRow.Copy Worksheets("Feuil2").Range("A" & LigneAjout)
            End If
        End If
    Next C
End With
End Sub

J'ai apporté quelques corrections dans votre code également

Si ok et terminé, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de votre réponse

Cordialement

Re bonjour Dan,

Le code est exactement ce que je voulais, à l'exeption d'une petite chose :

Est il possible de supprimer une ligne de la Feuil1, si celle ci existe deja en Feuil2 ? (par rapport à l'OF)

Merci de ton aide si précieuse , vraiment !

Re,

Essayez ceci :

Sub Bouton1_Cliquer()
Dim i As Integer
Dim LigneAjout As Long
Dim ref As Integer
With Worksheets("Feuil1")
    For i = .Range("b" & .Rows.Count).End(xlUp).Row To 2 Step -1
        If Not IsEmpty(.Range("B" & i)) And Not IsEmpty(.Range("B" & i).Offset(0, 3)) Then
            On Error Resume Next
            ref = WorksheetFunction.Match(.Range("B" & i).Offset(0, 3), Worksheets("Feuil2").Range("E:E"), 0)
            If Err > 0 Then
                LigneAjout = Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Rows.Count).End(xlUp).Row + 1
                .Range("B" & i).EntireRow.Copy Worksheets("Feuil2").Range("A" & LigneAjout)
            Else: .Range("B" & i).EntireRow.Delete
            End If
        End If
    Next i
End With
End Sub

Cordialement