Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 [RESOLU]Simplifier macro issue de l'enregistreur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion louatt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

louatt

Guest
Bonjour,

j'ai une macro ci-dessous issue de l'enregistreur de macro, je cherche à la simplifier.

Au lieu de sélectionner la plage de A4:A54 je cherche à sélectionner de A4 à la dernière cellule remplie et coller les éléments .

Par avance merci pour votre aide.

VB: 
'Aller dans l'onglet BD_VGP
    Sheets("BD_VGP").Select
    'Sélectionner de la cellule A4 jusqu'a la dernière ligne remplie au lieu de A54
    Range("A4:A54").Select
    Selection.Copy
    'Aller dans l'onglet BD_PV2
    Sheets("BD_PV2").Select
    'Se positionner dans la cellule B3
    Range("B3").Select
    'Coller les éléments copiés
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
Trier par date Trier par votes
Bonjour louatt
A tester:
VB: 
Sheets("BD_VGP").Range("A4:A" & Sheets("BD_VGP").Range("A" & Rows.Count).End(xlUp).Row).Copy
   Sheets("BD_PV2").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
Vote positif 0 Vote négatif
Bonjour

Une autre façon de faire.
VB: 
Sub Version_Simple()
Dim t
t = Sheets("BD_VGP").Cells(4, 1).Resize(Cells(Rows.Count, 1).End(3).Row - 3).Value
Sheets("BD_PV2").[B3].Resize(UBound(t, 1)) = t
End Sub
EDITION: Bonjour pierrejean 😉
 
Vote positif 0 Vote négatif
Re

Une autre version commise pour cause de confinement 😉
(Faut bien s'occuper!)
VB: 
Sub Version_Simple2()
Dim Rng As Range: Set Rng = Sheets("BD_VGP").Cells(4, 1).CurrentRegion.Columns(1)
Sheets("BD_PV2").[B3].Resize(Rng.Rows.Count) = Rng.Value
End Sub
NB: Cette version peut sans doute avoir des effets de bord (may be)
 
Vote positif 0 Vote négatif
Staple 1600

merci mais vais finir par en perdre mon latin ☺

Ne m'en veux pas mais suis parti sur le code proposé par PierreJean☺

Par contre mon format date est collé au format numérique et je voudrais qu'il soit coller au format jj/mm/dddd

je cherche à modifier le code pour simplement coller lpas avec l'option valeur

VB: 
'Date du contrôle
'Sélectionne la page BD_VGP et sélectionne de B4 à la dernière cellule remplie les dates du contrôle
Sheets("BD_VGP").Range("B4:B" & Sheets("BD_VGP").Range("B" & Rows.Count).End(xlUp).Row).Copy

'Sélectionne la page BD_PV2 se range en E3 et colle les données des dates de contrôle
   Sheets("BD_PV2").Range("E3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
518
job75
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
135
sylvanu
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
707
nat54
F
Fdaga
Réponses
0
Affichages
166
Fdaga
F
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
219
vazvaz
V
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
318
Phil69970
J
  • Résolu(e)
XL 2021 désélectionner la zone de destination copiée
Réponses
2
Affichages
154
JPaul78
J
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
600
AtTheOne
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
665
micie1509
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
502
xavieralvaro
X
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
405
sylvanu
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
857
candido57
C
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
510
sylvanu
V
  • Résolu(e)
Microsoft 365 Valeur variable dans Macro
Réponses
6
Affichages
441
VieuxSeb
V
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
778
MBEPID
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
492
Yogean
Y
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
777
robpellan52
R
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
343
olivier Clech
O
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
611
safranien
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…