Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut Major
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le résultat
du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
'
'
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------
PS as-tu reçu mon mail privé du 11/12 ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"rthompson" a écrit dans le message de
news:Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Salut Major
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le résultat
du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
'
'
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------
PS as-tu reçu mon mail privé du 11/12 ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: Op0oPAqfKHA.2164@TK2MSFTNGP02.phx.gbl...
Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Salut Major
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le résultat
du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
'
'
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------
PS as-tu reçu mon mail privé du 11/12 ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"rthompson" a écrit dans le message de
news:Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut Major
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le résultat
du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
'
'
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------
PS as-tu reçu mon mail privé du 11/12 ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"rthompson" a écrit dans le message de
news:Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Salut Major
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le résultat
du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
'
'
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------
PS as-tu reçu mon mail privé du 11/12 ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: Op0oPAqfKHA.2164@TK2MSFTNGP02.phx.gbl...
Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Salut Major
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le résultat
du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
'
'
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------
PS as-tu reçu mon mail privé du 11/12 ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"rthompson" a écrit dans le message de
news:Bonsoir à toutes et tous
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
Pour cela j'utilise le bout de code ci-dessus
Celui-ci fonctionnat dans une autre fichier, mais j'ai du changer quelque
chose
Et il me met l'horrible Error 400
Et quand je fais la même opération manuellement je n'ai aucun problème
Si je vois bien c'est du côté collage spécial que cela cloche
Si quelqu'un a une idée
D'avance merci
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Showordered()
Application.ScreenUpdating = False
Range([e1], [e185]).EntireRow.Show
For Each C In Range([e1], [e185])
C.EntireRow.Hidden = Not ((C.Value > 0))
Next C
Application.ScreenUpdating = True
Application.EnableEvents = True
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Commande").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Range("C8").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
Salut à toi
Je mettrais au lieu de :
Selection.SpecialCells(xlCellTypeVisible).Select
ceci :
Range([e1], [e185]).SpecialCells(xlCellTypeVisible).Entirerow.Select
Peut être du mieux pour toi
Dis moi !!!!!
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles
A1:A10, filtré, puis copié et collé en feuille2 où je n'ai que le
résultat du filtre (3 lignes)
-----------------------------------------------
Sub Major_Rex()
'
' Major_Rex Macro
' Macro enregistrée le 17/12/2009 par Thiernene
Range("A1:A11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Je voudrais copier d'une feuille à une autre uniquement les lignes
visibles