Discussion :

[kadden]

Bonjour,
Il est vrai que Excel ne constitue pas une base de donnée,
mais je voulais réaliser dans une feuille Excel ceci :

- 3 colonnes : Nom | Question à poser | Date Question

Donc je souhaite crée un fichier de questions d'utilisateur sur Excel, à chaque saisie d'une question, la date du jour s'inscrit automatiquement dans la colonne "Date Question".

Problème :
- J'ai intégré la formule suivant :

Code :

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

 =SI(C7 <> "";AUJOURDHUI())

==> Cette formule, note la date du jour dés la saisie de la question.
====> Si on saisie une question 1, elle aura la date 26 - 01 - 2012
==> Et si demain on remet à jour la question 1, elle aura pas la date du 26 - 01 - 2012 mais elle aura la date de demain.

Merci de me dire comment faire pour que chaque question reçoit la date du jour ou elle a été saisie sans possibilité de changer la date en cas de modification de la question.

[jfontaine]

Bonjour,


Avec une formule, je ne vois pas de solution (peut être qu'il en existe une).

Par contre tu peux utiliser le code ci dessous qui devrait être une bonne base de départ

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column < 3 Then
    If Range("A" & Target.Row).Value <> "" And Range("B" & Target.Row).Value <> "" And Range("C" & Target.Row).Value = "" Then
        Range("C" & Target.Row).Value = Date
    End If
End If
 
End Sub

[kadden]

Merci pour votre retour,
Je n'arrive pas a exécuter votre code, il m'affiche le message suivant "Objet requis" pour

Code :

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

If Target.Column < 3 Then

Ci joint la capture d'écran.
Avez-vous une idée sur de quoi il s'agit ?



Uploaded with ImageShack.us

[jfontaine]

La variable TARGET n'existe pas dans l’évènement Commandbutton1_Click.

Si tu veux adapter, remplace Target par activecell

[rtg57]

Bonjour,

la solution existe sans passer par une macro, mais elle est un peu tarabiscotée:
Commencez par mettre dans une cellule de la feuille, par exemple A1 la formule

Code :

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

=AUJOURDHUI()

Donc A1 aura chaque jour une autre valeur.

Ensuite dans la case où vous voulez qu'apparaisse la date de la question, inscrivez la formule suivante:

Code :

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

=SI(C7=0;"";SI(D7="";$A$1;D7))

Vous pouvez ensuite tirer la formule vers le bas.
Ce mécanisme ne fonctionne que si vous limitez le nombre d'itération de calcul. Il faut donc aller dans le menu Outils -> Options... puis choisir l'onglet Calculs. Dans la case du Nombre d'itérations, limitez à 1 au lieu de 100

Le principe de ce mécanisme est:
- Si la case contenant la question est vide (C7) -> On ne met rien dans la case de la date (D7)
- S'il y a une question:
.. - Si la case de la date est vide -> On copie le contenu de A1, donc la date du jour
.. - Sinon, on copie la valeur de la case elle-même, c'est à dire la date de son premier remplissage.

Le système est tarabiscoté car on a en fait une référence circulaire: la case D7 se remplit avec sa propre valeur. Si on laisse faire EXCEL, il tourne en rond jusqu'à la limite des itérations et se bloque. C'est pour cela qu'il faut limiter le nombre d'itérations.

Personnellement, je préfère la solution en passant par le VBA, celle que je vous livre là... c'est pour le fun