Copier une plage vers une cellule active d'une feuille active

Résolu
Cricri -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je galère un peu. J'aimerai pouvoir copier le contenu et le format d"une place de cellules d'une feuille Lexique dans une cellule active d'une feuille active. Quelqu'un peut il m'aider ?
Merci d'avance


A voir également:

8 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Peux tu en dire un peu plus, ou mieux, envoyer un bout de ton fichier anonymisé, mais avec la même structure que l'original,sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller"

Cdlmnt
0
Cricri
 
http://www.cjoint.com/c/GDqp4aDrfed
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Si j'ai bien compris ta demande (tes explications ???)

Public Sub Copier()
Sheets("Lexique").Range("AA1:AZ207").Copy ActiveCell
End Sub

Cdlmnt
0
Cricri
 
En fait, je me suis peut être mal exprimé. Je voudrais copier la zone AA1: AZ207 du lexique dans dans la feuille qui sera ouverte dans la cellule que j'aurai séléctionné
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Cricri
 
Re
Ca fonctionne mais j'aimerai également pouvoir copier également la largeur des colonnes, est ce possible
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Public Sub Copier()
Dim plage As Range
Set plage = Sheets("Lexique").Range("AA1:AZ207")
plage.Copy
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub

Cdlmnt
0
Cricri
 
Merci beaucoup, j'avais la première formule mais avec la deuxième c'est super.
Merci beaucoup
Cordialement
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
De rien

Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Cdlmnt
0