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

Macro copier contenu d'une feuille vers autre feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sim
  • 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
S

sim

XLDnaute Occasionnel
Bonjour a toutes et a tous!!!

Quelqu'un aurait-il une solution pour transformer le code ci dessous pour que la macro

Verifie
si FX est vide, alors copier le contenue de GMRB_Raw_Data dans FX
si FX pas vide, alors afficher le message "Veuillez respecter les etapes de mise a jour"

ensuite garder le code a partir du lancement de la macro "supp"

Private Sub acceuil_Click()
Sheets("GMRB_Raw_Data").Copy Before:=Sheets("Markets_PI")
On Error Resume Next 'pour le cas où la feuille "FX" existerait
ActiveSheet.Name = "FX"
If Err.Number <> 0 Then
Application.DisplayAlerts = 0
ActiveSheet.Delete
Application.DisplayAlerts = 1
Sheets("FX").Activate
Exit Sub
End If
On Error GoTo 0
supp
Workbooks("17.03_version_propre.xls").RefreshAll
Sheets("GMRB_Raw_Data").Range("A2").Copy Sheets("Current_market").Range("A6")
Sheets("Current_market").Activate
Sheets("Current_market").Range("A1").Select
End Sub

Ca fait une heure que j'essaye, et je n'y arrive pas...🙁

Merci d'avance pour ceux qui pourront m'aider.😀

Sim
 
Trier par date Trier par votes
Re : Macro copier contenu d'une feuille vers autre feuille

Re,

Bon je comprend pas car lorsque je fais le test dans l'exemple cela fonctionne,

Mais parcontre quand je l'applique a mon fichier, tout ce fait sauf le lancement de la macro supp....

Dur dur cet exercice...🙁

Cordialement

Sim
 
Vote positif 0 Vote négatif
Re : Macro copier contenu d'une feuille vers autre feuille

Re,

Une question juste pour etre sur

La commande copycontents n'existe t elle pas?

Parce que sinon si c'est trop compliquer, je pourrai me contenter d'une macro faisant juste la copie du contenu de brut dans FX...

Dis moi ce que tu en penses.🙂

Cordialement.

Sim
 
Vote positif 0 Vote négatif
Re : Macro copier contenu d'une feuille vers autre feuille

Re
La macro pour copier le contenu de Brute dans FX, tu l'as déja :
VB: 
Plg = Sheets("Brute").UsedRange.Value
Sheets("FX").Cells(1, 1).Resize(UBound(Plg, 1), UBound(Plg, 2)) = Plg
Par contre taversion de copie de cellule:
VB: 
Sheets("GMRB_Raw_Data").Range("A2").Copy Sheets("Current_market").Range("A6")
ne fonctionne pas.
Utilise:
VB: 
Sheets("Current_market").Range("A6") = Sheets("GMRB_Raw_Data").Range("A2")
Cordialement

EDIT : Regarde dans l'exemple j'ai modfié Supp pour être sur d'utiliser la feuille FX lors de la suppression des lignes
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro copier contenu d'une feuille vers autre feuille

Re,

Je comprend vraiment pas,

Ton code marche tres bien dans l'exemple.

Meme en simplifiant au maximum le code, il fait tout ce que je veux mais ne me lance pas la macro supp dans mon vrai fichier

D'ou cela pourrait il venir??

Cordialement.

Sim
 
Vote positif 0 Vote négatif
Re : Macro copier contenu d'une feuille vers autre feuille

Re,

Marche pas non plus....dur dur!

J'ai meme essayer d'enlever le test sur le fait d'avoir appuyer sur preparation de l'update

Code: 
Private Sub acceuil2_Click()
    ActiveWorkbook.Worksheets("GMRB_Raw_Data").Cells.ClearContents
    ActiveWorkbook.Worksheets("FX").Cells.ClearContents
    Sheets("GMRB_Raw_Data").Activate
    Sheets("GMRB_Raw_Data").Range("A1").Select
End Sub
Private Sub acceuil_Click()
    Dim Plg()
        Plg = Sheets("GMRB_Raw_Data").UsedRange.Value
        Sheets("FX").Cells(1, 1).Resize(UBound(Plg, 1), UBound(Plg, 2)) = Plg
        Call Module1.supp
        Workbooks("17.03_version_propre.xls").RefreshAll
        Sheets("Current_market").Range("A6") = Sheets("GMRB_Raw_Data").Range("A2")
        Sheets("Current_market").Activate
        Sheets("Current_market").Range("A1").Select
End Sub

Voila la simplificationet supp ne se lance toujours pas...que faire??

Merci de m'aider parce que la ca depasse ma comprehension....🙁

Cordialement

Sim
 
Vote positif 0 Vote négatif
Re : Macro copier contenu d'une feuille vers autre feuille

Re,Re...
Pour aller plus loin il faudrait voir le fichier réel, sans données confidentielles avec les vrais noms de feuille et de classeurs etc...
Sans exemple le problème tournera en rond.

Cordialement
 
Vote positif 0 Vote négatif
Re : Macro copier contenu d'une feuille vers autre feuille

Efge,

Malheureusement, vu l'immensite des info confidentielles dans mon vrai fichier, je ne pourrai pas tout transforme de plus cela perdrai tout son sens et on y comprendrai plus rien...mon fichier n'est que donnees confidentielle.

Alors je pense qu'il faut arreter la, et reprendre la demande depuis son origine a savoir:

Des tcd dont la source est un nom defini par une fonction decaler se basant sur la feuille FX.
Une macro qui supprime FX avant mise a jour
Une macro qui recree FX a partir de Brute.

Code: 
Private Sub acceuil_Click()
  Sheets("Brute").Copy Before:=Sheets("Markets_PI")
  On Error Resume Next 'pour le cas où la feuille "FX" existerait
 ActiveSheet.Name = "FX"
  If Err.Number <> 0 Then
    Application.DisplayAlerts = 0
    ActiveSheet.Delete
    Application.DisplayAlerts = 1
    Sheets("FX").Activate
    Exit Sub
  End If
  On Error GoTo 0
  supp
  Workbook.RefreshAll
End Sub

Private Sub acceuil2_Click()
    Application.DisplayAlerts = False
    Sheets("FX").Delete
    Sheets("Brute").Select
    ActiveWorkbook.Worksheets("Brute").Cells.ClearContents
End Sub



Et dans le processur une fonction decaler qui est alterer

=OFFSET(#REF!$A$1:$N$1,,,COUNTA(#REF!$A:$A))

au lieu de

=OFFSET(FX!$A$1:$N$1,,,COUNTA(FX!$A:$A))

Voili voilou....je vais donc reouvrir une nouvelle discussion pour savoir si on peux pas ajouter une ligne de code dans le acceuil_click() pour qu'il (re)definisse le nom avec la formule.....

Voila vraiment merci pour le temps consacre, dommage que nous ne soyons pas parvenu a nos fins.🙄

Cordialement.

Sim
 
Dernière édition:
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

Discussions similaires

A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
143
AlineJ
A
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
144
job75
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
158
Pierreavecunp
P
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
900
Carolinebd
C
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
279
chris6999
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
607
gui22
G
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
494
telemarrk
T
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
507
MBEPID
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
214
safranien
S
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
528
francha62
F
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
611
Pimpon974
P
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
410
zendb
Z
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
676
phoceenjo
P
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
360
farid
F
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
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
656
robpellan52
R
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
385
Anthony_51
A
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
472
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…