gratifiant > microsoft.* > microsoft.excel

Patrick BASTARD (06/01/2008, 20h13)
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 (06/01/2008, 20h29)
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" <pasdespambastardp> a écrit dans le message de news:
eiGOZ$IUIHA.4104...
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
Patrick BASTARD (06/01/2008, 20h38)
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.
MichDenis (06/01/2008, 20h41)
ç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" <michdenis> a écrit dans le message de news:
uEzqVIJUIHA.5016...
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" <pasdespambastardp> a écrit dans le message de news:
eiGOZ$IUIHA.4104...
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
Patrick BASTARD (07/01/2008, 00h32)
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...
Discussions similaires