XL 2016 VBA - Copier/coller valeur d'une cellule, sur une plage de cellule données.

DaONE · 20 Décembre 2023

Bonjour à tous.
J'ai eu du mal à mettre un titre qui expliquerait concrètement mon problème.
J'aimerais s'il vous plaît , si c'est faisable, en précisant, (dans mon fichier ci joint) en F7 et G7, de 1 à 4, de copier et coller la valeur de la cellule C3 dans le tableau de 1 à 4 et donc de C6 à C9.
Et bien sûr je peux choisir par exemple de 5 à 8 etc,...
J'ai déjà mis pour le bouton activex un petit code "range = range.value"
Merci Merci à tous pour votre aide si précieuse

Ps:J'espère que je me suis bien expliqué

DaONE · 26 Décembre 2023

oguruma à dit:
bonjour, voir mon post, ça pourrait aider pour d'autres besoins de même teneur

RTV :: RANGE TOOLS VALUES

En ce dimanche pointant une météo de fin d'année.... que faire.... ? Bientôt c'est Noël. :D - Allez un peu de VBA. Dans différents Post un sujet est revenu sur la table : La recopie d'une plage en valeur afin d'éliminer la formule voir même en automatique à l'issue de la construction d'une...

excel-downloads.com

Merci bien
Je regarde ça

DaONE · 26 Décembre 2023

DaONE à dit:
Merci bien
Je regarde ça

@oguruma
Je ne comprends pas clairement les macros désolé
Laquelle puis-je utiliser dans mon cas?

Dans onglet étiquettes (2).
J'ai pour le moment, pour faciliter mon travail, fait des boutons pour que les valeurs en L1:L3 se colle en:
-bouton 1 = A1:A3
-bouton 2 = C1:C3
-bouton 3 = E1:E3
-etc etc

Mais je voudrais choisir en M6:N6 le nombre d'étiquettes à imprimer. Si je mets de 1 à 3, et que je clique sur le bouton vert "Zone sélectionnée", les infos en L1:L3 se colle en
A1:A3, C1:C3 et E1:E3.

oguruma · 26 Décembre 2023

DaONE à dit:
@oguruma
Je ne comprends pas clairement les macros désolé
Laquelle puis-je utiliser dans mon cas?

Dans onglet étiquettes (2).
J'ai pour le moment, pour faciliter mon travail, fait des boutons pour que les valeurs en L1:L3 se colle en:
-bouton 1 = A1:A3
-bouton 2 = C1:C3
-bouton 3 = E1:E3
-etc etc

Mais je voudrais choisir en M6:N6 le nombre d'étiquettes à imprimer. Si je mets de 1 à 3, et que je clique sur le bouton vert "Zone sélectionnée", les infos en L1:L3 se colle en
A1:A3, C1:C3 et E1:E3.

Bien compris le besoin
mon propos n'allait pas jusqu'à la solution à 100 % mais tu peux extraire certainement des lignes de code fournies ou t'en inspirer. C'est là où je voulais en venir.

Lao-Tseu :

Si tu donnes un poisson à un homme, il se nourrit une fois. Si tu lui apprends à pêcher, il se nourrira toute sa vie.

Cliquez pour agrandir...

Confucius :

Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.

Cliquez pour agrandir...

sylvanu · 27 Décembre 2023

Bonjour DaOne, Oguruma,
@oguruma,
Je ne vois pas en quoi celle ligne de collage de données poserait problème :

VB:

Range("A1:E" & [N6]) = [A1:E1].Value

@DaONE,
Testez cette PJ.
Par appui sur Test, elle boucle à l'infini sur des collages successifs, à raison d'un collage par seconde.
J'ai fait des test sur plus de 100 cycles sans rencontrer de problème.
( on sort de cette boucle infini par double appui sur Echap, et appui sur Fin dans la fenêtre d'arrêt )
Il est possible que votre souci vienne d'autre part que de cette macro.
Donnez nous le résultat sur votre PC.

DaONE · 7 Janvier 2024

sylvanu à dit:
Bonjour DaOne, Oguruma,
@oguruma,
Je ne vois pas en quoi celle ligne de collage de données poserait problème :

VB:

Range("A1:E" & [N6]) = [A1:E1].Value

@DaONE,
Testez cette PJ.
Par appui sur Test, elle boucle à l'infini sur des collages successifs, à raison d'un collage par seconde.
J'ai fait des test sur plus de 100 cycles sans rencontrer de problème.
( on sort de cette boucle infini par double appui sur Echap, et appui sur Fin dans la fenêtre d'arrêt )
Il est possible que votre souci vienne d'autre part que de cette macro.
Donnez nous le résultat sur votre PC.

Bonjour et bonne année à tous
@sylvanu ton fichier fonctionne super je l'utilise depuis 2 semaines maintenant. MERCI

XL 2016 VBA - Copier/coller valeur d'une cellule, sur une plage de cellule données.

DaONE

XLDnaute Junior

Pièces jointes

DaONE

XLDnaute Junior

RTV :: RANGE TOOLS VALUES

DaONE

XLDnaute Junior

Pièces jointes

oguruma

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

DaONE

XLDnaute Junior

Discussions similaires