Macro copier coller même cellule de toutes les feuilles du classeur

Créer une discussion
Répondre

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
J

jujunexcelpas

XLDnaute Nouveau
Bonjour à tout le monde,
je viens rechercher encore un peu d'aide.
après avoir bien avancé sur de nombreuses macros je bloque sur une où je souhaite:
- copier la cellule F2 (par exemple) de toutes les feuilles d'un autre classeur
- coller l'ensemble des données dans un classeur indépendant
je vous met la macro suivante:

HTML: 
Option Explicit
Dim Mess As Integer, r As String
Dim xnomfic As String, ficd As String, xcell As String, xnomsh As Variant
Dim xshcherchee As Worksheet
Dim classeur As Workbook
Dim wb As Workbook
Dim ws As Worksheet

 Function FichierExiste(ficd) As Boolean
    FichierExiste = Dir(ficd) <> "" And ficd <> ""
End Function


Sub Muscudétail()

Application.DisplayAlerts = False

    r = Feuil1.[D1]
    If Dir("C:\Users\coach\dropbox\joueurs\" & r, vbDirectory) = "" Then _
    MkDir "C:\Users\coach\dropbox\joueurs\" & r

    Application.ScreenUpdating = False
    xnomfic = Range("D1"): ficd = xnomfic & " Musculation.xlsx"
 ' Contrôle de l'existence du fichier ou classeur
    If FichierExiste("C:\Users\coach\dropbox\joueurs\" & r & "\" & ficd) = "Vrai" Then
   
 sélection du classeur cible et copies des cellules F2 de chaque feuille    
    Application.Workbooks.Open("C:\Users\coach\joueurs\" & r & "\" & ficd).Activate
    Sheets.Select
    Range("F2").Copy 
    'ActiveWorkbook.Save
    ActiveWorkbook.Close
    
  collage des cellules copiée dans la colonne A de la feuille 1  
    Workbooks("Classeur1").Activate
    Feuil1.Activate
    Range("A:A").Select
    ActiveSheet.Paste
    Feuil1.Activate
    
    
    End If
              
End Sub
la macro marche mais que pour la première feuille donc je suis sur qu'il manque des choses! faut il un variable supplémentaire ou autre chose !!!
Cordialement
Julien
 
Trier par date Trier par votes
Re : Macro copier coller même cellule de toutes les feuilles du classeur

Bonsoir,
Bien que pas très bon en macro, je songe genre :
Code: 
    For i = 1 To Worksheets.Count        
        [A1].Offset(i, 0).Value = Worksheets(i).[F2].Value
    Next i
donc genre,
Code: 
sélection du classeur cible et copies des cellules F2 de chaque feuille    
    Application.Workbooks.Open("C:\Users\coach\joueurs\" & r & "\" & ficd).Activate
    For i = 1 To Worksheets.Count
        
        Workbooks("Classeur1").sheets(Feuil1).Range("A1").Offset(i, 0).Value = Worksheets(i).[F2].Value
    Next i  
 End Sub
mais .....
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro copier coller même cellule de toutes les feuilles du classeur

Bonjour st007, bonjour le forum,
Merci pour ta réponse rapide
en ayant tout écris de la façon suivante:
HTML: 
Option Explicit
Dim Mess As Integer, r As String
Dim xnomfic As String, ficd As String, xcell As String, xnomsh As Variant
Dim i As String
Dim xshcherchee As Worksheet
Dim classeur As Workbook
Dim wb As Workbook
Dim ws As Worksheet

 Function FichierExiste(ficd) As Boolean
    FichierExiste = Dir(ficd) <> "" And ficd <> ""
End Function


Sub Muscudétail()

Application.DisplayAlerts = False

    r = Feuil1.[D1]
    If Dir("C:\Users\coach\dropbox\joueurs\" & r, vbDirectory) = "" Then _
    MkDir "C:\Users\coach\dropbox\joueurs\" & r

    Application.ScreenUpdating = False
    xnomfic = Range("D1"): ficd = xnomfic & " Musculation.xlsx"
 ' Contrôle de l'existence du fichier ou classeur
    If FichierExiste("C:\Users\coach\dropbox\joueurs\" & r & "\" & ficd) = "Vrai" Then
   
 'sélection du classeur cible et copies des cellules F2 de chaque feuille
   Application.Workbooks.Open("C:\Users\coach\joueurs\" & r & "\" & ficd).Activate
    For i = 1 To Worksheets.Count
        
        Workbooks("Classeur1").Sheets(Feuil1).Range("A1").Offset(i, 0).Value = Worksheets(i).[F2].Value
    Next i
    
  'collage des cellules copiée dans la colonne A de la feuille 1
    Workbooks("Classeur1").Activate
    Feuil1.Activate
    Range("A:A").Select
    ActiveSheet.Paste
    Feuil1.Activate
    
    
    End If
              
End Sub
je me retrouve avec une erreur de compatibilité, il me surligne le i en bleu et le titre de la macro en jaune. J'ai tenté de mettre une variable i en début de macro mais rien à faire !
cordialement
Julien
 
Vote positif 0 Vote négatif
Re : Macro copier coller même cellule de toutes les feuilles du classeur

Bonjour pierrot93, Bonjour st007, Le forum
j'ai tester avec le changement de variable mais j'ai toujours une incompatibilité de type voici le code que j'y ai mis
HTML: 
Option Explicit
Dim Mess As Integer, r As String
Dim xnomfic As String, ficd As String, xcell As String, xnomsh As Variant
Dim i As Long
Dim xshcherchee As Worksheet
Dim classeur As Workbook
Dim wb As Workbook
Dim ws As Worksheet

 Function FichierExiste(ficd) As Boolean
    FichierExiste = Dir(ficd) <> "" And ficd <> ""
End Function


Sub Muscudétail()

Application.DisplayAlerts = False

    r = Feuil1.[D1]
    If Dir("C:\Users\coach\dropbox\Joueurs\" & r, vbDirectory) = "" Then _
    MkDir "C:\Users\coach\dropbox\Joueurs\" & r

    Application.ScreenUpdating = False
    xnomfic = Range("D1"): ficd = xnomfic & " Musculation.xlsx"
 ' Contrôle de l'existence du fichier ou classeur
    If FichierExiste("C:\Users\coach\dropbox\Joueurs\" & r & "\" & ficd) = "Vrai" Then
   
 'sélection du classeur cible et copies des cellules F2 de chaque feuille
   Application.Workbooks.Open("C:\Users\coach\dropbox\Joueurs\" & r & "\" & ficd).Activate
    For i = 1 To Worksheets.Count
        
       [COLOR="#EE82EE"] Workbooks("analyse musculation").Sheets(Feuil1).Range("A1").Offset(i, 0).Value = Worksheets(i).[F2].Value[/COLOR]
    Next i
    
  'collage des cellules copiée dans la colonne A de la feuille 1
    Workbooks("analyse musculation").Activate
    Feuil1.Activate
    Range("A:A").Select
    ActiveSheet.Paste
    Feuil1.Activate
    
    
    End If
              
End Sub
ça me surligne la ligne violette comme erreur j'ai vérifié le nom du doc la feuille et tout mais je bloque
Cordialement
Julien
 
Vote positif 0 Vote négatif
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

S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
Nadou69
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
729
Nadou69
Nadou69
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
A
  • Question Question
Microsoft 365 Copier/coller un plusieurs lignes
Réponses
5
Affichages
860
LeSaintKebab
L
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
A
  • Question Question
Microsoft 365 Copier/coller en boucle avec un nb variable de ligne
Réponses
4
Affichages
980
A-F
A
R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
920
Rousseau Benoit
R
O
  • Question Question
XL 2016 Problème de copier coller VBA
Réponses
4
Affichages
2 K
cp4
cp4
B
  • Résolu(e)
XL 2019 Copier Coller les Noms d'un Gestionnaire de Noms dans un nouveau classeur
Réponses
3
Affichages
2 K
Bubu29
B
XLSM75
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
XLSM75
C
  • Question Question
Microsoft 365 Macro pour récupérer des données dans plusieurs fichiers identiques
2
Réponses
15
Affichages
5 K
merinos-BernardEtang
merinos-BernardEtang
S
  • Question Question
XL 2013 Convertir classeur en PDF, crypter avec mot de passe et envoyer via Outlook
Réponses
2
Affichages
2 K
Saliou MBALO
S
C
  • Question Question
Word VBA Excel-Word: Coller du texte l'un en dessous de l'autre
Réponses
1
Affichages
4 K
Conrad13
C
S
  • Résolu(e)
Microsoft 365 automatiser macro pour copier/coller des données d´un classeur à un autre et sauver à chaque fois le classeur rempli
Réponses
8
Affichages
5 K
sevenkingdom
S
C
  • Question Question
XL 2013 VBA - Copier coller valeurs uniquement - Macro consolidation
Réponses
1
Affichages
2 K
sylvanu
sylvanu
C
  • Résolu(e)
XL 2013 VBA - Amélioration d'une macro consolidation
Réponses
8
Affichages
2 K
Genii
G
E
  • Question Question
XL 2013 impossible de creer XLSM par macro
Réponses
2
Affichages
2 K
estivill
E
L
  • Question Question
XL 2013 Appliquer du code VBA à l'ensemble des feuilles de mon classeur
Réponses
4
Affichages
1 K
laurent3372
laurent3372
Undersound
  • Question Question
XL 2016 Création d'un fichier Analyse qui compare fichier Original et fichier Traité
Réponses
3
Affichages
1 K
Undersound
Undersound
A
  • Question Question
XL 2010 comment appliquer un code vba à un certain nombre de feuilles d'un classeur.
Réponses
3
Affichages
1 K
sylvanu
sylvanu
Retour