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é

sylvanu · 20 Décembre 2023

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

DaONE · 20 Décembre 2023

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 · 20 Décembre 2023

Bonsoir,
Voir PJ.

DaONE · 21 Décembre 2023

MERCI MERCI BEAUCOUP

DaONE · 21 Décembre 2023

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 · 21 Décembre 2023

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 · 21 Décembre 2023

sylvanu à dit:
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 · 21 Décembre 2023

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

sylvanu · 21 Décembre 2023

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

DaONE · 21 Décembre 2023

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 · 21 Décembre 2023

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

Donc le contraire de ce que vous disiez.

DaONE · 21 Décembre 2023

sylvanu à dit:
Donc le contraire de ce que vous disiez.

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

sylvanu · 21 Décembre 2023

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 · 21 Décembre 2023

sylvanu à dit:
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

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

DaONE

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

DaONE

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

DaONE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

DaONE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

DaONE

XLDnaute Junior

Discussions similaires