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

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

sylvanu · 22 Décembre 2023

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 :

au lieu de

DaONE · 22 Décembre 2023

sylvanu à dit:

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

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

DaONE · 22 Décembre 2023

PS: ça fonctionne du tonnerre

DaONE · 22 Décembre 2023

DaONE à dit:
PS: ça fonctionne du tonnerre

Ah non un bug au niveau de

VB:

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

sylvanu · 22 Décembre 2023

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

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

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

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

Sur mon PC ça marche sans problème.

DaONE · 23 Décembre 2023

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

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

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

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

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

sylvanu

XLDnaute Barbatruc

Pièces jointes

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

DaONE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

DaONE

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

DaONE

XLDnaute Junior

DaONE

XLDnaute Junior

oguruma

XLDnaute Occasionnel

oguruma

XLDnaute Occasionnel

RTV :: RANGE TOOLS VALUES

Discussions similaires