Copier Ligne Entiere Si Condition

[jeanphi]

Bonjour

Je souhaite copier une ligne entière d'une feuille vers une autre feuille si une condition est respectée

J'essaye avec ce code mais çà fonctionne pas😕

Sub Test()
Dim cell As Range
Sheets("Feuil1").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Feuil1").Range("E7:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
If cell.Value = "JP" Then
Sheets("Feuil2").Select
cell.EntireRow.Copy
End If
Next
Application.ScreenUpdating = True
End Sub


Pouvez vous m'aider?
Merci

 

[SergiO]

Re : Copier Ligne Entiere Si Condition

Bonjour jeanphi,

Problème de copier - coller dans ton code, essaie ceci

Sub Test()
Dim cell As Range
Sheets("Feuil1").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Feuil1").Range("E7:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
If cell.Value = "JP" Then
cell.EntireRow.Copy Destination:=Sheets("Feuil2").Cells(Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

@+

 

[Épaf]

Re : Copier Ligne Entiere Si Condition

Je suppose que tu veux copier ta ligne de feuil1, où tu cherches Jean-Pierre, sur feuil2, auquel cas, tu copies la mauvaise ligne et tu la colle nulle part 😉
Tu n'indiques aucune adresse où la coller

Sub Test()
Dim cell As Range
Sheets("Feuil1").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Feuil1").Range("E7:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
     If cell.Value = "JP" Then
          cell.EntireRow.Copy [COLOR="Red"]destination:=[/COLOR]Sheets("Feuil2").Rows(NoLigne)
     End If
Next
Application.ScreenUpdating = True
End Sub

destination:= n'est pas indispensable mais le reste, oui.

Grillé par Sergio

 

[jeanphi]

Re : Copier Ligne Entiere Si Condition

bonjour sergio

merci pr ton aide c nickel 🙂

 

[Gorfael]

Re : Copier Ligne Entiere Si Condition

Bonjour

Je souhaite copier une ligne entière d'une feuille vers une autre feuille si une condition est respectée

J'essaye avec ce code mais çà fonctionne pas😕

Sub Test()
Dim cell As Range
Sheets("Feuil1").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Feuil1").Range("E7:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
If cell.Value = "JP" Then
Sheets("Feuil2").Select
cell.EntireRow.Copy
End If
Next
Application.ScreenUpdating = True
End Sub


Pouvez vous m'aider?
Merci

Salut à tous
Moi, je préfère ça :

Sub Test()
Dim Cel As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
     For Each cell In .Range(.[E7], .[E65536].End(xlUp))
          If Cel = "JP" Then .rows(cel.row).Copy Sheets("Feuil2").rows(Sheets("Feuil2").[E65536].end(xlup).row+1)
     Next
Application.ScreenUpdating = True
End Sub

A+