Formules appliquées aux lignes ajoutées

[jjjerome]

Bonjour,
Ci-joint, un extrait du planning que j'utilise (environ 400 lignes).
Mon problème est que, losque j'insere des lignes à ce planning, les fonctions qui sont appliquées aux autres cellules, ne le sont pas à ces nouvelles lignes.
En effet, pour utiliser les filtres (cellules non vides), pour une semaine entière, j'utilise la formule du genre : =SI(NB.VIDE(I9:M9)=5;"";"OK"), dans les colonnes en rouge, qui sont normalement masquées. Comment faire pour que cette formule fonctionnent même pour les lignes ajoutées ???
Si quelqu'un à une autre solution pour éviter ces formule (VBA...), je suis preneur.😕

Merci d'avance

 

[wilfried_42]

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

 

[criscris11]

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.

 

[wilfried_42]

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

 

[criscris11]

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.

 

[wilfried_42]

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

 

[criscris11]

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.

 

[wilfried_42]

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

 

[criscris11]

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.

 

[wilfried_42]

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

 

[criscris11]

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.

 

[jjjerome]

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