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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Daone,
Un essai en PJ avec cette macro que j'ai essayé de faire très claire :
VB:
Private Sub CommandButton1_Click()
Dim Valeur, Départ, Fin
Valeur = [C3]       ' Acquisition de la valeur à copier
Départ = 5 + [F7]   ' De ce départ
Fin = 5 + [G7]      ' A cette Fin
Range(Cells(Départ, "C"), Cells(Fin, "C")) = Valeur ' Coller valeur
End Sub
Qu'on peut évidemment simplifier avec :
VB:
Sub AutreFaçon()
Range(Cells(5 + [F7], "C"), Cells(5 + [G7], "C")) = [C3]
End Sub
 

Pièces jointes

  • E.D. 19-12-23.xlsm
    18.2 KB · Affichages: 2

DaONE

XLDnaute Junior
Merci beaucoup @sylvanu ça marche SUPER :D
Mais parce que les obstacles n'arrivent pas tous en même temps... j'ai une autre requête à vous faire 🙏
C'est pour la même demande, mais c'est la disposition du tableau qui est différente.

MERCI INFINIEMENT 🙏
 

Pièces jointes

  • E.D. 20-12-23.xlsm
    18.1 KB · Affichages: 1

DaONE

XLDnaute Junior
J'ai tenté tant bien que mal de transposer le code à mon tableau et je n'y suis pas arrivé 🙁.
Du coup je vous transmets le tableau de mon bureau. Dans l'onglet étiquette (2)
Mille merci 🙏
 

Pièces jointes

  • tableau teone macro.xlsm
    100.8 KB · Affichages: 1

DaONE

XLDnaute Junior
Bonjour,
je ne vois pas le rapport entre l'organisation des données de la PJ 1 et de la PJ 2 avec cette nouvelle PJ.
Et si vous donniez les règles ? On colle quoi, où ?
De 1 à 9, c'est quoi des index, des "nombres" de fois ?
Je suppose qu'on copie L1:L3, et ensuite que fait on ?
Oui désolé 😅
Les données en L1:L3 sont à coller en:
-A1:A3 C1:C3 E1:E3
-A4:A6 C4:C6 E4:E6
-etc jusqu'à A19:A21 C19:C21 E19:E21
j'ai précisé les plages de cellule et leur numéro en L11:M31.

Pour le "depart" et "fin" dans le code c'est en M6 et N6.

Il s'agit en fait d'impression d'étiquettes à coller sur des cartons. Les colonnes B et D correspondent à des espaces sur la feuille d'étiquettes. Parfois il n'y a que ou 10 étiquettes à imprimer d'une même référence et 11 autres d'une référence différentes. Pour faciliter le travail et aussi éviter les erreurs, j'ai pensé à cette méthode.

MERCI 👍🙏 MERCI
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un essai en PJ avec :
VB:
Private Sub CommandButton2_Click()
Dim Liste, L, C
Application.ScreenUpdating = False
[A:E].ClearContents: Liste = [L1:L3]
For L = 1 To 3 * [N6] Step 3
    For C = 1 To 5 Step 2
        Range(Cells(L, C), Cells(L + 2, C)) = Liste
    Next C
Next L
End Sub
 

Pièces jointes

  • tableau teone macro (1).xlsm
    104.5 KB · Affichages: 2

DaONE

XLDnaute Junior
Voici les numéros des "cases"
1703180993693.png

Si dans M6:N6 je rentre 19 et 21, les infos se colleront dans:
-A19:A21
-C19:C21
-et E19:E21
 

Discussions similaires

Statistiques des forums

Discussions
313 211
Messages
2 096 248
Membres
106 543
dernier inscrit
piegmp