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

[DaONE]

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é

 

[sylvanu]

Bonjour Daone,
Un essai en PJ avec cette macro que j'ai essayé de faire très claire :

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 :

Sub AutreFaçon()
Range(Cells(5 + [F7], "C"), Cells(5 + [G7], "C")) = [C3]
End Sub

 

[DaONE]

Merci beaucoup @sylvanu ça marche SUPER
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

 

[sylvanu]

Bonsoir,
Voir PJ.

 

[DaONE]

MERCI MERCI BEAUCOUP

 

[DaONE]

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

 

[sylvanu]

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 ?

 

[DaONE]

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

 

[DaONE]

Ps:j'ai commencé à rentrer le code sur "CommandButton2"

 

[sylvanu]

Re,
Un essai en PJ avec :

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

 

[DaONE]

Voici les numéros des "cases"

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

 

[sylvanu]

Les données en L1:L3 sont à coller en:
-A1:A3 C1:C3 E1:E3

Donc le contraire de ce que vous disiez.

 

[DaONE]

Donc le contraire de ce que vous disiez.

Houla, désolé je me suis mal exprimé

 

[sylvanu]

Nous en sommes au 14ème post pour une simple distribution de données.
Vous avez les codes pour coller dans tous les sens. A vous de terminer, si tant est que vous ayez une vision claire de ce que vous voulez.

 

[DaONE]

Nous en sommes au 14ème post pour une simple distribution de données.
Vous avez les codes pour coller dans tous les sens. A vous de terminer, si tant est que vous ayez une vision claire de ce que vous voulez.

Oui je m'étais très mal exprimeé je le reconnais.
Ben je vais tenter le coup... Pas certain que je m'y retrouve
Mais je vais essayer
MERCI ENCORE