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

Copier colonne et coller sur plusieurs feuilles

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

Gregcherche

Guest
Bonjour,

Pour mon travail 🙄, j'ai fais un classeur composé d'une feuille "type" que je suis amené à modifier, et de plusieurs autres feuilles (numérotés de 1 à 50) de composition identique à ma feuille type.

Je souhaiterais simplement faire une macro pour copier une colonne de ma feuille "type" et la coller sur l'ensemble de mes feuilles "1" à "50".

Merci pour votre considération,
 
Trier par date Trier par votes
Re : Copier colonne et coller sur plusieurs feuilles

Bonjour GregCherche, le forum 🙂,
Une première piste de travail:
Lance l'enregistreur de macro et enregistre la manipulation pour la feuille 1. Puis après avoir nettoyé le code, fait une boucle du type
Code: 
Dim I as Integer
For I = 1 to 50
' là ton code nettoyé où tu remplaces les références à ta feuille 1
' par des références où I va permettre de faire toutes les feuilles de 1 à 50
Next I
Si tu n'y arrives pas, colle le code obtenu par l'enregistreur qui nous permettra de t'aiguiller.
Bonne journée 😎
 
Vote positif 0 Vote négatif
Re : Copier colonne et coller sur plusieurs feuilles

Bonjour Gregcherche, Bonjour JNP,

une proposition qui copie la colonne I de la feuille Type en colonne I des feuilles nommées de 1 à 50 :

Code: 
 Dim ListeFeuille() As String, i as long
    ReDim ListeFeuille(1 To 1)
    For i = 1 To 50
        ReDim Preserve ListeFeuille(1 To i)
        ListeFeuille(i) = i
    Next i
    Sheets("Type").Columns("I:I").Copy
    Sheets(ListeFeuille).Select
    Columns("I:I").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Type").Select
 
Vote positif 0 Vote négatif
Re : Copier colonne et coller sur plusieurs feuilles

Je vous remercie pour ce code presque parfait 😉

Le "presque parfait" est de ma faute, j'ai oublié de préciser qu'il manque certaines feuilles parmi mes "1" à "50".
Par conséquent, une erreur se produit sur la ligne :
Code: 
    Sheets(ListeFeuille).Select

Auriez-vous la solution à ça?
 
Vote positif 0 Vote négatif
Re : Copier colonne et coller sur plusieurs feuilles

Re le forum 🙂,
Un code à manier avec une vigilance particulière est la gestion d'erreur. Tu peux ignorer l'erreur en mettant "On Error Resume Next" (qui va annuler la gestion des erreurs) devant le code qui coince, et surtout ne pas oublier juste après de mettre un "On Error Goto 0" (qui va rétablir la gestion des erreurs). Mais attention, dès que tu débraye la gestion d'erreur, tu ne peux plus être sûr de rien...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Copier colonne et coller sur plusieurs feuilles

Re,

Code modifié à tester :

Code: 
Function ExisteFeuille(ByVal NomFeuil As String) As Boolean
    ExisteFeuille = False
    On Error GoTo err1
    A = ThisWorkbook.Worksheets(NomFeuil).Range("A1").Value
    ExisteFeuille = True
    On Error GoTo 0
err1:
End Function
Sub CopieColonne()
 Dim ListeFeuille() As String, i As Long
    ReDim ListeFeuille(1 To 1)
    For i = 1 To 50
        If ExisteFeuille(CStr(i)) Then
            If i > 1 Then ReDim Preserve ListeFeuille(1 To UBound(ListeFeuille) + 1)
            ListeFeuille(UBound(ListeFeuille)) = i
        End If
    Next i
    Sheets("Type").Columns("I:I").Copy
    Sheets(ListeFeuille).Select
    Columns("I:I").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Type").Select
End Sub
 
Vote positif 0 Vote négatif
Re : Copier colonne et coller sur plusieurs feuilles

Slt,

Depuis que vous m'aviez aidé à faire cette macro, mon fichier à évolué...
J'ai déplacé certaines fiches dans un autre classeur, j'en ai crée d'autres, etc

Enfin bref, je souhaite de nouveau faire ce "copier coller" mais sur les fiches 208 à 5 : j'ai donc essayé de modifier le code ci-dessous, mais celui-ci bloque de nouveau à la ligne :
Code: 
 Sheets(ListeFeuille).Select


NOUVEAU CODE :
Code: 
 Function ExisteFeuille(ByVal NomFeuil As String) As Boolean
    ExisteFeuille = False
    On Error GoTo err1
    A = ThisWorkbook.Worksheets(NomFeuil).Range("A1").Value
    ExisteFeuille = True
    On Error GoTo 0
err1:
End Function
Sub CopieColonne()
 Dim ListeFeuille() As String, i As Long
    ReDim ListeFeuille(1 To 1)
    For i = 208 To 39
        If ExisteFeuille(CStr(i)) Then
            If i > 1 Then ReDim Preserve ListeFeuille(1 To UBound(ListeFeuille) + 1)
            ListeFeuille(UBound(ListeFeuille)) = i
        End If
    Next i
    Sheets("Type").Columns("D:G").Copy
    Sheets(ListeFeuille).Select
    Columns("D:G").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Type").Select
End Sub '
 
Dernière modification par un modérateur:
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

P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
320
PR.
P
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
332
job75
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
290
AD74
A
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
426
mapomme
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
838
lcouaci
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
632
dadaze
D
C
  • Question Question
Microsoft 365 Fonction MIN depuis plusieurs feuilles excel.
Réponses
6
Affichages
504
djidji59430
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
698
Phil69970
L
  • Question Question
Microsoft 365 Soustraction de plusieurs cellules sur plusieurs feuilles.
Réponses
1
Affichages
240
Staple1600
B
  • Question Question
Microsoft 365 calendrier personnel pour planning
Réponses
4
Affichages
250
bruno972
B
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
326
dadaze
D
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
297
PR.
P
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
343
Dand87
D
  • Question Question
Microsoft 365 Graphique avec valeur sur différentes feuilles
Réponses
3
Affichages
197
sousou
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
721
MANU64360
M
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
793
Phil69970
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
1 K
TooFatBoy
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
1 K
Krome36
K
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
476
fenec
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…