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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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" <prodiag...@orange.fr> 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
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
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
JB
Solution Filtre élaboré si titres:
Sub Extrait() [A1:Z10000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[AD1:AD2], CopyToRange:=Sheets("tata").[A1] End Sub
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
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 -
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 <boisgont...@hotmail.com> 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" <prodiag...@orange.fr> 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 -
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
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 -
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
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
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
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
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
045a4195-86d4-4b50-96c7-7f12d72dfe02@s12g2000prg.googlegroups.com...
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" <prodiag...@orange.fr> 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
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
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
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