XL 2010 CDATE Boucle

Bouhda

XLDnaute Nouveau
Bonjour,

Je suis novice en VBA et je commence tout juste à coder.. J'ai un petit peu du mal avec le fait de boucler...
J'ai ce code afin de rentrer toutes mes valeurs de TextBox (de 1 à 10) automatiquement dans mon onglet qui marche bien. Voilà cependant j'ai deux TextBox qui sont des dates (la 9 et 10)... J'aimerais ajouter pour ces deux TextBox la formule (si on dit formule ?) CDate mais je ne sais pas le faire sur une boucle...
Cela me permettrait par la suite de trier automatiquement mon fichier en fonction d'une date précise.

Si quelqu'un a une idée.. Merci ! :)

Private Sub CommandButton1_Click()
Dim Dl As Long
Dim x As Byte
With Sheets("BDD LRPG")
.Activate
Dl = .Range("A65536").End(xlUp).Row + 1
For x = 1 To 10
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x
End With
End Sub
 

JM27

XLDnaute Barbatruc
bonjour
tu fais deux boucles
VB:
For x = 1 To 8
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x

Code:
For x = 9 To 10
.Cells(Dl, x).Value = cdate(Me.Controls("TextBox" & x))
Next x

Attention , ca risque de planter si les textbox 9 et 10 sont vides ou ne sont pas des dates( dans ce cas insérer une gestion d'erreurs pour ces deux textbox) ou les tester avant transfert ( ce qui serait plus logique)
il aurais fallu fournir un fichier car pas testé
 
Dernière édition:

Statistiques des forums

Discussions
312 842
Messages
2 092 738
Membres
105 519
dernier inscrit
faivre-roussel.ivan@orang