Alimenter une table en fonction du mois selectionné.

[barbin]

Bonsoir à tout le forum.
Je recherche un code qui me permettrai d'alimenter une base de donnée en fonction d'une période choisie.
En effet, en choisissant le mois dans une liste puis en cliquant sur le bouton "Ajouter", les données seront ajouter dans la base de données sur la ligne du mois choisie.
Je vous laisse un fichier joint, qui sera je pense plus facile à comprendre.

Merci d'avance.
Cordialement.

 

[JBARBE]

Bonsoir à tous,
En changeant de date (cellule B20), l'insertion se fait !
Ainsi le bouton Ajouter est inutile !
Bonne soirée !

 

[barbin]

Merci, ça fonctionne parfaitement. J'ai modifié le code, car je veux vraiment déterminer le moment du rajout dans la base et utiliser le bouton de commande.
Encore merci.

 

[barbin]

Bonjour, maintenant, je souhaiterai faire l'inverse, c'est à dire, effacer les données à l'aide d'un bouton effacer. J'ai écris un code mais cela ne fonctionne pas.

Private Sub CommandButton2_Click()
Dim i As Long
If ComboBox1.Text = "" Then MsgBox "Aucune période sélectionnée.": Exit Sub
Application.ScreenUpdating = False
For i = 2 To 13
If Cells(i, 3) = ComboBox1.Value Then
Cells(i, 4) = ""
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
Exit Sub
End If
Next i
Application.ScreenUpdating = True
End Sub

Si quelqu'un pourrait m'aider se serait sympa.
Merci.
cordialement

 

[JBARBE]

Bonjour à tous,
Pour supprimer il a été nécessaire de mettre la donnée ComboBox1 dans une cellule !
De plus la boite de dialogue doit disparaitre Unload Me!

Private Sub CommandButton2_Click()
Dim i As Long
Application.ScreenUpdating = False
If ComboBox1.Text = "" Then MsgBox "Aucune période sélectionnée.": Exit Sub
With Sheets("Feuil2")
.Range("E20") = ComboBox1.Value
  For i = 2 To 13
  If .Cells(i, 3) = .Range("E20").Value Then
  .Cells(i, 4) = ""
  .Cells(i, 5) = ""
  .Cells(i, 6) = ""
  .Cells(i, 7) = ""
  .Range("E20") = ""
  Unload Me
  Exit Sub
  End If
  Next i
End With
  Application.ScreenUpdating = True
End Sub

Bonne soirée !

 

[barbin]

Merci, grâce à toi, j'y suis arrivé. J'ai modifié un peu le code pour utiliser les données directement de la combobox1.

Private Sub CommandButton2_Click()
Dim i As Long
If ComboBox1.Text = "" Then MsgBox "Aucune période sélectionnée.": Exit Sub
For i = 2 To 13
If Cells(i, 3) = CDate(ComboBox1) Then
Cells(i, 4) = ""
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
Unload Me
Exit Sub
End If
Next i
End Sub

Encore merci.

 

[JBARBE]

Re,
Bien vu en utilisant CDate que j'avais oublié, le probléme est résolu !
En effet, la Cells(i,3) ne pouvait identifier la ComboBox1 tel quel était présentée !
Bonne nuit !