Valeur par default

Version imprimable

28/08/2013, 19h36
AgriPhilou

Valeur par default

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. :roll:
28/08/2013, 21h52
Daniel.C

Bonsoir,

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

Citation:

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

Qu'est-ce qu'on met ?
28/08/2013, 22h03
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.
28/08/2013, 22h39
jijie

on est en vba, mais :

=SI(A2="Naissance";AUJOURDHUI();"")
28/08/2013, 22h43
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.

alors sur ta feuille :

Code:

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

28/08/2013, 23h20
AgriPhilou

J'ai fais un essai dans un nouveau classeur, la date ne se met pas en cellule C.

J'ai relancé le classeur mais toujours rien.

Merci

bon je ne sais pas si je comprends mais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LiGne As Integer
If Target.Column = 1 Then ' on contrôle si acces ds la colonne 1
LiGne = ActiveCell.Row ' ligne active
With Sheets("feuil1")
 
   If ActiveCell = "Naissance" Then
  .Cells(LiGne, 2) = Format(Now(), "dd/mm/yyyy") 'date du jour en b donc né
  .Cells(LiGne, 3) = Format(Now(), "dd/mm/yyyy") ' date du jour en c né mais aussi entré
  End If
     If ActiveCell = "Achat" Then
  .Cells(LiGne, 2) = ""
  .Cells(LiGne, 3) = Format(Now(), "dd/mm/yyyy") ' date du jour en c  entré
  End If
End With
End If
 
End Sub

28/08/2013, 23h51
AgriPhilou

Tu as bien compris, lorsqu'on écrit "Naissance" dans la colonne A par défaut
la cellule B juste à coté se remplie par la date du jour mais aussi la cellule C car c'est une naissance.

Par contre si c'est un achat la cellule B doit restée vide, seule la C comprend le jour d'aujourd'hui par défaut.

Pourtant le code ne fonctionne pas je ne comprend pas.

Je vais faire des essais de nouveau demain.

Encore merci et bonne nuit. ;)
28/08/2013, 23h58
jijie

Tu as bien coller le code dans feuil1?

Si ta feuille se nomme différemment adapte sur la ligne 5 du code le nom de ta feuille!

Le principe est que si tu affiche naissance ou achat en colonne A alors tes modifs se réalisent !
29/08/2013, 00h01
nibledispo

valeur par default

bonjour,

je ne saisis pas l'intéret de la chose puisqu'il faudra de toute manière écrire soit la date de naissance soit la date d'entrée.

Jijie -mettre aujourd'hui () ou son équivalent en VBA signifie que l'animal "toutou" naitra chaque jour que Dieu fait. Me trompe-je ?

AgriPhilou - pour résumer : tu veux interdire l'accès à C2 quand tu écris ou sélectionnes "naissance" et interdire l'accès à B2 si tu écris ou sélectionnes "achat" ?

Si c'est cela, il suffit que le code protége la case qui convient selon la sélection.

A supposer qu'il n'y ait que les deux options mentionnées
Algorithme pour VBA : Si [Ai] = "naissance" protège [Ci] sinon protège [Bi].

je met indice i car je suppose que cela vaut pour les lignes suivantes.
Cordialement.

cordialement.
29/08/2013, 00h15
jijie

Salut nibledispo

Au passage j'ai regardé ton post et tentée de te donner une réponse!!

pour te répondre sur ce post, il me semble que c'est ce que souhait Agriphilou alors ....
29/08/2013, 00h56
nibledispo

valeur par default

Bonjour Jijie,

Je suppose que tu veux parler du problème de Stéfanie.
J'ai posté car je trouvais vraiment trop bête d'être bloqué à cause d'une différence de version.
J'ai vu ta réponse et celle d'un autre membre. J'espère qu ce sera bon pour elle également.

Il semble que les problèmes d'impression rebutent les membres. Moi même j'avais, il y a quelques mois posté, sur ce sujet et n'ai jamais reçu de réponse. D’où mon post.

Ais-je tort quand je dis qu'un animal naitra chaque jour que Dieu fait avec le frère d'aujoudhui() ?

a+
29/08/2013, 11h52
jijie

Salut Nibledispo

Agriphilou nous dit que lorsqu'il y a une naissance elle saisie le jour ! De toute façon si par hasard ce n'est pas le cas cela lui laisse la possibilité de modifier puisque la condition est sur taget=1 !

Mais je ne comprend pas pourquoi ça ne fonctionne pas chez lui???

PS Regarde également mon post STP!
29/08/2013, 15h34
AgriPhilou

Bonjour Paul,

Le but est de saisir plus vite un animal, une naissance ce jour sera saisie aujourd'hui même de jour comme de nuit donc en saisissant "Naissance" la date va s'inscrire automatiquement en B puis en C, C correspond à la date d'entrée Né = entrée

Pour un achat la date de naissance devra être saisie manuellement par contre la date d'entrée sera bien la date du jour car cet achat sera également saisie le jour de l'entrée sur l'exploitation.

Je ne comprend pas pourquoi ça ne fonctionne pas chez moi, j'ai de nouveau copié le code puis je l'ai mis dans un nouveau classeur avec le même nom inscrit dans ce code "Feuil1" mais rien ne se passe.

Si ça fonctionne chez vous pourriez-vous m'envoyer une copie ?
SVP merci.
29/08/2013, 15h44
jijie

ds ton post 1 tu me dit :

Citation:

En A1 j'ai une liste qui contient "Naissance, Achat"

donc lorsque tu modifie cette liste alors la macro se lance !
29/08/2013, 15h47
AgriPhilou

Bonjour, cette fois ça fonctionne.

Merci bonne après midi. :ccool:

Fuseau horaire GMT +2. Il est actuellement 22h29.