Coller la valeur d'une cellule VBA
Résolu/Fermé
HEMIYELY
michel_m
- Messages postés
- 61
- Date d'inscription
- mercredi 10 mai 2017
- Statut
- Membre
- Dernière intervention
- 25 janvier 2022
michel_m
- Messages postés
- 16571
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 27 juin 2022
A voir également:
- Coller valeur vba
- Vba coller en valeur - Meilleures réponses
- Vba coller valeur - Meilleures réponses
- Coller la valeur d'une cellule VBA ✓ - Forum - Excel
- Copier coller valeur vba ✓ - Forum - VB / VBA
- VBA coller des valeurs ✓ - Forum - Bureautique
- Vba coller en mode spécial valeurs ✓ - Forum - Excel
- VBA coller valeur ✓ - Forum - Excel
2 réponses
titeufdu89
12 juin 2017 à 10:25
- Messages postés
- 371
- Date d'inscription
- samedi 28 juillet 2012
- Statut
- Membre
- Dernière intervention
- 4 mars 2019
12 juin 2017 à 10:25
Bonjour,
Pour ton '3. Paste data, remplace ton code existant par celui ci :
Ca devrait le faire,
Bonne journée
Jc
Pour ton '3. Paste data, remplace ton code existant par celui ci :
Worksheets("BASE DE DONNEES").Range("H" & lRow).Select
Selection.PasteSpecial Paste:=xlPasteValues
Ca devrait le faire,
Bonne journée
Jc
michel_m
12 juin 2017 à 10:55
- Messages postés
- 16571
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 27 juin 2022
12 juin 2017 à 10:55
Bonjour,
en VBA on évite au maximum d'utiliser copy paste, particulièrement chronophage et lourd
essaies
en VBA on évite au maximum d'utiliser copy paste, particulièrement chronophage et lourd
essaies
Option Explicit
Sub vvvv()
Dim lrow As Long, xxx
With ThisWorkbook.Worksheets("BASE DE DONNEES")
xxx = Worksheets("INFORMATION").Range("C8").Value
'1. Find last used row in destination sheet
lrow = .Cells(Worksheets("BASE DE DONNEES").Rows.Count, 1).End(xlUp).Row + 1
.Range("H" & lrow) = xxx
End With
End Sub
HEMIYELY
12 juin 2017 à 17:21
- Messages postés
- 61
- Date d'inscription
- mercredi 10 mai 2017
- Statut
- Membre
- Dernière intervention
- 25 janvier 2022
12 juin 2017 à 17:21
Merci de votre réponse mais à quoi correspondent les xxx ?
Hervé
>
HEMIYELY
Modifié le 12 juin 2017 à 17:50
- Messages postés
- 61
- Date d'inscription
- mercredi 10 mai 2017
- Statut
- Membre
- Dernière intervention
- 25 janvier 2022
Modifié le 12 juin 2017 à 17:50
xxx est le nom d'une variable ; celle qui doit contenir la valeur de C8 ;
tu peux bien sûr renommer cette variable de façon plus explicite :
lors de sa définition en ligne Dim, et les 2 fois où elle est utilisée.
vvvv n'est pas un nom de sub très explicite, et tu peux aussi
le renommer à ton choix (en laissant les parenthèses).
michel_m
Modifié le 13 juin 2017 à 08:13
- Messages postés
- 16571
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 27 juin 2022
Modifié le 13 juin 2017 à 08:13
Bonjour,
j'ai mis xxx, pourquoi pas ? il faudrait dire dans les déclarations quel est son type: texte, nombre entier, date.... ce qui permettrait d'avoir un nom plus explicite...
j'ai mis vvv car j'ai fait çà rapidement en prenant sur mon temps libre
un topo sur les variables
https://silkyroad.developpez.com/VBA/LesVariables/
et aussi (+complet)
https://mhubiche.developpez.com/Access/variables/
j'ai mis xxx, pourquoi pas ? il faudrait dire dans les déclarations quel est son type: texte, nombre entier, date.... ce qui permettrait d'avoir un nom plus explicite...
j'ai mis vvv car j'ai fait çà rapidement en prenant sur mon temps libre
un topo sur les variables
https://silkyroad.developpez.com/VBA/LesVariables/
et aussi (+complet)
https://mhubiche.developpez.com/Access/variables/
12 juin 2017 à 17:19
Connaissez-vous ce genre d'erreur ?