VBA - vérifier contenu textbox avec contenu cellule

Oui c'est du 1er janvier au 31 décembre mais comme j'ai dis mon formulaire et prévu par mois donc il faut sur le code du formulaire de janvier qu'il vérifie la date du 1er janvier N au 31 janvier N... (Au final j'ai 12 formulaire donc 12 codes différents..). Du coup mon tableau pour les dates et comme ceci :

Col A : janvier
Février
...
Col B : 01/01/2014
01/02/2014
...
Col C : 31/01/2014
28/02/2014

Cdlt

Effectivement pas besoin de faire 12 formulaires. Il faut créer des variables qui seront le mois et l'année en cours, et utiliser ces variables.

Maurice a raison, peux tu donner un exemple ?

m@rina

Bonjour,
Comme promis voici un extrait du fichier :
https://www.cjoint.com/?DLkjeKW4y0R

Merci !!!

Merci pour cette réponse cela marche. Effectivement c'est mieux d'avoir ce tableau là automatisé aussi mais je bloque surtout pour la vérification lors de la saisie du formulaire... Avez vous pu trouver une solution ? Cdlt

Bonjour,
Je vous remercie pour tout votre travail !!

Je vous explique par contre ma situation, je dois peaufiner ceci pour dans 15 jours car après mon contrat se termine et j'ai déjà un classeur bien rempli qui est créé. Celui-ci contient énormément de feuilles et de données et les tableaux par mois alimentent beaucoup de feuilles permettant d'établir des statistiques... je n'ai donc malheureusement pas le temps de tout reprendre et le fait de supprimer et recréer les feuilles chaque année m'embête pour la liaison avec la stats. C'est pour ça que je demandais juste une petite solution pour vérifier la date sans repasser par le changement du code chaque année.

Cela dit encore merci pour le temps que vous m'avez consacré, je garde tout pour la suite (je pense que ça me servira bien un jour de toute façon) !! Désolé si je me suis mal expliquée dés le départ...

Merci !! C'est vraiment bien d'empêche ! Je suis déçue de ne pas avoir le temps de travailler à partir de ça...

Pour le code il y est bien, c'est celui-ci :

'Pour la sélection du nom et du prénom (fonctionne avec la ComboBox6 ci-dessous)
Private Sub ComboBox1_Change()
Dim DerLig As Long, Lig As Long, VDate As String, VProd As String
' On utilise les collections pour éviter les doublons
Dim TabProd As New Collection
' Effacer les valeurs de la combobox6 - Prénoms
Me.ComboBox6.Clear
' Pour chaque ligne de la feuille
With Sheets("Données")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 3 To DerLig
VDate = .Range("A" & Lig).Value
VProd = .Range("B" & Lig).Value
If VDate = Me.ComboBox1 Then
On Error Resume Next
TabProd.Add VProd, VProd
' Si aucune erreur lors de l'ajout dans la collection
' On ajoute la valeur dans le combobox
If Err.Number = 0 Then Me.ComboBox6.AddItem VProd
End If
Next

End With

End Sub

Private Sub ComboBox3_Change()

End Sub

Private Sub Frame3_Click()

End Sub

'Pour le formulaire
'Pour la sélection du nom et du prénom (fonctionne avec la ComboBox1 ci-dessus)
Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
Dim DerLig As Long, Lig As Long, VDate As String
' On utilise les collections pour éviter les doublons
Dim TabDate As New Collection
' Pour chaque ligne de la feuille
With Sheets("Données")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 3 To DerLig
VDate = .Range("A" & Lig).Value
On Error Resume Next
TabDate.Add VDate, VDate
' Si aucune erreur lors de l'ajout dans la collection
If Err.Number = 0 Then
' On ajoute la valeur dans le combobox
Me.ComboBox1.AddItem VDate
End If
Next
End With


End Sub

'Pour le bouton Valider
Sub cmdOK_Click()

Dim rien
Dim L As Integer

'Vérification que tous les champs sont bien renseignés
'Le nom
If ComboBox1 = rien Then
MsgBox ("Veuillez indiquer le nom avant de valider")
Exit Sub
End If

'Le prénom
If ComboBox6 = rien Then
MsgBox ("Veuillez indiquer le prénom avant de valider")
Exit Sub
End If


'Vérification que la date d'entrée est renseignée
If TextBox1 = rien Then
MsgBox "Veuillez indiquer une date d'entrée avant de valider", 0, "Information"
Exit Sub
End If

'Vérification que les dates sont comprises dans la périod
End If



'Enregistrement des données saisies dans tableau
L = Sheets("01").Range("a1000").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1 'Nom
Range("B" & L).Value = ComboBox6 'Prénom
Range("H" & L).Value = TextBox1 'Date d'entrée
Range("I" & L).Value = TextBox3 'Date de sortie

Unload Me
End Sub
'Pour le bouton Annuler
Private Sub cmdAnnuler_Click()
Unload Me
End Sub


Merci !
Cdlt

Que vous manque t-il ?