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

Résolu/Fermé
Cricri - 16 avril 2017 à 16:55
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 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


8 réponses

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

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

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

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

Cdlmnt
0