Discussion :

[karlgina]

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

[Pierre Fauconnier]

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 :

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

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 :

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

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.

[karlgina]

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

[Philippe Tulliez]

Bonjour,
Ce code renvoie une erreur

Code :

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

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

Celui-ci ne renvoie pas d'erreur

Code :

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

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 :

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

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.

[mercatog]

Bonjour Corona

Celui-ci ne renvoie pas d'erreur

Code :

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

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

Code :

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

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

[karlgina]

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

[Pierre Fauconnier]

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é.