XL 2016 Propagation de données

halecs93 à dit:

les dates ont même été supprimées.

Cliquez pour agrandir...

Formule = "=SI(OU($A1=0;$A1="""");"""";INDEX(Entete!B$1:L$7;
;COLONNE()-1))"

sylvanu à dit:

Ca, sans votre PJ je n'aurais pas trouvé.

Faux.
En colonne A d'Octobre les dates n'ont pas été supprimées mais remplacées par des zéros :
Apparence : ----------------------------En retirant l'option Afficher un zéro quand la valeur est nulle:
Regarde la pièce jointe 1182704--------- Regarde la pièce jointe 1182705
Donc 0 conduit au résultat que vous voyez. Car JOURSEM("00/00/00";2)=6 donc considéré comme un samedi.

En PJ j'ai modifié la formule. Celle ci n'est calculée que si en colonne A il n'y a ni vide, ni 0 :

VB:

Formule = "=SI(OU($A1=0;$A1="""");"""";INDEX(Entete!B$1:L$7;
;COLONNE()-1))"

Cliquez pour agrandir...

sylvanu à dit:

Plus la PJ initiale est précise et représentative, plus c'est simple d'éviter les écueils.
La protection pose problème sur la plage à définir sur le nombre de colonnes.
Donc j'ai remplacé la recherche de la dernière colonne en me limitant à la colonne K.

Cliquez pour agrandir...

sylvanu à dit:

Vraiment désolé. La bonne version était restée dans Téléchargements. Sorry.

Cliquez pour agrandir...

sylvanu à dit:

Des "$" ont sautés malencontreusement quelque part dans une version ... $B est devenu B.

Cliquez pour agrandir...

sylvanu à dit:

Des "$" ont sautés malencontreusement quelque part dans une version ... $B est devenu B.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Halecs,
Vous n'avez pas adapté les macros en fonction de votre nouveau contexte.
Dans la PJ initiale la plage où coller la formule commençait en B1.
Comme vous ne l'avez pas modifié il continue à le faire.
Donc je pense qu'il faut modifier :

VB:

.Range(.Cells(1, "B"), .Cells(DL, "N")).FormulaLocal = Formule
.Range(.Cells(1, "B"), .Cells(DL, "N")) = .Range(.Cells(1, "B"), .Cells(DL, "N")).Value

Pour initialiser la plage en ligne 9 :

Code:

.Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
.Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value

Par contre je ne comprends pas votre DL = .Cells(39, "B").Row pourquoi pas DL=39 si vous arrêtez votre plage à la ligne 39 ?
Et si vous voulez figer votre plage aux lignes 9:39 pourquoi ne pas utiliser Range("B9:N39") au lieu de truc comme Range(.Cells(9, "B"), .Cells(DL, "N")) ?
Un essai en PJ juste avec cette modif, mais je n'ai rien testé d'autre.

Cliquez pour agrandir...

sylvanu à dit:

Re,
De plus je pense que la formule est évidemment fausse à cause du changement de plage.
Cependant je suis un peu largué par votre nouveau fichier car les macros ne sont pas commentées, et je n'arrive pas à suivre le fil.
Donc en PJ le fichier type initial avec les feuilles mois de votre nouvelle PJ, avec la macro :

VB:

Sub Propager()
Application.ScreenUpdating = False
For Each F In Worksheets
    If F.Name <> "Entete" Then
        With Sheets(F.Name)
            Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(Entete!B$1:K$7;JOURSEM($A9;2);COLONNE()-1))"   ' Formule à mettre à jour
            .[B9:N39].ClearContents
            .[B9:K39].FormulaLocal = Formule ' Adapter colonne K ( mise à K car idem plage Entete )
            .[B9:K39] = .[B9:K39].Value
        End With
    End If
Next F
End Sub

Inspirez vous de ça pour recoller les morceaux sur votre nouveau fichier.

Cliquez pour agrandir...