erreur 424

Le
andre
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #5125901
Bonjour
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
MaPlage.Copy Destination:=Worksheets("Recettes Licences").Range("A11")

Cordialement
Pascal

"andre"
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
Le #5125881
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





andre
Le #5125861
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
Le #5125851
Set MaPlage = MaPlage.Columns(3).SpecialCells(xlCellTypeVisible)
MaPlage.Copy Destination:=Worksheets("Feuil2").Range("A11")

Cordialement
Pascal

"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





Daniel
Le #5125831
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
Le #5125821
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






andre
Le #5125771
andre à dit
ca bloque ici
Sheets("Recettes Licences").Range("A11").PasteSpecial
_Paste:=xlPasteValues
erreur 9 l'indice etc ...

--
andre
Daniel.C
Le #5125711
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"
andre à dit
ca bloque ici
Sheets("Recettes Licences").Range("A11").PasteSpecial
_Paste:=xlPasteValues
erreur 9 l'indice etc ...

--
andre




FFO
Le #5125701
Rebonjours à toi

Mets la ligne
Sheets("Recettes Licences").Range("A11").PasteSpecial
et la ligne
_Paste:=xlPasteValues

bout à bout ainsi

Sheets("Recettes Licences").Range("A11").PasteSpecial 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
Le #5125671
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"
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
Publicité
Poster une réponse
Anonyme