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" 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.
Essaie ceci :
Si tu veux recopier les formules
tu peux remplacer xlPasteFormulas par plusieurs constantes
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le message de news:
eiGOZ$IUIHA.4104@TK2MSFTNGP05.phx.gbl...
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" 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.
Patrick BASTARD
Bonsoir, *Denis*
Si tu veux recopier les formules tu peux remplacer xlPasteFormulas par plusieurs constantes
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
Bonsoir, *Denis*
Si tu veux recopier les formules
tu peux remplacer xlPasteFormulas par plusieurs constantes
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" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: eiGOZ$IUIHA.4104@TK2MSFTNGP05.phx.gbl...
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 ?
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 ?
"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.
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le message de news:
eiGOZ$IUIHA.4104@TK2MSFTNGP05.phx.gbl...
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" 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.
"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 ?
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: eiGOZ$IUIHA.4104@TK2MSFTNGP05.phx.gbl...
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 ?
"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 ?