Menu

Copier une plage vers une cellule active d'une feuille active [Résolu/Fermé]

Cricri - 16 avril 2017 à 16:55 - Dernière réponse : ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention
- 16 avril 2017 à 22:08
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


Afficher la suite 

8 réponses

ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - 16 avril 2017 à 17:09
0
Utile
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 http://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
Utile
http://www.cjoint.com/c/GDqp4aDrfed
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - Modifié par ccm81 le 16/04/2017 à 19:02
0
Utile
Si j'ai bien compris ta demande (tes explications ???)

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

Cdlmnt
0
Utile
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
Utile
Re
Ca fonctionne mais j'aimerai également pouvoir copier également la largeur des colonnes, est ce possible
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - 16 avril 2017 à 20:01
0
Utile
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
Utile
Merci beaucoup, j'avais la première formule mais avec la deuxième c'est super.
Merci beaucoup
Cordialement
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - 16 avril 2017 à 22:08
0
Utile
De rien

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

Cdlmnt