XL 2010 figé les données des lignes après calcul

Dranreb

XLDnaute Barbatruc

• 7 Janvier 2017

• #2

Bonjour.
Essayez ça dans le module Feuil1 (Feuil1) :

VB:

Private Sub Worksheet_Activate()
Dim DateRéf As Date, dL As Long
DateRéf = [N2].Value: dL = DateRéf - [A2].Value
If DateRéf <> Date Then
   [A2].Offset(dL).Value = DateRéf
   [B2:D2].Offset(dL).Value = [H6:J6].Value
   DateRéf = DateRéf + 1: dL = dL + 1
   [A2].Offset(dL).Value = DateRéf
   [B2:D2].Offset(dL).FormulaR1C1 = "=R6C[6]"
   [N2].Value = DateRéf
ElseIf [N2].HasFormula Then
   [N2].Value = DateRéf: End If
End Sub

 

Vote positif 0 Vote négatif

mobenjilali

XLDnaute Occasionnel

• 7 Janvier 2017

• #3

Merci de votre réponse, mais je n'arrive pas à l’inséré le code dans la feuille du classeur 🙁

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Janvier 2017

• #4

Qu'est ce qui vous bloque ? J'ai dit le Module de la feuille.
Vous pouvez y accéder par clic droit sur l'onglet, Visualiser le code.
N'oubliez pas d'enregistrer en : Classeur Excel (prenant en charge les macros) (*.xlsm)

 

Vote positif 0 Vote négatif

mobenjilali

XLDnaute Occasionnel

• 7 Janvier 2017

• #5

le code ne fonctionne pas!! avec le fichier

 

Pièces jointes

• Test.xlsm

  16.6 KB · Affichages: 26

Vote positif 0 Vote négatif

mobenjilali

XLDnaute Occasionnel

• 7 Janvier 2017

• #6

J'ai encore besoin de votre aide..

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Janvier 2017

• #7

Mettez la date de hier en N2
Et n'y mettez plus de formule.

Remarque: il vaudrait mieux If DateRéf < Date Then
au lieu de : If DateRéf <> Date Then
Parce que je m'aperçois que comme c'est, s'il y a une date du lendemain ça l'incrémente aux jours suivants chaque fois qu'on active la feuille.

 

Dernière édition: 7 Janvier 2017

Vote positif 0 Vote négatif