Incrémentation automatique de la date

bonsoir,

je suis coincé et pourtant je suppose que ça doit être tout simple pour des experts, mais pour moi qui débute pas évident.

Voilà j'ai fait un userform et je veux que la date de la saisie s'affiche dans le formulaire à chaque initialisation et soit reporter dans mon tableau ensuite.

J'ai cherché partout sur le net et le forum mais j'ai pas trouvé ce que je voulais.

pouvez vous m'aider ça m'arrangerait s'il vous plait.

merci d'avance

Salut

Pour afficher la date dans un contrôle (par exemple une zone texte nommée txtDateSaisie), tu peux utiliser ce code qui sera exécuté à l'initialisation du userform

Code:

---

1 2 3

Private Sub UserForm_Initialize() txtDateSaisie.Value = Format(Date, "dd/mm/yyyy") End Sub

---

Pour passer la date à une cellule de la feuille, puisque c'est la date du jour, je te conseille de la passer directement, sans passer par une "interprétation" de la date affichée dans le contrôle.

Code:

---

range("a1").value=date()

---

Ne perds pas de vue que la date est un nombre, pour Excel, et qu'une valeur saisie dans un contrôle est du texte. VBA interprète habituellement les dates au format mm/dd/yy et 09/04/11 <> 04/09/11.

Tu liras avec intérêt ce tuto d'Ormonth sur les dates en VBA.

Merci pour l'aide que tu m'as apportée.

ça marchait , mais plus maintenant il me met erreur '1004'
la méthode select de la classe range a échoué

et lorsque je fait débogage pas à pas, il se mets sur la ligne de la commande de la date !!

est ce que ça à rapport ma question que tu m'as déplacée ?

je te joins mon fichier http://www.cijoint.fr/cjlink.php?fil...cijC4pM6Qq.xls

A priori, pas de rapport avec ton autre question...

Le fichier joint n'est pas toujours utile. Il est préférable de joindre le code que tu as utilisé en précisant sur quelle ligne le problème se pose

Cela étant, il n'est que rarement utile de sélectionner une cellule pour pouvoir la manipuler. Il est en général plus indiqué de l'adresser directement, comme je l'ai exposé dans le code que je t'ai donné.

Bonjour,
Ce code renvoie une erreur

Code:

---

Sheets("Feuil2").Range("A5").Select

---

Celui-ci ne renvoie pas d'erreur

Code:

---

1 2	Sheets("Feuil2").select ' ou Sheets("Feuil2").Activate Range("A5").Select

---

Cependant, il est parfaitement inutile en VBA d'utiliser le Select et l'Activate pour accéder aux propriétés d'un Range.

Code:

---

1 2 3 4

AOIForm1.N°Box1.Value = Range("A4").Value + 1 ' Sheets("enregistrement").Range("A5").Select <<< Ligne à supprimer num = Sheets("enregistrement").Range("A5").Value + 1 Sheets("enregistrement").Range("A4").Value = num

---

J'avoue ne pas bien comprendre comment tu gères l'incrémentation de tes nombres. Je crois qu'il y a confusion entre A4 et A5 mais je n'ai pas fort approfondi la question.

Bonjour Corona

Citation:

---

Envoyé par corona

Celui-ci ne renvoie pas d'erreur

Code:

---

1 2	Sheets("Feuil2").select ' ou Sheets("Feuil2").Activate Range("A5").Select

---

---

Code:

---

1 2 3 4 5

'Code dans Feuil3 Public Sub ContreExemple() Sheets("Feuil2").Select ' ou Sheets("Feuil2").Activate Range("A5").Select End Sub

---

Ce code envoi aussi une erreur si ce code est mis dans le module d'une feuille autre que Feuil2.

Bon, on fait, je vous joins de l'inutilité de Sélectionner dans ce cas

merci j'ai réussi à modifier et ça marche