Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille
nommée 2007.
et je souhaiterai une macro VBA qui me permette de selectionner les lignes
dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de
les copier vers une feuille nommée"IMPRES"
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 copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB http://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lignes dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane
Bonjour,
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then
.Rows(i).Copy Sheets("impress").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JB
http://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille
nommée 2007.
et je souhaiterai une macro VBA qui me permette de selectionner les lignes
dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de
les copier vers une feuille nommée"IMPRES"
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB http://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lignes dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane
stephprod
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB http://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lignes dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE
LA COLONNE P SOIT EGALE A "NON"..
si c est possible?
merci
stefane
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
ac19ff44-1843-4924-91fa-2819b7bfc7a0@e10g2000prf.googlegroups.com...
Bonjour,
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then
.Rows(i).Copy Sheets("impress").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JB
http://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille
nommée 2007.
et je souhaiterai une macro VBA qui me permette de selectionner les lignes
dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de
les copier vers une feuille nommée"IMPRES"
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB http://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lignes dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane
JB
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" And .Cells(i, "P") = "NON" Then .Rows(i).Copy Sheets("impres").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB
On 13 fév, 09:32, "stephprod" wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuil le nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lign es dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata"
And .Cells(i, "P") = "NON" Then
.Rows(i).Copy Sheets("impres").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JB
On 13 fév, 09:32, "stephprod" <prodiag...@orange.fr> wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE
LA COLONNE P SOIT EGALE A "NON"..
si c est possible?
merci
stefane
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
ac19ff44-1843-4924-91fa-2819b7bfc...@e10g2000prf.googlegroups.com...
Bonjour,
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then
.Rows(i).Copy Sheets("impress").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuil le
nommée 2007.
et je souhaiterai une macro VBA qui me permette de selectionner les lign es
dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de
les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" And .Cells(i, "P") = "NON" Then .Rows(i).Copy Sheets("impres").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB
On 13 fév, 09:32, "stephprod" wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuil le nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lign es dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" And .Cells(i, "P") = "NON" Then .Rows(i).Copy Sheets("impres").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB
On 13 fév, 09:32, "stephprod" wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuil le nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lign es dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata"
And .Cells(i, "P") = "NON" Then
.Rows(i).Copy Sheets("impres").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JB
On 13 fév, 09:32, "stephprod" <prodiag...@orange.fr> wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE
LA COLONNE P SOIT EGALE A "NON"..
si c est possible?
merci
stefane
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
ac19ff44-1843-4924-91fa-2819b7bfc...@e10g2000prf.googlegroups.com...
Bonjour,
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then
.Rows(i).Copy Sheets("impress").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuil le
nommée 2007.
et je souhaiterai une macro VBA qui me permette de selectionner les lign es
dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de
les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" And .Cells(i, "P") = "NON" Then .Rows(i).Copy Sheets("impres").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB
On 13 fév, 09:32, "stephprod" wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuil le nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lign es dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
stephprod
MAGNIFIQUE MERCI BCP CA MARCHE
"JB" a écrit dans le message de news:
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" And .Cells(i, "P") = "NON" Then .Rows(i).Copy Sheets("impres").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB
On 13 fév, 09:32, "stephprod" wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lignes dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
MAGNIFIQUE MERCI BCP CA MARCHE
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
fef55a68-f46f-4622-b35b-ab8dbb3a9b36@q21g2000hsa.googlegroups.com...
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata"
And .Cells(i, "P") = "NON" Then
.Rows(i).Copy Sheets("impres").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JB
On 13 fév, 09:32, "stephprod" <prodiag...@orange.fr> wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE
LA COLONNE P SOIT EGALE A "NON"..
si c est possible?
merci
stefane
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
ac19ff44-1843-4924-91fa-2819b7bfc...@e10g2000prf.googlegroups.com...
Bonjour,
Sub copie()
ligne = 2
With Sheets("2007")
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then
.Rows(i).Copy Sheets("impress").Cells(ligne, 1)
ligne = ligne + 1
End If
Next
End With
End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille
nommée 2007.
et je souhaiterai une macro VBA qui me permette de selectionner les
lignes
dont les colonnes S et Q qui contiennent le texte "tata" par exemple et
de
les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" And .Cells(i, "P") = "NON" Then .Rows(i).Copy Sheets("impres").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JB
On 13 fév, 09:32, "stephprod" wrote:
MERCI POUR TON CODE jb MAIS JE VOUDRAIS QU'IL ME LES COPIE A CONDITION QUE LA COLONNE P SOIT EGALE A "NON".. si c est possible?
merci
stefane
"JB" a écrit dans le message de news:
Bonjour,
Sub copie() ligne = 2 With Sheets("2007") For i = 1 To .[A65000].End(xlUp).Row If .Cells(i, "Q") = "tata" And .Cells(i, "S") = "tata" Then .Rows(i).Copy Sheets("impress").Cells(ligne, 1) ligne = ligne + 1 End If Next End With End Sub
JBhttp://boisgontierjacques.free.fr
On 13 fév, 08:57, "stephprod" wrote:
Bonjour j'ai un tableau comprenant des colonne de A à Z dans une feuille nommée 2007. et je souhaiterai une macro VBA qui me permette de selectionner les lignes dont les colonnes S et Q qui contiennent le texte "tata" par exemple et de les copier vers une feuille nommée"IMPRES"
est ce que c est possible?
merci d'avance
stefane- Masquer le texte des messages précédents -