Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les
noms de la colonne C4 à C? et les copier dans la feuille
correpondante
Merci pour votre savoir de correction
Bonjour Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) MaPlage.Copy Destination:=Worksheets("Recettes Licences").Range("A11")
Cordialement Pascal
"andre" a écrit dans le message de news:
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Bonjour
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
MaPlage.Copy Destination:=Worksheets("Recettes Licences").Range("A11")
Cordialement
Pascal
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4ae67d817116deb7.51150@cegetel.net...
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les noms
de la colonne C4 à C? et les copier dans la feuille correpondante
Merci pour votre savoir de correction
Bonjour Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) MaPlage.Copy Destination:=Worksheets("Recettes Licences").Range("A11")
Cordialement Pascal
"andre" a écrit dans le message de news:
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
FFO
Salut andre
Ta ligne :
ActivSheet.Paste
est mal écrite
essaie plutôt :
ActiveSheet.Paste
Celà devrait mieux aller
Dis moi !!!!
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Salut andre
Ta ligne :
ActivSheet.Paste
est mal écrite
essaie plutôt :
ActiveSheet.Paste
Celà devrait mieux aller
Dis moi !!!!
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les
noms de la colonne C4 à C? et les copier dans la feuille
correpondante
Merci pour votre savoir de correction
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
andre
andre à dit voila les resultats avec la reponse a papou il n'y a plus d'erreur mais ca me copie tout le tableau or je ne souhaite copier que la colonne C et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
andre à dit
voila les resultats
avec la reponse a papou
il n'y a plus d'erreur mais ca me copie tout le tableau
or je ne souhaite copier que la colonne C
et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les noms
de la colonne C4 à C? et les copier dans la feuille correpondante
Merci pour votre savoir de correction
andre à dit voila les resultats avec la reponse a papou il n'y a plus d'erreur mais ca me copie tout le tableau or je ne souhaite copier que la colonne C et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
papou
Set MaPlage = MaPlage.Columns(3).SpecialCells(xlCellTypeVisible) MaPlage.Copy Destination:=Worksheets("Feuil2").Range("A11")
Cordialement Pascal
"andre" a écrit dans le message de news:
andre à dit voila les resultats avec la reponse a papou il n'y a plus d'erreur mais ca me copie tout le tableau or je ne souhaite copier que la colonne C et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Set MaPlage = MaPlage.Columns(3).SpecialCells(xlCellTypeVisible)
MaPlage.Copy Destination:=Worksheets("Feuil2").Range("A11")
Cordialement
Pascal
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4b327d81b294b110.51150@cegetel.net...
andre à dit
voila les resultats
avec la reponse a papou
il n'y a plus d'erreur mais ca me copie tout le tableau
or je ne souhaite copier que la colonne C
et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les
noms de la colonne C4 à C? et les copier dans la feuille correpondante
Merci pour votre savoir de correction
Set MaPlage = MaPlage.Columns(3).SpecialCells(xlCellTypeVisible) MaPlage.Copy Destination:=Worksheets("Feuil2").Range("A11")
Cordialement Pascal
"andre" a écrit dans le message de news:
andre à dit voila les resultats avec la reponse a papou il n'y a plus d'erreur mais ca me copie tout le tableau or je ne souhaite copier que la colonne C et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Daniel
Bonjour. J'ai peut-être pas compris, mais ce que tu a sélectionné, c'est Range("C4:I4"). Tu ne peux pas le copier dans la plage Range("A11:A40") de la feuille cible. Cordialement. Daniel
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Bonjour.
J'ai peut-être pas compris, mais ce que tu a sélectionné, c'est
Range("C4:I4"). Tu ne peux pas le copier dans la plage Range("A11:A40") de la
feuille cible.
Cordialement.
Daniel
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les
noms de la colonne C4 à C? et les copier dans la feuille
correpondante
Merci pour votre savoir de correction
Bonjour. J'ai peut-être pas compris, mais ce que tu a sélectionné, c'est Range("C4:I4"). Tu ne peux pas le copier dans la plage Range("A11:A40") de la feuille cible. Cordialement. Daniel
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
FFO
Salut andre
Ma réponse ne portait que sur ton anomalie :
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
en rapport avec la ligne :
ActivSheet.Paste >>> la ligne d'erreur est ici
Pour ta demande globale je te propose ton code modifié ainsi :
Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Range("C4", "C" & ActiveCell.SpecialCells(xlLastCell).Row).Copy Sheets("Recettes Licences").Range("A11").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Selection.AutoFilter
Celà devrait te satisfaire
Dis moi !!!
andre à dit voila les resultats avec la reponse a papou il n'y a plus d'erreur mais ca me copie tout le tableau or je ne souhaite copier que la colonne C et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Salut andre
Ma réponse ne portait que sur ton anomalie :
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
en rapport avec la ligne :
ActivSheet.Paste >>> la ligne d'erreur est ici
Pour ta demande globale je te propose ton code modifié ainsi :
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Range("C4", "C" & ActiveCell.SpecialCells(xlLastCell).Row).Copy
Sheets("Recettes Licences").Range("A11").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Selection.AutoFilter
Celà devrait te satisfaire
Dis moi !!!
andre à dit
voila les resultats
avec la reponse a papou
il n'y a plus d'erreur mais ca me copie tout le tableau
or je ne souhaite copier que la colonne C
et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les noms
de la colonne C4 à C? et les copier dans la feuille correpondante
Merci pour votre savoir de correction
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
en rapport avec la ligne :
ActivSheet.Paste >>> la ligne d'erreur est ici
Pour ta demande globale je te propose ton code modifié ainsi :
Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Range("C4", "C" & ActiveCell.SpecialCells(xlLastCell).Row).Copy Sheets("Recettes Licences").Range("A11").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Selection.AutoFilter
Celà devrait te satisfaire
Dis moi !!!
andre à dit voila les resultats avec la reponse a papou il n'y a plus d'erreur mais ca me copie tout le tableau or je ne souhaite copier que la colonne C et avec FFo il y a une erreur 9 l'indice n'appartient pas ...
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
andre
andre à dit ca bloque ici Sheets("Recettes Licences").Range("A11").PasteSpecial _Paste:=xlPasteValues erreur 9 l'indice etc ...
-- andre
andre à dit
ca bloque ici
Sheets("Recettes Licences").Range("A11").PasteSpecial
_Paste:=xlPasteValues
erreur 9 l'indice etc ...
andre à dit ca bloque ici Sheets("Recettes Licences").Range("A11").PasteSpecial _Paste:=xlPasteValues erreur 9 l'indice etc ...
-- andre
Daniel.C
Je n'ai pas testé ton code, exécute pas à pas et vérifie qu'il y a bien une zone copiée avant le pastespecial. Daniel "andre" a écrit dans le message de news:
andre à dit ca bloque ici Sheets("Recettes Licences").Range("A11").PasteSpecial _Paste:=xlPasteValues erreur 9 l'indice etc ...
-- andre
Je n'ai pas testé ton code, exécute pas à pas et vérifie qu'il y a bien une
zone copiée avant le pastespecial.
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4b5e7d814d18a5e4.51150@cegetel.net...
andre à dit
ca bloque ici
Sheets("Recettes Licences").Range("A11").PasteSpecial
_Paste:=xlPasteValues
erreur 9 l'indice etc ...
Je n'ai pas testé ton code, exécute pas à pas et vérifie qu'il y a bien une zone copiée avant le pastespecial. Daniel "andre" a écrit dans le message de news:
andre à dit ca bloque ici Sheets("Recettes Licences").Range("A11").PasteSpecial _Paste:=xlPasteValues erreur 9 l'indice etc ...
-- andre
FFO
Rebonjours à toi
Mets la ligne Sheets("Recettes Licences").Range("A11").PasteSpecial et la ligne _Paste:=xlPasteValues
L'onglet : "Recettes Licences" est il bien ainsi nommé à la virgule prés
Vérifies celà doit fonctionner
Dis moi !!!
doive
andre à dit ca bloque ici Sheets("Recettes Licences").Range("A11").PasteSpecial _Paste:=xlPasteValues erreur 9 l'indice etc ...
-- andre
MichDenis
Sub Select_Noms_Cotisant()
On Error Resume Next Application.ScreenUpdating = False With Worksheets("Cotisations") With .Range("A4:I50") .AutoFilter field:=1, Criteria1:="<>" .Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy End With With Worksheets("Recettes Licences") .Activate .Range("A1").PasteSpecial xlPasteValues .Range("A2").Select End With .Range("A4:I50").AutoFilter End With End Sub
"andre" a écrit dans le message de news:
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction
-- andre
Sub Select_Noms_Cotisant()
On Error Resume Next
Application.ScreenUpdating = False
With Worksheets("Cotisations")
With .Range("A4:I50")
.AutoFilter field:=1, Criteria1:="<>"
.Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy
End With
With Worksheets("Recettes Licences")
.Activate
.Range("A1").PasteSpecial xlPasteValues
.Range("A2").Select
End With
.Range("A4:I50").AutoFilter
End With
End Sub
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4ae67d817116deb7.51150@cegetel.net...
Bonjour,
j'ai cette macro qui ne passe pas (erreur 424 objet requis)
Sub Select_Noms_Cotisant()
Dim MaPlage As Range
Sheets("Cotisations").Select
Range("C4:I4").Select
Set MaPlage = Range("A4:I50")
MaPlage.AutoFilter Field:=1, Criteria1:="<>"
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Selection.Copy
Sheets("Recettes Licences").Select
Range("A11:A40").Select
ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur)
j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues "
ca bug
Sheets("Cotisations").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
en fait apres la selection du champ 1 je veux uiquement recuperer les
noms de la colonne C4 à C? et les copier dans la feuille
correpondante
Merci pour votre savoir de correction
On Error Resume Next Application.ScreenUpdating = False With Worksheets("Cotisations") With .Range("A4:I50") .AutoFilter field:=1, Criteria1:="<>" .Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy End With With Worksheets("Recettes Licences") .Activate .Range("A1").PasteSpecial xlPasteValues .Range("A2").Select End With .Range("A4:I50").AutoFilter End With End Sub
"andre" a écrit dans le message de news:
Bonjour, j'ai cette macro qui ne passe pas (erreur 424 objet requis) Sub Select_Noms_Cotisant() Dim MaPlage As Range Sheets("Cotisations").Select Range("C4:I4").Select Set MaPlage = Range("A4:I50") MaPlage.AutoFilter Field:=1, Criteria1:="<>" Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) Selection.Copy Sheets("Recettes Licences").Select Range("A11:A40").Select ActivSheet.Paste >>> la ligne d'erreur est ici
(la je voudrais ne copier que la valeur) j'ai essayé avec : " PasteSpecial Paste:=xlPasteValues " ca bug
Sheets("Cotisations").Select Application.CutCopyMode = False Selection.AutoFilter End Sub en fait apres la selection du champ 1 je veux uiquement recuperer les noms de la colonne C4 à C? et les copier dans la feuille correpondante Merci pour votre savoir de correction