Discussion :

[AgriPhilou]

Bonsoir,

En A1 j'ai une liste qui contient "Naissance, Achat"
En B1 j'ai une date de Naissance à saisir pour les deux cas
En C1 une date d'entrée qui doit être saisie pour les achats

Je voudrais que lorsque je saisie "Naissance" en A1 que la date de naissance en B1 soit automatiquement inscrite en C1.

Si je change la valeur en A1 que la cellule en C1 soit actualisée automatiquement.

Je travaille dans un tableau qui s'appelle "Tableau1"
C'est possible ?

Merci.

[Daniel.C]

Bonsoir,

Si tu travailles avec un tableau (les tableaux 2007), la ligne 1 doit comporter les entêtes, non ?

Si je change la valeur en A1 que la cellule en C1 soit actualisée automatiquement.

Qu'est-ce qu'on met ?

[AgriPhilou]

Bonsoir Daniel,

Oui en effet, donc en A2 B2 C2 pour les saisies.

En A1 = Code
En B1 = Date né
En C1 = Date entrée

En A2 si on met "Naissance" et que l'on a inscrit une date de naissance en B2 alors on la recopie en C2, si au contraire on sélectionne "achat" on supprime la cellule C2 et vice versa.

En fait on doit travailler avec les dates d'entrées pour les statistiques, pour saisir plus vite un né sera entré le jour de sa naissance par contre si on achète un animal sa date d'entrée ne sera pas sa date de naissance donc la cellule C2 devra être vide pour la saisir manuellement.

Merci.

[jijie]

on est en vba, mais :

=SI(A2="Naissance";AUJOURDHUI();"")

[AgriPhilou]

Merci jijie,

ça ne peut pas fonctionner il faut que du code VBA travaille derrière sinon la formule sera écrasée, et ne sera pas fiable.

Bonne soirée.

[jijie]

alors sur ta feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LiGne As Integer
If Target.Column = 1 Then ' on contrôle si accès ds la colonne 1
LiGne = ActiveCell.Row ' ligne active
  If ActiveCell = "Naissance" Then
  With Sheets("feuil1")
  .Cells(LiGne, 2) = Format(Now(), "dd/mm/yyyy") 'date du jour en b
  .Cells(LiGne, 3) = "" ' vide la colonne c
  End With
  End If
End If