VBA insersion de DTPicker

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

Re : VBA insersion de DTPicker

Alors les pros ont bloque????😕

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+

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.😉

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 😉

A+

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.

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+

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😱 .