date dans uf

[JEFF77]

Bonjour à tous et Bonne Année

Je fais un petit prog. pour mon travail et je voudrais que la date tapée dans le textbox date se retouve dans la feuille 'janvier' en a4 et qu'elle s'éfface une fois validée et passe à la cellule suivante A5 pour la prochaine date.
Pour le TBox valeur je voudrais faire la même chose.
je vous remercie par avance de votre aide. [file name=planar.zip size=19772]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar.zip[/file]

 

[excalibur]

bonjour jeff le forum tu peus faire comme cela Private Sub CommandButton1_Click()
' Bouton VALIDER
' Stocker le nom dans la cellule A1 de la feuille courante
Sheets('janvier').Range('b4').Value = PLB2.Value
Sheets('janvier').Range('a34').End(xlUp).Offset(1, 0).Value = DATE1
DATE1 = ''
End Sub'salutations

 

[Jacky]

Bonsoir Jeff

est-ce que cela te va ?

Bon courage [file name=planar_20060101214354.zip size=17122]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar_20060101214354.zip[/file]

 

[jeff77]

merci Jacky mais le problème est que les 2 Textbox ne se remettent pas à 0 et que les valeurs dans la feuille ne passent pas à la suivante.
je vais éssayer la commande d'Excalibur.
Je vous tien au courant.

 

[jeff77]

Merci Excalibur j'ai pris la formule et modifié pour le TBox valeur Miracle pour moi ca marche.
Je voudrais savoir si c'est possible dans le Tbox Date lorsque que je tape la date si il est possible de ne pas taper les / / pour valider.

Merci encore à toi. [file name=planar_20060101220548.zip size=20661]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar_20060101220548.zip[/file]

 

[JYLL]

Bonsoir vous tous,

Je n'ai pas vu arriver vos réponses, dans mon exemple en plus j'ai fait en sorte que la feuille de la date entrée soit sélectionnée automatiquement. Pour l'instant ile ne faux tester que Janvier et Février. de plus la macro cherche la première ligne vide.

Bon test et bonne et heureuse année sur le forum et dans la vie de tous les jours;

amicalement.

Jean-Yves [file name=planar_20060101221125.zip size=16910]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar_20060101221125.zip[/file]

 

[Jacky]

est-ce que ça va mieux comme ça [file name=planar_20060101223603.zip size=18701]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar_20060101223603.zip[/file]

 

[Jacky]

Bonsoir Jean Yves

encore moi
Je ne t'ai pas vu venir car je faisais 2 choses en même temps et n'ai pas actualisé
Certes ce que propose est fait 'à la va vite' Il vaut mieux que Jeff suive ta proposition

Bonne soirée

 

[excalibur]

bonjour jyll jacky le forum tu peus faire comme cela Dim Chge As Boolean
Private Sub DATE1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 8
Chge = True
Case Is = 13, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub
Private Sub DATE1_KeyUP(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 46
Chge = True
DATE1 = ''
End Select
End Sub
Private Sub DATE1_Change()
If Not Chge Then
With DATE1
Select Case Len(.Text)
Case 2, 5
.Text = .Text & '/'
End Select
End With
Else
Chge = False
End If
End Sub' dans proprietes de la textbox maxlength =10 caracteres maxi . au debut de ton module oublie pas Dim Chge As Boolean ... petite remarque il faut declarer les variables explicitement le code est plus claire salutations ps je rajoute ton fichier [file name=planar1.zip size=20744]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planar1.zip[/file]

Message édité par: excalibur, à: 02/01/2006 10:06

 

[jeff77]

Merci à toi Excalibur et aux autres aussi ton fichier marche et je vais l'adapter au reste de mon prog.

ENCORE UN GRAND MERCI A VOUS