Discussion :

[Muntjact]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

Bonjour

Dim Ligne As Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Muntjact]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[Muntjact]

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