Bonjour à tous,
Voilà un petit problème à vous proposer.
Via un userform, j'ai 2 combobox de dates don't l'une est dépendante de l'autre à 30 jours d'intervalle.
Je ne sais pas comment faire pour l'afficher en automatique.
En gros, date1 : 01/05/2010, date2 s'écrit automatiquement 31/05/2010.
Voilà mon code VBA :
Private Sub Validation_Click()
Sheets("Tableau").Select
'Positionnement dans la BD
[A65000].End(xlUp).Offset(1, 0).Select
'Transfert du formulaire dans la BD
ActiveCell.Value = Application.Proper(Me.Box_NIR)
ActiveCell.Offset(0, 1).Value = Me.Box_nom
ActiveCell.Offset(0, 2).Value = Me.Box_nom_marital
ActiveCell.Offset(0, 3).Value = Me.Box_prenom
ActiveCell.Offset(0, 4).Value = Me.Box_naissance
ActiveCell.Offset(0, 5).Value = Me.Box_ratt
ActiveCell.Offset(0, 6).Value = Me.List_situation
ActiveCell.Offset(0, 7).Value = Me.Box_raison
ActiveCell.Offset(0, 8).Value = Me.List_caisse
ActiveCell.Offset(0, 9).Value = Me.Box_adresse
ActiveCell.Offset(0, 10).Value = Me.Box_CP
ActiveCell.Offset(0, 11).Value = Me.Box_Ville
ActiveCell.Offset(0, 12).Value = Me.Box_envoi
ActiveCell.Offset(0, 14).Value = Me.Box_envoi + 30
Mon problème est que si ma date d'envoi s'écrit : 01/05/2010, ma deuxième date 31 et non 31/05/2010. Je suppose que cela vient du format et c'est là où je bloque...
Ma deuxième question est simple:
Comme vous pouvez le constater avec le code au dessus, je rentre des assurés via ce fameux formulaire (NIR, nom, etc.). Le hic est que le NIR est un numéro unique donc pas de doublons... Comment faire pour éviter d'ajouter un même assuré deux fois de suite. En gros, comment comparer le NIR à écrire avec la colonne des NIR déjà existant. Je suppose qu'il faudrait le rajouter ainsi :
Private Sub Validation_Click()
Sheets("Tableau").Select
'Positionnement dans la BD
[A65000].End(xlUp).Offset(1, 0).Select
Parcourt la colonne A (contient les NIR)
Si Me.box_NIR = NIR de la colonne
Msgbox "NIR déjà existant"
Sinon
'Transfert du formulaire dans la BD
ActiveCell.Value = Application.Proper(Me.Box_NIR)
ActiveCell.Offset(0, 1).Value = Me.Box_nom
ActiveCell.Offset(0, 2).Value = Me.Box_nom_marital
ActiveCell.Offset(0, 3).Value = Me.Box_prenom
...
Merci d'avance pour vos conseils.
Ci joint le fichier "épuré".
Voilà un petit problème à vous proposer.
Via un userform, j'ai 2 combobox de dates don't l'une est dépendante de l'autre à 30 jours d'intervalle.
Je ne sais pas comment faire pour l'afficher en automatique.
En gros, date1 : 01/05/2010, date2 s'écrit automatiquement 31/05/2010.
Voilà mon code VBA :
Private Sub Validation_Click()
Sheets("Tableau").Select
'Positionnement dans la BD
[A65000].End(xlUp).Offset(1, 0).Select
'Transfert du formulaire dans la BD
ActiveCell.Value = Application.Proper(Me.Box_NIR)
ActiveCell.Offset(0, 1).Value = Me.Box_nom
ActiveCell.Offset(0, 2).Value = Me.Box_nom_marital
ActiveCell.Offset(0, 3).Value = Me.Box_prenom
ActiveCell.Offset(0, 4).Value = Me.Box_naissance
ActiveCell.Offset(0, 5).Value = Me.Box_ratt
ActiveCell.Offset(0, 6).Value = Me.List_situation
ActiveCell.Offset(0, 7).Value = Me.Box_raison
ActiveCell.Offset(0, 8).Value = Me.List_caisse
ActiveCell.Offset(0, 9).Value = Me.Box_adresse
ActiveCell.Offset(0, 10).Value = Me.Box_CP
ActiveCell.Offset(0, 11).Value = Me.Box_Ville
ActiveCell.Offset(0, 12).Value = Me.Box_envoi
ActiveCell.Offset(0, 14).Value = Me.Box_envoi + 30
Mon problème est que si ma date d'envoi s'écrit : 01/05/2010, ma deuxième date 31 et non 31/05/2010. Je suppose que cela vient du format et c'est là où je bloque...
Ma deuxième question est simple:
Comme vous pouvez le constater avec le code au dessus, je rentre des assurés via ce fameux formulaire (NIR, nom, etc.). Le hic est que le NIR est un numéro unique donc pas de doublons... Comment faire pour éviter d'ajouter un même assuré deux fois de suite. En gros, comment comparer le NIR à écrire avec la colonne des NIR déjà existant. Je suppose qu'il faudrait le rajouter ainsi :
Private Sub Validation_Click()
Sheets("Tableau").Select
'Positionnement dans la BD
[A65000].End(xlUp).Offset(1, 0).Select
Parcourt la colonne A (contient les NIR)
Si Me.box_NIR = NIR de la colonne
Msgbox "NIR déjà existant"
Sinon
'Transfert du formulaire dans la BD
ActiveCell.Value = Application.Proper(Me.Box_NIR)
ActiveCell.Offset(0, 1).Value = Me.Box_nom
ActiveCell.Offset(0, 2).Value = Me.Box_nom_marital
ActiveCell.Offset(0, 3).Value = Me.Box_prenom
...
Merci d'avance pour vos conseils.
Ci joint le fichier "épuré".
Dernière édition: