Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

copie cellule condition

3 réponses
Avatar
stephprod
Bonjour,

j'aimerais connaitre un code qui me copie automatiquement la ligne d'un
tableau allant de A à Z lorsque la colonne K est égale à "NON" et ceci dans
un onglet nommé "tata" par exemple

merci d'avance

3 réponses

Avatar
JB
Bonjour,

Sub Essai()
ligne = 1
For Each c In Range("K1", [K65000].End(xlUp))
If c.Value = "NON" Then
c.Offset(0, -10).Resize(, 26).Copy Sheets("tata").Cells(ligne,
1)
ligne = ligne + 1
End If
Next
End Sub

http://cjoint.com/?czpEJwVNhV

JB
http://boisgontierjacques.free.fr/



On 25 fév, 15:10, "stephprod" wrote:
Bonjour,

j'aimerais connaitre un code qui me copie automatiquement la ligne d'un
tableau allant de A à Z lorsque la colonne K est égale à "NON" et ce ci  dans
un onglet nommé "tata" par exemple

merci d'avance


Avatar
JB
Solution Filtre élaboré si titres:

Sub Extrait()
[A1:Z10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[AD1:AD2], CopyToRange:=Sheets("tata").[A1]
End Sub

http://cjoint.com/?czpNYvvXhg

JB
On 25 fév, 15:30, JB wrote:
Bonjour,

Sub Essai()
  ligne = 1
  For Each c In Range("K1", [K65000].End(xlUp))
    If c.Value = "NON" Then
      c.Offset(0, -10).Resize(, 26).Copy Sheets("tata").Cells(ligne,
1)
      ligne = ligne + 1
    End If
  Next
End Sub

http://cjoint.com/?czpEJwVNhV

JBhttp://boisgontierjacques.free.fr/

On 25 fév, 15:10, "stephprod" wrote:



Bonjour,

j'aimerais connaitre un code qui me copie automatiquement la ligne d'un
tableau allant de A à Z lorsque la colonne K est égale à "NON" et ceci  dans
un onglet nommé "tata" par exemple

merci d'avance- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
stephprod
MERCI jb pour m'avoir mit sur la voie

Je mets mon code finalisé pour tout ceux qui sauront l'adapter
Sub xx()
For I = Range("c65536").End(xlUp).Row To 7 Step -1
Cells(I, 1).EntireRow.Clear ' le 2 correspond au numero de colonne
Next
ligne = 2
With Sheets("2007")

For I = 1 To .[A65000].End(xlUp).Row
'MsgBox (.Cells(I, "Q"))
If .Cells(I, "P") = "NON" Then
.Rows(I).Copy Sheets("TOTAL_NON").Cells(ligne + 5, 1)
ligne = ligne + 1
End If


Next
End With
With Sheets("2008")

For I = 1 To .[A65000].End(xlUp).Row
'MsgBox (.Cells(I, "Q"))
If .Cells(I, "P") = "NON" Then
.Rows(I).Copy Sheets("TOTAL_NON").Cells(ligne + 5, 1)
ligne = ligne + 1
End If


Next
End With
Columns("D:L").Select
Selection.Delete Shift:=xlToLeft

Range("D1").Select
Selection.FormulaR1C1 = ""
ActiveCell.FormulaR1C1 = "=SUM(C[7])"
Range("D2").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D1").Select
Selection.NumberFormat = "0"
Range("E1").Select
ActiveCell.FormulaR1C1 = "DEHORS"
Range("E2").Select

End Sub

"JB" a écrit dans le message de news:

Bonjour,

Sub Essai()
ligne = 1
For Each c In Range("K1", [K65000].End(xlUp))
If c.Value = "NON" Then
c.Offset(0, -10).Resize(, 26).Copy Sheets("tata").Cells(ligne,
1)
ligne = ligne + 1
End If
Next
End Sub

http://cjoint.com/?czpEJwVNhV

JB
http://boisgontierjacques.free.fr/



On 25 fév, 15:10, "stephprod" wrote:
Bonjour,

j'aimerais connaitre un code qui me copie automatiquement la ligne d'un
tableau allant de A à Z lorsque la colonne K est égale à "NON" et ceci
dans
un onglet nommé "tata" par exemple

merci d'avance