Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier / coller de la cellule active

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

alain.dutoit

XLDnaute Nouveau
Salut le forum,

Après une petite pause je reviens à la charge avec mon fichier de tir.

Je souhaiterais faire une maccro qui me copie une cellule active (le numéro de mon tireur) et qui me fait un collage uniquement de la valeur dans une autre feuille afin de pouvoir imprimer la feuille de stand. Je souhaiterais modifier ma maccros de façon à ce qu'il me copie la cellule active. Ne connaissant pas bcp le langage VBA je me suis dit que cela devait ressembler à qqch du style "ActiveRange.Select" mais quand je lance ma maccro il y a une erreur. Est-ce que qqun pourrais m'aider?

Voici le code de ma maccro. Merci beaucoup d'avance.

ActiveRange.Select
Selection.Copy
Sheets("Feuille de stand").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Individuel").Select

Alain Dutoit
 
Trier par date Trier par votes
Re : copier / coller de la cellule active

Bonjour à tous,
Salut Alain 🙂,

Il me semble qu'il manque le Range de Destination ??

Tu devrais joindre ton fichier : il serait plus simple de t'aider

Au plaisir de te lire

A+
 
Vote positif 0 Vote négatif
Re : copier / coller de la cellule active

bonjour,

Ceci devrait faire l'affaire en remplaçant ligne colonne par les valeurs réelles, 2 et 5 par exemple.

Code: 
ActiveCell.Copy Destination:=Sheets("Feuille de stand").Cells(ligne, colonne)
Sheets("Feuille de stand").PrintOut Copies:=1, Collate:=True
 
Vote positif 0 Vote négatif
Re : copier / coller de la cellule active

Salut à tous,

une correction (pour plus tard peut-être) en plus de la remarque de JGGL :
Code: 
[B][COLOR=Red]ActiveCell[/COLOR][/B].Select
Selection.Copy
Sheets("Feuille de stand").Select
[B]Range("A1").Select 'cellule de destination[/B]
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Individuel").Select
Mais le code de gbinforme est un très bon condensé !
 
Vote positif 0 Vote négatif
Re : copier / coller de la cellule active

Salut à tous,

J'ai pu tester en vitesse les 2 solutions et celle de Excel_lent à l'air de convenir parfaitement.

Je vous tiendrais au courant cet après-midi de ce que ça donne au final. J'aurais un peu plus de temps pour tester.

Merci bcp à tous d'avoir essayer et de votre aide.

Alain
 
Vote positif 0 Vote négatif
Re : copier / coller de la cellule active

Bonjour le fil, bonjour le forum,

Je sais, je viens encore ouvrir ma grande g... alors que le problème est résolu... Ce qui me gêne c'est que personne ne précise, même si Gbinforme le dit implicitement, l'inutilité des Select qui ne font que ralentir le code. Il faut à tous prix (merci @+Thierry), eviter ces Select quand il sont unutiles!!!!
Code: 
ActiveCell.Select
Selection.Copy
Non pitié !
Code: 
ActiveCell.Copy
tout simplement. Et idem pour la suite...
 
Vote positif 0 Vote négatif
Re : copier / coller de la cellule active

Bonjour Robert, bonjour le forum,

Robert à dit:
Ce qui me gêne c'est que personne ne précise, même si Gbinforme le dit implicitement, l'inutilité des Select qui ne font que ralentir le code. Il faut à tous prix eviter ces Select quand il sont unutiles!!!!
Cliquez pour agrandir...

Tout à fait d'accord avec toi mais comme ceux qui utilisent l'enregistreur constatent cela, ils imitent.

De toute façon moins on écrit d'instructions et mieux l'on se porte :

- on risque moins d'erreurs car moins de lignes.
- le code est plus lisible et plus facilement modifiable.
- moins d'instructions accélère le fonctionnement.
- sur des gros fichiers certains après demandent de l'aide pour accélérer...etc

On peut continuer les avantages et il n'y a aucun inconvénient : merci de suivre les conseils de Robert !

Puis-je rajouter un sujet annexe qui est bien présent aujourd'hui encore dans le forum ?

Pourquoi certains conseillent de passer par des zones intermédiaires ?

Certes elles sont utilisables mais mettre le contenu d'une donnée Excel ou autre dans une zone intermédiaire inutile ne sert qu'à créer des soucis du fait d'erreurs de conversion ou autres : donc si j'utilise la valeur de "A1", pourquoi la transférer dans x ou y pour tester la zone ?

C'est le même problème que le précédent, cela rajoute des instructions et ralenti le code.

Merci à tous ceux qui sont arrivés ici de ne pas oublier ! Merci à vous.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
235
danielco
D
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
514
AtTheOne
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
112
vazvaz
V
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
300
AtTheOne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
583
Phil69970
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
161
Yogean
Y
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
203
Steph733
S
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
141
mapomme
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
567
ph.vanne
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
278
sylvanu
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
791
marie3107
M
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
697
Nel'
N
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
285
chris6999
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
265
Abi23
A
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
343
Phil69970
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
830
loloboc
L
J
  • Question Question
Microsoft 365 VBA Sum.if - Application de la formule dans la cellule et non pas sa valeur
Réponses
6
Affichages
337
JeanPi37
J
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
422
zendb
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…