Code vba copier valeurs
Fermé
FafaM
-
Modifié le 2 déc. 2020 à 10:44
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 2 déc. 2020 à 16:44
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 2 déc. 2020 à 16:44
A voir également:
- Code vba copier valeurs
- Copier une vidéo youtube - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Copier texte pdf - Guide
4 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
729
2 déc. 2020 à 10:50
2 déc. 2020 à 10:50
Bonjour,
voir ceci:
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
voir ceci:
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
2 déc. 2020 à 10:51
2 déc. 2020 à 10:51
Bonjour,
coller en A1 les valeurs de toute la colonne B ou alors coller toutes les valeurs de la colonne B à partir de A1 ?
Avez-vous essayé de passer par l'enregistreur de macro ?
coller en A1 les valeurs de toute la colonne B ou alors coller toutes les valeurs de la colonne B à partir de A1 ?
Avez-vous essayé de passer par l'enregistreur de macro ?
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
2 déc. 2020 à 16:44
2 déc. 2020 à 16:44
Bonjour
Option Explicit
'------------------------------------------------
Sub copier_valeurs()
Dim Colonne, Derlig As Integer, col As Byte
col = 2
With Sheets(2)
Derlig = .Columns(col).Find(what:="*", searchdirection:=xlPrevious).Row
Colonne = .Range(.Cells(3, col), .Cells(Derlig, col))
End With
With Sheets(1)
.Range("a1").Resize(UBound(Colonne), 1) = Colonne
.Activate
End With
End Sub