Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur 438 lors d'un copier-coller.

Erreur 438 lors d'un copier-coller.

4 réponses
Avatar
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.
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
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" a écrit dans 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

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Avatar
Patrick BASTARD
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" a écrit dans
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


Avatar
MichDenis
ç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" a écrit dans le message de news:

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" a écrit dans 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

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Avatar
Patrick BASTARD
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" a écrit dans le message de news:

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" a écrit dans
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