Autres Copier coller une plage variable VBA

StanSigma · 28 Mai 2019

Bonjour,

Je débute dans le VBA et je bloque sur un point..
Je vous explique mon tableau :
Une feuille 'CopieColle' dans laquelle je colle une extraction de la badgeuse de l'entreprise.
Une feuille 'BDD' où je stock l'ensemble des extractions.
une feuille 'Menu' où j'ai mes boutons pour faire mes manipulations

Je veux faire un bouton 'Collecter les données de la badgeuse' (donc une macro) qui lorsque je clique dessus va sélectionner les cellules que je viens de coller dans 'CopieColle' pour les mettre à la suite de 'BDD'
A savoir que ce que je colle dans 'CopieColle' n'est pas fixe, c'est à dire que parfois le collage prendra 50 lignes parfois 200... par contre, toujours le même nombre de colonne : 35

j'ai voulu faire une sélection jusqu'à la dernière ligne et colonne non-vide mais en vain...
Je commence à désespérer de pouvoir faire ce que je veux..

Une âme charitable pour m'indiquer comment m'y prendre et surtout quel code...

Voici le classeur merci pour l'aide par avance

Stan

Calvus · 28 Mai 2019

Bonsoir et bienvenue,

StanSigma à dit:
Voici le classeur merci pour l'aide par avance

Il semblerait qu'il y ait un petit souci....

Donc sans fichier, en supposant que les données commencent en A1, le plus simple c'est :

VB:

[A1].CurrentRegion.Select

A+

StanSigma · 28 Mai 2019

Calvus à dit:
Bonsoir et bienvenue,

Il semblerait qu'il y ait un petit souci....

Donc sans fichier, en supposant que les données commencent en A1, le plus simple c'est :

VB:

[A1].CurrentRegion.Select

A+

Bonsoir Calvus,

Il a été supprimé pour document de confidentialité...
Peux-tu m'expliquer ce que fait CurrentRegion.Select s'il te plait?

Et comment faire pour l'ensemble du code depuis le click sur le bouton

Merci

Calvus · 28 Mai 2019

Re,

StanSigma à dit:
Peux-tu m'expliquer ce que fait CurrentRegion.Select s'il te plait?

Ça sélectionne toutes les cellules autour de A1.

StanSigma à dit:
Et comment faire pour l'ensemble du code depuis le click sur le bouton

Il faut créer un bouton et y affecter la macro.

A+

StanSigma · 28 Mai 2019

Calvus à dit:
Re,

Ça sélectionne toutes les cellules autour de A1.

Il faut créer un bouton et y affecter la macro.

A+

Re,

D'accord merci, j'ai essayer de l'integrer à ma macro mais en vain :

Sub Copie_Colle()
'
' Copie_Colle Macro
'

'
Sheets("CopieColle").Select
[A1] CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BDD").Select
Rows("1:1").Select
Range("B1").Activate
Selection.Insert Shift:=xlDown
Sheets("CopieColle").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Menu").Select
End Sub

Peux-tu m'aider?

Staple1600 · 28 Mai 2019

Bonsoir le fil, Calvus

Une autre syntaxe possible

VB:

Sub CopieColle()
Set rngA = Feuil1.[A1].CurrentRegion
rngA.Copy Feuil2.Cells(Rows.Count, 1).End(3)(2)
Application.CutCopyMode = False
End Sub

Calvus · 28 Mai 2019

Re,

StanSigma à dit:
D'accord merci, j'ai essayer de l'integrer à ma macro mais en vain :

J'ai écrit :
[A1].CurrentRegion.Select

et non pas
[A1] CurrentRegion.Select...

StanSigma à dit:
par contre, toujours le même nombre de colonne : 35

Si ce n'est pas le cas on va au devant de problèmes....

VB:

Sub Copie()

With Sheets("CopieColle")
    .[A1].CurrentRegion.Copy
End With

With Sheets("BDD")
    .Rows("1:1").Insert Shift:=xlDown
End With

Sheets("CopieColle").[A1].CurrentRegion.ClearContents

End Sub

A+

Staple1600 · 28 Mai 2019

Re,

Calvus
Problème de lunettes?
Voir message précédent
(le #6)

Calvus · 28 Mai 2019

Hello Staple,,

Non pas de problème de lunettes ! Ou si justement ! Mais on ne lutte plus au bout d'un moment.
Je n'ai vu ton message qu'une fois que j'ai publié le mien.

Je t'aurai un jour !

Autres Copier coller une plage variable VBA

StanSigma

XLDnaute Junior

Calvus

XLDnaute Barbatruc

StanSigma

XLDnaute Junior

Calvus

XLDnaute Barbatruc

StanSigma

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Discussions similaires