> Tous les forums > Forum Bureautique
 vba : probleme copier collerSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vieuxmonsieur
  Posté le 24/05/2011 @ 14:45 
Aller en bas de la page 
Astucien

bonjour à tous,
a l'aide de cette macro (copie), je copie et colle une plage nommee "NewsEnrg" a la suite des enregistrements precedents

Sub Macro1()
Dim DerLigne As Long
With Worksheets("Enrg")
Application.Goto Reference:="NewsEnrg"
Selection.Copy
DerLigne = Sheets("Enrg").Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
End With
End Sub

le premier probleme que je rencontre c'est que les validations ne se colle pas
ensuite je voudrais que le curseur se place dans la cellule de la colonne E de la ligne copie

en vous remerciant de votre aide



Modifié par vieuxmonsieur le 24/05/2011 20:02
Publicité
ferrand
 Posté le 25/05/2011 à 01:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Sub Macro1()
Dim DerLigne As Long
With Worksheets("Enrg")
Application.Goto Reference:="NewsEnrg"
Selection.Copy
DerLigne = .Range("A65536").End(xlUp).Row + 1

.Paste Cells(DerLigne, 1)
.Cells(DerLigne, 5).Select
End With
End Sub

Cela devrait mieux marcher.

vieuxmonsieur
 Posté le 25/05/2011 à 08:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour cher ami toujours d'une terrible efficacite

je t'en remercie et te souhaite le plein de bonheur

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
99,99 €SSD Crucial P5 1 To (3D NAND, NVMe, PCIe, M.2, 3400 Mo/s) à 99,99 €
Valable jusqu'au 25 Janvier

Cdiscount fait une promotion sur le SSD Crucial P5 1 To (3D NAND, NVMe, PCIe, M.2) qui passe à 99,99 €. On le trouve ailleurs à partir de 130 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 3 400/ 3 000 Mo/s. Il est garanti 5 ans.


> Voir l'offre
344,99 €Smartphone 6,5 pouces Samsung Galaxy A52S (FullHD+, 8 coeurs, 6Go, 128Go, 5G) à 344,99 €
Valable jusqu'au 25 Janvier

Le vendeur sérieux Best-Digital sur Rakuten fait une belle promotion sur le smartphone 6,5 pouces Samsung Galaxy A52S 5G qui passe à 344,99 € livré gratuitement au lieu de 399 €. Avec un design homogène aux courbes confortables et élégantes, le Samsung Galaxy A52s 5G ne laisse personne indifférent. Il intègre un bel écran Super AMOLED 120 Hz de 6.5" à résolution Full HD+ de 1080 x 2400 pixels qui offre une incroyable clarté lors de toutes vos utilisations.

En outre, il peut s'appuyer sur son processeur Qualcomm Snapdragon 778G Octo-Core cadencé à 2.4 GHz, ses 6 Go de RAM et sa capacité de stockage de 128 Go. Particulièrement fin, il s'arme de toutes les dernières innovations pour vous simplifier la vie et vous permettre de laisser libre cours à toutes vos envies. De plus, grâce à son quadruple capteur photo de 64+12+5+5 MP, offrez-vous la liberté de capturer encore plus largement le monde qui vous entoure.

Le tout tourne sous Android 11 en français. Téléphone garanti 2 ans.

17,25 € vous seront également reversés en points Rakuten utilisables pour vos prochains achats.


> Voir l'offre
249 €Ecran 31.5 pouces incurvé Acer ED3 (QHD, VA, 144 Hz) à 249 €
Valable jusqu'au 25 Janvier

Acer fait une promotion sur l'écran 31.5 pouces incurvé Acer ED3 ED323QURA à 249,90 € via une remise automatique de 100 € dans le panier au lieu de 349 €. L'écran offre un rayon de courbure de 1800R et dispose d'une résolution QHD de 2560x1440 pixels à 144 Hz. Temps de réponse de 4 ms. L'écran est Adaptive Sync et compatible Freesync et GSync. Connexion via HDMI, DVI ou DP.


> Voir l'offre

Sujets relatifs
Problème copier/coller une page Web dans word.
Works 9 Base de données problème de copier coller
Problème de copier/coller sous Excel 2003
problème copier coller word 2000
probleme mise en forme après copier coller word97
Problème copier-coller entre deux classeur
problème copier/coller works
Problème pour copier / coller 1 page du WEB
word 2000 : probleme "copier/coller"
Problème de copier /coller
Plus de sujets relatifs à vba : probleme copier coller
 > Tous les forums > Forum Bureautique