Insérer ligne1 Feuil1 dans toutes les feuilles du classeur

L

Lii

XLDnaute Impliqué

• 16 Novembre 2008

• #2

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2008

• #3

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

Bonjour

A tester

Code:

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

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 16 Novembre 2008

• #4

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.

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 16 Novembre 2008

• #5

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 !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2008

• #6

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

Re


Esssaie avec cette modif

Code:

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

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 16 Novembre 2008

• #7

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é.

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 16 Novembre 2008

• #8

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!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2008

• #9

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

Re



Essaie ainsi alors

Code:

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

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 16 Novembre 2008

• #10

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.

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 16 Novembre 2008

• #11

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

Code:

Sheets("Feuil1").Columns.AutoFit

Staple est très occupé ce soir 😀

A+

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 16 Novembre 2008

• #12

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

 

Vote positif 0 Vote négatif