roby
XLDnaute Occasionnel
bonjour le forum,
je n'arrive pas à résoudre le problème suivant et je pense que cela doit etre tout simple(lol):
dans un USF, j'utilise un calendrier (calendar1) et une textbox1 qui restitue la date sans problème, un autre bouton commandbutton1 valide la saisie,
j'aimerai que dans ma textbox1 s'affiche le jour suivant si je ne quitte pas ma boite de dialogue pour saisir des données suivante.
je n'ai rien déclare ( dim Nouveaujour as ??)
style de code employe:
Private Sub CommandButton1_Click()
'Validation de la saisie
'-----------------------
If UsfSuivi.TextBox3.Value = "" Then Exit Sub
ActiveCell.Offset(0, 0).Value = UsfSuivi.TextBox1.Value 'Date
ActiveCell.Offset(0, 1).Value = UsfSuivi.TextBox2.Value 'Heure
ActiveCell.Offset(0, 4).Value = UsfSuivi.TextBox3.Value 'Indice HP
ActiveCell.Offset(0, 8).Value = UsfSuivi.TextBox4.Value 'Indice HC
ActiveCell.Offset(0, 14).Value = UsfSuivi.TextBox5.Value 'Indice S/Compteur Chauffage
ActiveCell.Offset(0, 21).Value = UsfSuivi.TextBox6.Value 'Mois Concerné
ActiveCell.Offset(0, 17).Value = UsfSuivi.TextBox7.Value 'Indice S/Compteur Chauffe Eau
ActiveCell.Offset(0, 22).Value = UsfSuivi.TextBox8.Value 'Observations
If UsfSuivi.OptionButton2 = True Then
ActiveCell.Offset(0, 2).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
'Champs vides
UsfSuivi.TextBox2.Value = "" 'Heure
UsfSuivi.TextBox3.Value = "" 'Indice HP
UsfSuivi.TextBox4.Value = "" 'Indice HC
UsfSuivi.TextBox5.Value = "" 'Indice S/Compteur Chauffage
UsfSuivi.TextBox7.Value = "" 'Indice S/Compteur Chauffe Eau
UsfSuivi.TextBox8.Value = "" 'Observations
''''UsfSuivi.TextBox1.Value = Format(Day(UsfSuivi.TextBox1) + 1 & "/" & Month(UsfSuivi.TextBox1) & "/" & Year(UsfSuivi.TextBox1), "dd/mm/yyyy")
UsfSuivi.OptionButton2 = True
Call DerniereLigne("A")
NouveauJour = ActiveCell.Offset(-1, 0) + 1
UsfSuivi.TextBox1.Value = Format(NouveauJour, "dd/mm/yyyy")
UsfSuivi.TextBox2.SetFocus
End Sub
merci d'avance Roby
je n'arrive pas à résoudre le problème suivant et je pense que cela doit etre tout simple(lol):
dans un USF, j'utilise un calendrier (calendar1) et une textbox1 qui restitue la date sans problème, un autre bouton commandbutton1 valide la saisie,
j'aimerai que dans ma textbox1 s'affiche le jour suivant si je ne quitte pas ma boite de dialogue pour saisir des données suivante.
je n'ai rien déclare ( dim Nouveaujour as ??)
style de code employe:
Private Sub CommandButton1_Click()
'Validation de la saisie
'-----------------------
If UsfSuivi.TextBox3.Value = "" Then Exit Sub
ActiveCell.Offset(0, 0).Value = UsfSuivi.TextBox1.Value 'Date
ActiveCell.Offset(0, 1).Value = UsfSuivi.TextBox2.Value 'Heure
ActiveCell.Offset(0, 4).Value = UsfSuivi.TextBox3.Value 'Indice HP
ActiveCell.Offset(0, 8).Value = UsfSuivi.TextBox4.Value 'Indice HC
ActiveCell.Offset(0, 14).Value = UsfSuivi.TextBox5.Value 'Indice S/Compteur Chauffage
ActiveCell.Offset(0, 21).Value = UsfSuivi.TextBox6.Value 'Mois Concerné
ActiveCell.Offset(0, 17).Value = UsfSuivi.TextBox7.Value 'Indice S/Compteur Chauffe Eau
ActiveCell.Offset(0, 22).Value = UsfSuivi.TextBox8.Value 'Observations
If UsfSuivi.OptionButton2 = True Then
ActiveCell.Offset(0, 2).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
'Champs vides
UsfSuivi.TextBox2.Value = "" 'Heure
UsfSuivi.TextBox3.Value = "" 'Indice HP
UsfSuivi.TextBox4.Value = "" 'Indice HC
UsfSuivi.TextBox5.Value = "" 'Indice S/Compteur Chauffage
UsfSuivi.TextBox7.Value = "" 'Indice S/Compteur Chauffe Eau
UsfSuivi.TextBox8.Value = "" 'Observations
''''UsfSuivi.TextBox1.Value = Format(Day(UsfSuivi.TextBox1) + 1 & "/" & Month(UsfSuivi.TextBox1) & "/" & Year(UsfSuivi.TextBox1), "dd/mm/yyyy")
UsfSuivi.OptionButton2 = True
Call DerniereLigne("A")
NouveauJour = ActiveCell.Offset(-1, 0) + 1
UsfSuivi.TextBox1.Value = Format(NouveauJour, "dd/mm/yyyy")
UsfSuivi.TextBox2.SetFocus
End Sub
merci d'avance Roby