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]

Un dernier essai avec :

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

 

[sylvanu]

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 :

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 :

au lieu de

 

[DaONE]

Un dernier essai avec :

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]

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 :

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
🙏

 

[DaONE]

PS: ça fonctionne du tonnerre 💥🔥

 

[DaONE]

PS: ça fonctionne du tonnerre 💥🔥

Ah non un bug au niveau de

    Fin = Split(Cells(10 + L, "L"), " ")(2)     ' Extraction cellule début

 

[sylvanu]

Ah non un bug au niveau de

Dans quelles conditions ? Quel contexte ? Sur quel fichier ? Sur quel plage de la colonne L ?
Le fichier tel que fourni fonctionne. Si vous l'avez modifié, mettez le au point.

 

[DaONE]

Dans quelles conditions ? Quel contexte ? Sur quel fichier ? Sur quel plage de la colonne L ?
Le fichier tel que fourni fonctionne. Si vous l'avez modifié, mettez le au point.

Oui pardon.
Je n'ai rien modifié tout fonctionnait bien puis tout d'un coup.
voici le message d'erreur

 

[sylvanu]

Ca, c'est le message d'erreur.
Donnez au moins ce qu'il y avait en M6 et N6.
J'obtiens ce message si "De" est supérieur à "à", ou si "à" est supérieur à 21, qui est le max de la liste.

 

[DaONE]

Ca, c'est le message d'erreur.
Donnez au moins ce qu'il y avait en M6 et N6.
J'obtiens ce message si "De" est supérieur à "à", ou si "à" est supérieur à 21, qui est le max de la liste.

J'avais mis de 13 à 21 (dans M6 et N6)

 

[sylvanu]

Sur mon PC ça marche sans problème.

 

[DaONE]

Sur mon PC ça marche sans problème.
Regarde la pièce jointe 1187036

Ok hum c'est peut-être mon ordi le problème tout fonctionnait bien pourtant jusqu'à ce que je rentre de 13 à 21. J'avais d'abord mis 1 à 5, coller, puis 6 à 13, coller, et enfin 13 à 21, coller puis bug. 🤔

 

[DaONE]

Sur mon PC ça marche sans problème.
Regarde la pièce jointe 1187036

J'ai testé le fichier sur mon ancien PC. Ça a bien fonctionné sur environ une trentaine d'appui sur le bouton. Puis bam erreur.
C'est bizzare que ça fonctionne tranquille et puis plus rien 🤔.

 

[oguruma]

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]

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

RTV :: RANGE TOOLS VALUES

En ce dimanche pointant une météo de fin d'année.... que faire.... ? Bientôt c'est Noël. :D - Allez un peu de VBA. Dans différents Post un sujet est revenu sur la table : La recopie d'une plage en valeur afin d'éliminer la formule voir même en automatique à l'issue de la construction d'une...

excel-downloads.com