Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion DaONE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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
 
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

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. 🙂
 
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 🙏
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…