XL 2010 CDATE Boucle

Bouhda · 20 Avril 2022

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 · 20 Avril 2022

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é

XL 2010 CDATE Boucle

Bouhda

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Discussions similaires