Erreur 438 lors d'un copier-coller.

Le
Patrick BASTARD
Bonsoir à tous.

Des formules en L3:N3 à recopier en colonnes L à N jusqu'au niveau de la
dernière ligne non vide en colonne A (variable) .
Sub PartPro()
[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select 'ou Range("L4:L" &
[a65536].End(3).Row).Select
Selection.Paste
End Sub

Manuellement, pas de problème. Pourquoi, par VBA une erreur 438 est-elle
générée?
Et comment corriger ?

D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #5337931
Essaie ceci :

Si tu veux recopier les formules
tu peux remplacer xlPasteFormulas par plusieurs constantes

[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select
Selection.PasteSpecial xlPasteFormulas




"Patrick BASTARD" eiGOZ$
Bonsoir à tous.

Des formules en L3:N3 à recopier en colonnes L à N jusqu'au niveau de la
dernière ligne non vide en colonne A (variable) .
Sub PartPro()
[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select 'ou Range("L4:L" &
[a65536].End(3).Row).Select
Selection.Paste
End Sub

Manuellement, pas de problème. Pourquoi, par VBA une erreur 438 est-elle
générée?
Et comment corriger ?

D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Patrick BASTARD
Le #5337891
Bonsoir, *Denis*

Si tu veux recopier les formules
tu peux remplacer xlPasteFormulas par plusieurs constantes

[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select
Selection.PasteSpecial xlPasteFormulas


Et bien évidemment, cela fonctionne parfaitement :-)

Une fois de plus, merci.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



"Patrick BASTARD" le message de news: eiGOZ$
Bonsoir à tous.

Des formules en L3:N3 à recopier en colonnes L à N jusqu'au niveau de
la
dernière ligne non vide en colonne A (variable) .
Sub PartPro()
[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select 'ou Range("L4:L" &
[a65536].End(3).Row).Select
Selection.Paste
End Sub

Manuellement, pas de problème. Pourquoi, par VBA une erreur 438
est-elle
générée?
Et comment corriger ?

D'avance, merci


MichDenis
Le #5337871
ça aussi fonctionne et tu évites le select

[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False


Il y a aussi ceci, ça dépend ce que tu tentes de faire et de la disposition des données

Range("L3:N" & [a65536].End(3).Row).FillDown





"MichDenis"
Essaie ceci :

Si tu veux recopier les formules
tu peux remplacer xlPasteFormulas par plusieurs constantes

[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select
Selection.PasteSpecial xlPasteFormulas




"Patrick BASTARD" eiGOZ$
Bonsoir à tous.

Des formules en L3:N3 à recopier en colonnes L à N jusqu'au niveau de la
dernière ligne non vide en colonne A (variable) .
Sub PartPro()
[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select 'ou Range("L4:L" &
[a65536].End(3).Row).Select
Selection.Paste
End Sub

Manuellement, pas de problème. Pourquoi, par VBA une erreur 438 est-elle
générée?
Et comment corriger ?

D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Patrick BASTARD
Le #5337531
Bonsoir, *Denis*

ça aussi fonctionne et tu évites le select

[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False

Il y a aussi ceci, ça dépend ce que tu tentes de faire et de la
disposition des données

Range("L3:N" & [a65536].End(3).Row).FillDown


Que du bonheur !!! J'archive.
Quant à retrouver quand j'en aurai besoin, c'est une autre paire de
manches...

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.





"MichDenis"
Essaie ceci :

Si tu veux recopier les formules
tu peux remplacer xlPasteFormulas par plusieurs constantes

[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select
Selection.PasteSpecial xlPasteFormulas




"Patrick BASTARD" le message de news: eiGOZ$
Bonsoir à tous.

Des formules en L3:N3 à recopier en colonnes L à N jusqu'au niveau de
la
dernière ligne non vide en colonne A (variable) .
Sub PartPro()
[L3:N3].Copy
Range("L4:N" & [a65536].End(3).Row).Select 'ou Range("L4:L" &
[a65536].End(3).Row).Select
Selection.Paste
End Sub

Manuellement, pas de problème. Pourquoi, par VBA une erreur 438
est-elle
générée?
Et comment corriger ?

D'avance, merci


Publicité
Poster une réponse
Anonyme