> 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
299,99 €PC portable 14 pouces Asus (Pentium, 4 Go RAM, 128 Go eMMC, Windows 10, Office 365) + sac à 299,99 €
Valable jusqu'au 16 Octobre

Cdiscount fait une promotion sur le PC portable 14 pouces Asus E406MA-BV1040TS qui passe à 299,99 € au lieu de 400 €. Ce portable dispose d'un écran 14 pouces HD (1368x 768 pixels), d'un processeur Intel Pentium Silver N5030, de 4 Go de RAM et d'un espace de stockage eMMC de 128 Go extensible par USB, d'une webcam, du WiFi et du bluetooth, de l'USB 3.0. Il pèse 1,3 kg et offre une autonomie de 10h environ.

Il possède un numpad (pavé numérique intégré au touchpad). Notez qu'un abonnement d'1 an à Office 365 (Word, Excel, OneNote, PowerPoint, Outlook, Access et Publisher) vous est également offert ainsi qu'une sacoche et une souris.

Une bonne affaire pour un petit portable à emmener partout avec vous.


> Voir l'offre
150,69 €SSD Crucial BX500 2 To à 150,69 € livré
Valable jusqu'au 16 Octobre

Amazon Allemagne propose actuellement le nouveau SSD Crucial BX500 2 To à 146,11 € (avec la TVA ajustée). Comptez 4,58 € pour la livraison en France soit un total de 150,69 € livré alors qu'on le trouve ailleurs à plus de 190 €. Ce SSD offre des débits de 540 Mo/s en lecture et 500 Mo/s en écriture. Le SSD est accompagné du logiciel Acronis true image qui vous permettra de transférer tout le contenu de votre ancien disque dur sur le SSD. Il est garanti 3 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre
179,99 €Fauteuil gaming Millenium G1-MGC à 179,99 €
Valable jusqu'au 17 Octobre

Fnac fait une promotion sur le fauteuil gaming Millenium G1-MGC qui passe à 179,99 € au lieu de 299 €. Ce fauteuil est doté d'un revêtement en similicuir particulièrement épais (2 mm) qui offre une assise confortable et une grande durabilité. Trouvez la position la plus adaptée pendant vos parties et appréciez le dossier inclinable du fauteuil Millenium Chair. Basculez jusqu'à 170° et profitez d'une pause bien méritée pour reprendre des forces. Vous pourrez même verrouiller l'inclinaison pour retrouver la position souhaitée à tout moment ! Quant aux accoudoirs 4D, vous allez pouvoir trouver la configuration qui vous conviendra le mieux et qui sera la plus confortable pour vous.


> 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