cerhu > microsoft.* > microsoft.excel

free (29/04/2006, 12h22)
bonjour ,
je m'explique :
j'ai trois cellules :
- 1 ere cellule : date debut(constante)
- 2 eme cellule : date fin
- 3 eme cellule : nb de jour = date fin - date debut +1
la 3 eme cellule donc est deduite des deux autres.

comment faire pour , quand je modifie le nb de jours , la
date de fin soit automatiquement calculée. Ceci en permettant aussi
de modifier la date de fin et de retrouver le nb de jours
en troisieme cellule.
le tout avec juste 2 eme et 3 eme cellule modifiable par l'utilisateur.
j'ai appelé ca 'reciprocité de maj' mais ca porte peut-etre
un autre nom.
c'est possible ?

merci
nom
Daniel (29/04/2006, 12h40)
Bonjour.
Avec une macro, oui.
Cordialement.
Daniel
"free" <charles.rayer> a écrit dans le message de news:
44533ce7$0$26819$636a55ce...
[..]
lSteph (29/04/2006, 12h55)
Bonjour,

Essaye plutôt Outils Valeur Cible.

Car sinon si la 3ème cellule est calculée sur les deux autres
c'est précisément celle qui n'a pas être modifiée sauf à écraser la formule
..
ou alors
> comment faire pour , quand je modifie le nb de jours , la
> date de fin soit automatiquement calculée

Tu laisses date de début constante nb jours constante
et datefin =date debut +nb jours -1

lSteph

"free" <charles.rayer> a écrit dans le message de news:
44533ce7$0$26819$636a55ce...
[..]
lSteph (29/04/2006, 13h09)
Sinon par macro exemple en b3 c3 d3
dans le code de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = [c3].Address Then [d3] = [c3] - [b3] + 1
If Target.Address = [d3].Address Then [c3] = [b3] + [d3] - 1
Application.EnableEvents = True
End Sub

'lSteph

"free" <charles.rayer> a écrit dans le message de news:
44533ce7$0$26819$636a55ce...
[..]
JB (29/04/2006, 13h45)
Bonjour,

-On peut saisir la date en colonne C
-On peut saisir le nb de jours en colonne D

A B C D
Nom Début fin Nb jours
xxx 01/04/2006 13/04/2006 13
yyy 10/02/2006 15/02/2006 6

[..]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect([c2:c13], Target) Is Nothing And Target.Count = 1
Then
Target.Offset(0, 1) = Target.Offset(0) - Target.Offset(0, -1) + 1
End If
If Not Intersect([d2:d13], Target) Is Nothing And Target.Count = 1
Then
Target.Offset(0, -1) = Target.Offset(0, -2) + Target - 1
End If
Application.EnableEvents = True
End Sub

Cordialement JB
free (29/04/2006, 15h48)
en effet , exemple en CJOINT et gestion généralisable.

seule restriction si on travaille avec un TARGET.count > 1.

mais ca me convient déjà largement.

encore merci.
Discussions similaires
Comment faire Mise à jour des liaisons dans fichier PPS?

LA MISE A JOUR OFFICE SP2 NE S'INSTALLE PAS COMMENT FAIRE ?

mise à jour, comment faire ?

Mise à jour Proftpd sur Debian 2.2, comment faire


Fuseau horaire GMT +2. Il est actuellement 03h05. | Privacy Policy