Copier coller avec condition

Bonjour,

j'aimerais que le copier coller ne se fasse pas en face de "55367-50"
c'est surtout les 2 derniers chiffres que je veux qu'il fasse parti de la condition
le copier coller dois ce faire dans tout ce qui est en-dessous de =<49

Merci.

Code:

---

1 2 3 4 5 6

Dim Ligne As Long Ligne = Worksheets("Feuil1").Cells(Rows.Count, 5).End(xlUp).Row Sheets("Feuil2").Range("G" & Rows.Count).End(xlUp).Copy Sheets("Feuil1").Range("K8:K" & Ligne).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False

---

Bonjour

Dim Ligne As Long

Code:

---

1 2 3 4 5 6

if right(Sheets("Feuil2").Range("G" & Rows.Count).End(xlUp).value,2)<=49 Ligne = Worksheets("Feuil1").Cells(Rows.Count, 5).End(xlUp).Row Sheets("Feuil2").Range("G" & Rows.Count).End(xlUp).Copy Sheets("Feuil1").Range("K8:K" & Ligne).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False end if

---

J'ai essayé avec le code mais le copier coller se fais toujours sur tout ne prend pas en compte la condition

Voici le code

Code:

---

1 2 3 4 5 6 7 8

Dim Ligne As Long If Right(Sheets("Feuil2").Range("G" & Rows.Count).End(xlUp).Value, 2) <= 49 Then Ligne = Worksheets("Feuil1").Cells(Rows.Count, 5).End(xlUp).Row Sheets("Feuil2").Range("G" & Rows.Count).End(xlUp).Copy Sheets("Feuil1").Range("K8:K" & Ligne).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End If

---

Bonjour,
Pour exporter suivant conditions, je te conseille l'utilisation de la méthode AdvancedFilter. Cela peut se résumer à une ligne de code.

A lire éventuellement : Les filtres avancés ou élaborés dans Excel

Est ce que je peux écrire mon critère comme ça =??????<=49