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
Un dernier essai avec :
VB:
Private Sub CommandButton2_Click()
Dim L, C
For L = [M6] To [N6] Step 3     ' Toutes les lignes de Début à Fin
    For C = 1 To 5 Step 2       ' Toutes les colonnes A,C,E
        Range(Cells(L, C), Cells(L + 2, C)) = [L1:L3].Value ' Colle les données
    Next C
Next L
End Sub
 

Pièces jointes

  • tableau teone macro (V4).xlsm
    100.7 KB · Affichages: 1

sylvanu

XLDnaute Barbatruc
Supporter XLD
La dernière PJ est fausse.
Vos explications sont si peu claires qu'il faut les lire 100 fois pour bien comprendre.
Un dernier essai qui exploite la liste des blocs avec :
VB:
Private Sub CommandButton2_Click()
Dim L, Début, Fin
For L = [M6] To [N6]                            ' Pour tous les blocs de Début à Fin
    Début = Split(Cells(10 + L, "L"), " ")(0)   ' Extraction cellule début
    Fin = Split(Cells(10 + L, "L"), " ")(2)     ' Extraction cellule début
    Range(Début & ":" & Fin) = [L1:L3].Value    ' Copie données
Next L
End Sub
A noter une erreur dans la liste, d'où la galère de compréhension de la logique :
1703257251949.png

au lieu de
1703257300034.png
 

Pièces jointes

  • 1703257276003.png
    1703257276003.png
    1.1 KB · Affichages: 2
  • tableau teone macro (V5).xlsm
    100.9 KB · Affichages: 2

DaONE

XLDnaute Junior
Un dernier essai avec :
VB:
Private Sub CommandButton2_Click()
Dim L, C
For L = [M6] To [N6] Step 3     ' Toutes les lignes de Début à Fin
    For C = 1 To 5 Step 2       ' Toutes les colonnes A,C,E
        Range(Cells(L, C), Cells(L + 2, C)) = [L1:L3].Value ' Colle les données
    Next C
Next L
End Sub

Merci beaucoup
Merci Sylvanu

Ça ne fonctionne pas encore comme je le voulais. Si je mets de 1 à 1 dans M6 et N6 au lieu de coller uniquement en A1:A3, ça me colle en A1:A3, C1:C3 et E1:E3.
Ce n'est pas grave.
Je te remercie infiniment pour toute l'aide que tu fournis à moi et toutes les autres personnes qui ont eu besoin d'un coup de pouce sur excel.
MERCI 🙏✨ 🌈 ⭐
 

DaONE

XLDnaute Junior
La dernière PJ est fausse.
Vos explications sont si peu claires qu'il faut les lire 100 fois pour bien comprendre.
Un dernier essai qui exploite la liste des blocs avec :
VB:
Private Sub CommandButton2_Click()
Dim L, Début, Fin
For L = [M6] To [N6]                            ' Pour tous les blocs de Début à Fin
    Début = Split(Cells(10 + L, "L"), " ")(0)   ' Extraction cellule début
    Fin = Split(Cells(10 + L, "L"), " ")(2)     ' Extraction cellule début
    Range(Début & ":" & Fin) = [L1:L3].Value    ' Copie données
Next L
End Sub
A noter une erreur dans la liste, d'où la galère de compréhension de la logique :
Regarde la pièce jointe 1187008
au lieu de
Regarde la pièce jointe 1187011

Oups 🥺
Je tacherai à l'avenir de mieux préparer et exposer mes demandes. Ne serait-ce que par respect pour tout le travail que vous faites. Je suis à chaque fois dans la précipitation et je constate que je m'exprime très mal du coup.
Pardon
Et encore Merci
🙏
 

oguruma

XLDnaute Occasionnel
Bonjour pour compléter ou apporter des idées sur tes évolutions futures voir mon post sur le RANGE TO VALUE
dans ce code tu y trouveras comment faire des copiés collés et aussi faire des copiés collés formules en valeur, bref tu places une formule dynamiquement, tu la propages sur une plage de cellules et tu transformes cette plage de cellules en valeurs
 

oguruma

XLDnaute Occasionnel
bonjour, voir mon post, ça pourrait aider pour d'autres besoins de même teneur
 

Discussions similaires

Statistiques des forums

Discussions
313 264
Messages
2 096 657
Membres
106 701
dernier inscrit
KOFFI