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.

D

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
Trier par date Trier par votes

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
Vote positif 0 Vote négatif
D

DaONE

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

Pièces jointes

  • E.D. 20-12-23.xlsm
    18.1 KB · Affichages: 1
Vote positif 0 Vote négatif
D

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
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 ?
 
Vote positif 0 Vote négatif
D

DaONE

XLDnaute Junior
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
 
Vote positif 0 Vote négatif

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: 3
Vote positif 0 Vote négatif
D

DaONE

XLDnaute Junior
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
568
loloboc
L
B
  • Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
301
JHA
J
N
  • Question
XL 2019 Copier plage de cellule et coller avec offset
Réponses
4
Affichages
462
netparty
N
  • Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
517
Lisette
N
  • Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
247
mapomme
S
  • Résolu(e)
XL 2016 Copier/Coller des cellules en multipliant par des cellules sur une autre page
Réponses
3
Affichages
502
migau
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
538
sambio2
S
T
  • Résolu(e)
XL 2016 Modification de données en fonction d'une valeur
Réponses
3
Affichages
362
therse
T
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
356
Nel'
N
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
607
gwenn49
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…