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

DaONE

XLDnaute Junior
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é 😁
 

Pièces jointes

  • E.D. 19-12-23.xlsm
    17.8 KB · Affichages: 4

DaONE

XLDnaute Junior
bonjour, voir mon post, ça pourrait aider pour d'autres besoins de même teneur
Merci bien :D
Je regarde ça
 

DaONE

XLDnaute Junior
Merci bien :D
Je regarde ça
@oguruma
Je ne comprends pas clairement les macros désolé :confused:
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.
 

Pièces jointes

  • tableau teone macro (25-12).xlsm
    155.2 KB · Affichages: 0

oguruma

XLDnaute Occasionnel
@oguruma
Je ne comprends pas clairement les macros désolé :confused:
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 :
  1. Si tu donnes un poisson à un homme, il se nourrit une fois. Si tu lui apprends à pêcher, il se nourrira toute sa vie.
Confucius :

 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • tableau teone macro (V6).xlsm
    102.9 KB · Affichages: 1

DaONE

XLDnaute Junior
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
🙏
 

Discussions similaires

Statistiques des forums

Discussions
313 209
Messages
2 096 241
Membres
106 541
dernier inscrit
edf