Base de données

[Pélican34]

Bonjour à tous,
Je suis en train d'essayer de faire un petit programme Excel, mais je suis vraiment débutant.
Après des heures et des heures de recherche, je me tourne vers vous afin d'y trouver de l'aide.
Vous trouverez ci-joint mon fichier, et je vous remercie d'avance pour votre aide.

Je n'arrive pas à joindre mon fichier

Message édité par: Pélican34, à: 21/05/2006 18:17

 

[andré]

Salut,

Une première aide :

Lien supprimé

Â+

 

[Pélican34]

Merci André
Voilà le fichier (enfin j'espère) [file name=Projet_logiciel_pompier.zip size=36759]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Projet_logiciel_pompier.zip[/file]

 

[LFNY]

Quelle est la question ?

 

[Pélican34]

La question est que mon programme ne fonctionne pas et comme je n'ai pas beaucoup d'expérience en Visual Basic, je n'arrive pas résoudre les problèmes. C'est pour cela que je vous joint mon fichier.
Merci beaucoup pour votre aide.

 

[Pierrot93]

Bonsoir Pelican34

Essaie plutot le code ci dessous quand tu veux tester la propriété d'un testbox qui se trouve sur un multipage

If MultiPage1.Page1.TextNOM.Value = '' Then

par contre, à mon avis tes déclarations de variables 'dim TextNOM' ne servent à rien

Bonne soirée
@+

 

[ChTi160]

Bonsoir Pélican34
bonsoir le fil
en complément de ce que Pierrot93 t'a dit
j'ai constaté que l'ensemble des nom de text textBox n'est pas bon Exemple tu écris
If .TxtNOM.Value = '' Then au lieu de TextNom.value donc Bug
sino effectivement pint n'est besoin de déclarer tes objets dans le userform
tu peux mettre
With UsfBoite_Renseignements.Multipage1.page1
If .TxtNOM.Value = '' Then
etc

puis en fin de liste de ton transfert
'Range('W' & num).Value = .Txt.Value
.....
'Range('Y' & num).Value = .Txt.Value
......
'Range('AR' & num).Value = .Txt.Value
'Range('AS' & num).Value = Txt.Value
'Range('AT' & num).Value = Text.Value
End With
tu as aussi de nombreuse ligne avec Txt.value ???
il faut avant tout que tu vérifies, l'exactitude des noms de tes control au niveau de ta macro de transfert,avant de vouloir lancer ton appli
bonne continuation
bonne fin de Soirée

Oupssssssssss Salut Michel

Message édité par: Chti160, à: 21/05/2006 19:21

 

[michel_m]

Bonsoir à tous,

Pierrot a raison tes déclarations dim textnom ne servent à rien (les textbox renvoie du texte)

par contre dans ton code de l'usf, fais précéder tes
If TxtNOM.Value = '' Then
^par
If Me.TxtNOM.Value = '' Then


A+
Michel_M

 

[michel_m]

Et bing!

Salut Jean-Marie! y'avait ben longtemps qu'on s'était croisé sur un fil

amicalement

Michel

 

[ChTi160]

Salut Michel
Effectivement
mais on ne s'oublie pas Lol
je me rappelle de toi
Salut l'Artiste

 

[Pélican34]

Merci beaucoup pour votre aide, je vais corriger ces erreurs, et je vous recontacterai.
Merci beaucoup

 

[Pélican34]

Bonjour,
Je vous remercie pour vos conseils, puisque maintenant mon programme fonctionne.

En revanche j'ai une nouvelle question,
Est il possible de remplir une cellule sous la forme JJ/MM/AAAA lorsque l'on utilise dans un Userform 3 comboBox, 1 pour Les jours, 1 pour les Mois et 1 pour les années?

Si oui Pourriez vous je vous prie m'écrire le code de cette programmation?

Merci encore!

 

[AV]

Salut,

''...est il possible de remplir une cellule sous la forme JJ/MM/AAAA lorsque l'on utilise dans un Userform 3 comboBox, 1 pour Les jours, 1 pour les Mois et 1 pour les années...''

[Feuil1!A1]=dateserial(ComboAvecAn,ComboAvecMois,ComboAvecJour)

AV [aaa]

 

[ChTi160]

Salut Pélican34
bonjour le fil
arfff trop rapide AV
j'ai à peu prés la même proposition que toi
procèdure à adapter en la collant dans un module pour test(attention le mois doit être un integer donc utiliser ll'index du combobox Mois)
Sub DatePimpom()Dim MaDate As Date
Dim Monjour As Byte
Dim MonMois As integer
Dim MonAnnée As Integer
Monjour = 1 'ici tu mets Combobox machin a la place de 1
MonMois = 1 'ici tu mets Me.Combobox(machin).listIndex+1
MonAnnée = 2006 'ici tu mets Combobox machin
MaDate = DateSerial(MonAnnée, MonMois, Monjour)
MsgBox MaDate
End Sub
Bonne journée

 

[Pélican34]

Merci AV et ChTi160, mais en tappant la formule que vous venez de me donner, le debogueur se met en route avec incompatibilité de type.

Cette erreur peut elle provenir du fait que les mois sont écris en toute lettre (Janvier, Février....)?
Vu la réponse de ChTi160 je pense que c'est celà, mais comment faire pour conserver le mois en toute lettre?

Message édité par: Pélican34, à: 22/05/2006 08:37