Copié différentes cellules en vba

Fermé

JulienHch Messages postés 22 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 10 avril 2019 - 22 févr. 2019 à 09:33
JulienHch Messages postés 22 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 10 avril 2019 - 25 févr. 2019 à 11:35

Bonjour,

J'aurais aimé savoir comment faire pour par exemple copié les cellule A1,A3,A7

et les coller respectivement en B1,B3,B7

Bien Cdlmnt

A voir également:

Copié différentes cellules en vba
Copie cachée - Guide
Formule excel pour additionner plusieurs cellules - Guide
Super copie - Télécharger - Gestion de fichiers
Copie écran samsung - Guide
Copie disque dur - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
22 févr. 2019 à 09:45

Bonjour,

En vba comme ceci:

Worksheets("Feuil1").Range("B1").Value = Worksheets("Feuil1").Range("A1").Value

c'est simple, tu fais de même pour les autres

JulienHch Messages postés 22 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 10 avril 2019
Modifié le 22 févr. 2019 à 12:38

Bonjour,

Ce n’est pas possible de faire ;

.....Range(« A1 » et « A3 » et « A7 » ) = ........Range(« B1 » et « B3 » et « B7 ») ?

Cdlmnt

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 22 févr. 2019 à 13:54

Tu peux faire cela:

Worksheets("Feuil1").Range("A1:A7").Copy _
    Destination:=Worksheets("Feuil1").Range("B1:B7")

Si tu veux démarrer en VBA, il y a de très bons tutoriaux sur le Net

https://www.excel-pratique.com/fr/vba/premiere_macro.php

Voilà

JulienHch Messages postés 22 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 10 avril 2019
22 févr. 2019 à 19:46

le problème avec cela c’est que ça va aussi copier les celulles A2 A4 et A5 et ça je ne veux pas

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
23 févr. 2019 à 11:41

Voir ceci:

https://www.mediaforma.com/vba-excel-on-selectionner-feuille-de-calcul/

ce qui donne cela:

Worksheets("Feuil1").Range("B1:B2").Value = Worksheets("Feuil1").Range("A1:A2").Value
Worksheets("Feuil1").Range("B7").Value = Worksheets("Feuil1").Range("A7").Value

voilà

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 23 févr. 2019 à 15:19

et pour aller plus loin:

http://boisgontierjacques.free.fr/pages_site/tableaux.htm#Array

ce qui donne:

  Dim a, i
a = Array(1, 3, 7)
  For i = LBound(a) To UBound(a)
    Worksheets("Feuil1").Range("B" & a(i)).Value = Worksheets("Feuil1").Range("A" & a(i)).Value
  Next i

Là, on a fait le tour de la question!

Discussions similaires

lien copié

copie d'un lien dans le navigateur internet

lien copié presse papier smartphone Samsung

Comment retrouver des lien copier sur sont téléphone

"L'indice n'appartient à la sélection" + VBA