Formules appliquées aux lignes ajoutées

wilfried_42

XLDnaute Barbatruc

• 5 Avril 2007

• #16

Re : Formules appliquées aux lignes ajoutées

bnjour cristophe

tu selectionnes les feuilles que tu desires avec :

Sheets(Array("Feuil1", "Feuil4", "Feuil6", "Feuil3")).Select

tout ce que tu fais sur feuil1 est repercuté sur les autres

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 5 Avril 2007

• #17

Re : Formules appliquées aux lignes ajoutées

Bonjour Wilfried,
J'ai fait un test avec :
Sheets(Array("Feuil1", "Feuil4", "Feuil6", "Feuil3")).Select
ActiveCell.EntireRow.Insert shift:=xlDown

mais la ligne ne s'insère que dans la feuille 1.
Un autre piste peut-être ?
Bon après-midi à toi.

Par contre si j'insère une ligne manuellement (clic droit sur une ligne, insertion) cela fonctionne et c'est cà que j'aimerais avoir dans le code.

 

Dernière édition: 5 Avril 2007

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Avril 2007

• #18

Re : Formules appliquées aux lignes ajoutées

re:

j'ai fait des essais avec ce code :

Sheets(Array("Feuil1", "Feuil7", "Feuil5", "Feuil9", "Feuil3")).Select
Sheets("Feuil1").Activate
Rows("21:21").Select
Selection.Insert Shift:=xlDown

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 5 Avril 2007

• #19

Re : Formules appliquées aux lignes ajoutées

Re,
Oui mais dans ce cas tu ne peux pas choisir où insérer la ligne ?
Donc tu es obligé d'insérer une ligne à la ligne 21 mais ce n'est pas le but recherché.
Si tu as d'autres idées, je t'en remercie d'avance.
Bonne soirée.

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Avril 2007

• #20

Re : Formules appliquées aux lignes ajoutées

re:

rows("21:21").select est un simple exemple si tu le veux sur la ligne de la cellule active

tu remplace par ActiveCell.EntireRow.select le tut c'est de faire select, que chaque ligne de toutes les feuilles choisies, soit selectionnée

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 5 Avril 2007

• #21

Re : Formules appliquées aux lignes ajoutées

Re,
Oui c'est bien là où je veux en venir : ton code ne fonctionne pas, as-tu fais le test ? Dans le cas contaire envoies ton code que je vérifies.
Merci et bonne soirée.

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Avril 2007

• #22

Re : Formules appliquées aux lignes ajoutées

re:
desolé christophe je ne comprends pas du tout ce que tu veux dire, si tu as deja fait des essais, pourquoi me poser toutes ces question pour me dire que ca ne marche pas et me demandé si j'avais fait des test

fichier joint , et amuses toi. bonne soirée

Ps: fil clos

 

Pièces jointes

• essai insert ligne.xls

  43 KB · Affichages: 45

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 5 Avril 2007

• #23

Re : Formules appliquées aux lignes ajoutées

Re Wilfried,
Ce n'est n'est pas la peine de le prendre mal. En fait, il suffisait simplement de dire qu'il fallait rajouter "Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select" avant "Selection.Insert Shift:=xlDown".
Merci et bonne soirée et sans rancunes, j'espère.

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Avril 2007

• #24

Re : Formules appliquées aux lignes ajoutées

re

desolé christophe, mais ce n'est pas mos qui ai ecrit la macro, mais l'enregisteur de macro, il suffisait d'adater lol

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 5 Avril 2007

• #25

Re : Formules appliquées aux lignes ajoutées

Re,
Dans ce cas, précises-le car tout le monde n'a pas le même niveau en VBA et moi le premier (pourtant l'enregistreur de macros étant mon premier allié).
Merci encore pour tes précisions et bonne soirée.

 

Vote positif 0 Vote négatif

J

jjjerome

XLDnaute Occasionnel

• 5 Avril 2007

• #26

Re : Formules appliquées aux lignes ajoutées

Bonsoir,
Et merci Wilfrid pour cette nouvelle proposition, ça a l'air de très bien fonctionner, par contre, il ne faut pas que la ligne 10 soit masqué, parce que sinon, toutes les lignes insérés seront masquées...

 

Vote positif 0 Vote négatif