probléme de date ????

Pierrot93

XLDnaute Barbatruc

• 12 Juin 2015

• #16

Re : probléme de date ????

Re,

en lieu et place de ceci :

Code:

For I = 1 To NbrDeTextBox
 Cells(Lig, I + 2) = Controls("Textbox" & I).Value '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''
 Next I '+2 données col(C)

 

Vote positif 0 Vote négatif

reinruof77

XLDnaute Occasionnel

• 12 Juin 2015

• #17

Re : probléme de date ????

Merci beaucoup je vais essayer

 

Vote positif 0 Vote négatif

reinruof77

XLDnaute Occasionnel

• 12 Juin 2015

• #18

Re : probléme de date ????

et bien ça ne passe pas

j'ai ce message d'erreur

 

Pièces jointes

• Capture.PNG

  18.4 KB · Affichages: 22
• Capture.PNG

  18.4 KB · Affichages: 23

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2015

• #19

Re : probléme de date ????

Bonjour,

il manque le bloc "with" dans le code :

Code:

With Sheets("NomFeuille")
.Cells(Lig, 3).Value = TextBox1 
   .Cells(Lig, 4).Value = CDate(TextBox2) 
   .Cells(Lig, 5).Value = TextBox3 
   .Cells(Lig, 3).Resize(, 3).HorizontalAlignment = xlRight
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

reinruof77

XLDnaute Occasionnel

• 15 Juin 2015

• #20

Re : probléme de date ????

Merci Pierrot93

C'est ce que j'ai essayer et cela fonctionne.

Merci encore de ton aide

 

Vote positif 0 Vote négatif