Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

[samimi94]

Bonsoir à tous,

Encore moi, cette fois ce n'est pas un message d'erreur mais je ne parviens pas à trouver la syntaxe qui me permet d'insérer la ligne 1 de la feuille 1 dans les autres feuilles de mon classeur. Je souhaite conserver les intitulés de mes colonnes de la feuille 1 autant de fois que j'ai de feuilles créées.

De plus, je souhaiterais ajouter à la macro l'ajustement automatique de mes colonnes.

Si vous avez des solutions je prends avec plaisir.

Merci.
Samimi.

 

[Lii]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Bonsoir,

le bouton "Enregistrer une Macro" te donnera une première approche (avec Edition, Coller et Collage spécial).
Intitulés colonne feuille 1, ligne1 ? Il faut préciser davantage.

 

[Staple1600]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Bonjour

A tester

Sub copieligneun()
For i = 1 To Sheets.Count
If Worksheets(i).Name <> "Feuil1" Then
Worksheets("Feuil1").Rows("1:1").Copy Worksheets(i).Rows("1:1")
End If
Next
End Sub

 

[samimi94]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Re-bonsoir,

Lii, je connais l'enregistreur de macro, il est pratique pour faire des choses simplettes, mais pour le coup je n'arrive pas à l'adapter à ma situation car je ne sais jamais à l'avance combien de feuilles contiendra mon classeur.

Staple 1600, merci pour ton bout de code, je vais le tester et voir si ça fonctionne.

Merci à vous deux.

 

[samimi94]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Re,

Merci Staple1600, ça correspond bien à ce que je voulais c'est super.

Si je peux encore abuser de votre savoir, comment rajouter une syntaxe qui ajuste automatique toutes les colonnes de chacune de ces mêmes feuilles ?

Thank's !

 

[Staple1600]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Re


Esssaie avec cette modif

Sub copieligneunBis()
For i = 1 To Sheets.Count
If Worksheets(i).Name <> "Feuil1" Then
Worksheets("Feuil1").Rows("1:1").Copy Worksheets(i).Rows("1:1")
Worksheets(i).UsedRange.Columns.AutoFit
End If
Next
End Sub

 

[samimi94]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Re Staple1600,

Merci pour ton aide et ta patience.
Pour le premier point je m'aperçois qu'il copie la ligne1 de la feuille 1 pour les coller dans les autres feuilles, mais il ne l'insère pas, du coup il écrase la ligne qui existait déjà à cette position (il est vrai que pour ce point j'ai mal exprimé mon besoin).

J'ai essayé en mettant Selection.EntireRow.Insert mais ça ne fonctionne pas, je pense que je ne dois pas le mettre au bon endroit.

Pour l'ajustement des colonnes je tente cela de suite et te tiendrai informé.

 

[samimi94]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Re,

L'ajustement des colonnes fonctionne à merveille 🙂 Je suis super ravie.

Il ne me reste plus qu'à trouver comment insérer les cellules copiées et non les coller directement.

Merci beaucoup!

 

[Staple1600]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Re



Essaie ainsi alors

Sub copieligneunTER()
For i = 1 To Sheets.Count
If Worksheets(i).Name <> "Feuil1" Then
Worksheets(i).Range("A1").EntireRow.Insert
Worksheets("Feuil1").Rows("1:1").Copy Worksheets(i).Rows("1:1")
Worksheets(i).UsedRange.Columns.AutoFit
End If
Next
End Sub

 

[samimi94]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

RE,

Les cellules copiées sont bien insérées, c'est nickel.
Dernière petite chose après j'arrête, promis.

Les colonnes sont ajustées correctement sur toutes les feuilles du classeur sauf la première, si je mets Worksheets(I, Feuil1) ca me met une erreur !

Peux-tu me dire ce que je dois modifier ?

Merci encore.

 

[bqtr]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Bonsoir,

Tu peux par exemple rajouter après le Next et avant le End Sub

Sheets("Feuil1").Columns.AutoFit

Staple est très occupé ce soir 😀

A+

 

[samimi94]

Re : Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

Bonsoir BQTR,

Merci pour ta réponse qui me satisfait pleinement.
Ca fonctionne à merveille.

Je vous souhaite à tous une excellente soirée.
Samimi