VBA insersion de DTPicker

[reinruof77]

bonjour
Je viens de créer avec l'aide de plusieurs personne du forum un tableau de création et de modification en VBA

Mais je souhaiterais a l'emplacement date a la place d'une textbox mettre un DTPiker (un calendrier).

voir en plus ci possible un combobox en 3eme position.

je ne suis pas trés doué et je compte sur vous pour M'aider ou me mettre sur la piste.

Merci d'avance.

(ci-joint mon fichier)

 

[reinruof77]

Re : VBA insersion de DTPicker

Personne Pour m'aider?
peu etre me suis je mal exprimer.je voudrais remplacer une texbox par un DTPicker .
voici mon code actuel😛rivate Sub CommandButton3_Click()

DerLigne = Sheets("Feuil1").Cells(65535, 1).End(xlUp).Row + 1
For i = 1 To 13
Cells(DerLigne, i) = Me.Controls("Textbox" & i)
Next i
Call Remplir_Liste(ComboBox1.Text)

'Rows("5:5").Select
Rows(DerLigne - 1).Select
Selection.Copy
Range("A" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
For i = 1 To 13
Me.Controls("Textbox" & i) = ""
Next i
Call Remplir_Combobox
Unload Userform1

End Sub
Je penssais faire:" Private Sub CommandButton3_Click()

DerLigne = Sheets("Feuil1").Cells(65535, 1).End(xlUp).Row + 1
For i = 1 To 13
Cells(DerLigne, i) = Me.Controls("Textbox" & i)
Next i
Call Remplir_Liste(ComboBox1.Text)

'Rows("5:5").Select
Rows(DerLigne - 1).Select
Selection.Copy
Range("A" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
For i = 1 To 13
Me.Controls("Textbox" & i) = ""
Me.Controls("DTPiker1") = ""
Next i
Call Remplir_Combobox
Unload Userform1

End Sub
mais cela ne fonctionnent pas

Merci de votre aide

 

[reinruof77]

Re : VBA insersion de DTPicker

Alors les pros ont bloque????😕

 

[Compte Supprimé 979]

Re : VBA insersion de DTPicker

Salut reinruof77,

Désolé, on t'a zappé un peu apparement 😉 😱

Voici ton fichier modifié

Pour ajouter un DTPicker, il suffit d'ajouter un contrôle supplémentaire dans la boîte à outils
"Microsoft Date and Time Picker Control 6.0"

A+

 

[reinruof77]

Re : VBA insersion de DTPicker

Merci Pour ton aide BrunoM45

Mais maintenant je me retrouve avec une erreur lorsque je souhaite modifier ou supprimer une ligne.

et je ne comprend pas pourquoi?(je ne suis pas trés doué ) Mais j'apprend vite.😉

 

[Compte Supprimé 979]

Re : VBA insersion de DTPicker

Re,

Désolé, je n'avais pas vu une partie du code
Comme j'ai supprimé le controle "TextBox2", tes boucles For I = 1 to 13 ne fonctionnent plus correctement

Il faut y ajouter un test 😉

Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Dim i As Byte
  ligne = ListView1.ListItems(Item.Index).ListSubItems(18 - 1).Text
  TextBox1.Text = Cells(ligne, 1)  'ListView1.ListItems(Item.Index).Text
  For i = 2 To 13
    If i <> 2 Then
      Me("TextBox" & i).Text = Cells(ligne, i)  'ListView1.ListItems(Item.Index).ListSubItems(i - 1).Text
    Else
      Me.DTPicker1.Value = Cells(ligne, i)
    End If
  Next i
End Sub

A+

 

[reinruof77]

Re : VBA insersion de DTPicker

Re bonjour et tout d abord merci pour ton aide

1) A priori le problème viendrais des option de bouton mais je ne vois pas comment corriger.

2) Je vais abuser en te demandant comment je peux ajouter une combobox dans le code.

je te joint mon fichier modifier.

merci encore pour ton aide.

 

[Compte Supprimé 979]

Re : VBA insersion de DTPicker

Re,

Petite question : à quoi te servent tes OptionButton (Ajouter, Modifier, Supprimer)
Alors que tu as des boutons en bas de ton USF !?

Sinon voici le fichier modifié 😉

A+

 

[reinruof77]

Re : VBA insersion de DTPicker

bonsoir BrunoM45

Tout d'abord merci de ton aide ensuite les OptionButton servent a masquer les boutons de validation .
le but de ce fichier est de pouvoir rentrer des données et de pouvoir les modifier plus tard en cas de changement.

je vois cela demain car il est tard mais je te remercie encore pour le temps que tu m'as accorder😱 .