hrs avec VRB ???? Merci Abel

[Yves Vaillant]

Voici ma macro et dans cette macro cest vis a vis DE et A ou est la fontion de ma userform je vais regarder ca mais je croit que je suis dans le bon bord sufit de le mettre au bon endroit en tout cas ton exemple fonctionne ..

Merci M" Abel



Option Explicit


'Macro pour entrée de donnée Yves Vaillant , prix de revient

Private Sub Userform1_Initialize()
Me.Caption = X
TextBox1.SetFocus 'Donne le focus à Cbo1 à l'initialisation

End Sub

Private Sub CommandButton1_Click()
Dim X As Integer
Dim i As Integer
Dim Nom As String
Dim Msg As Byte

Nom = TextBox1.Value 'PIECE
If Nom = "" Then Exit Sub
Msg = MsgBox(Nom, vbYesNo)
If Msg = 6 Then
X = Sheets("ENTRÉE").Range("A65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("A" & X).Value = Nom
For i = Range("A65536").End(xlUp).Row - 1 To 2 Step 1
Next

Nom = TextBox2.Value ' INDIRECT
X = Sheets("ENTRÉE").Range("C65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("C" & X).Value = Nom

Nom = TextBox3.Value ' EQUIPEMENT
X = Sheets("ENTRÉE").Range("b65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("b" & X).Value = Nom

Nom = TextBox4.Value ' QUATITÉ
X = Sheets("ENTRÉE").Range("F65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("F" & X).Value = Nom

Nom = TextBox5.Value ' DE
X = Sheets("ENTRÉE").Range("D65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("D" & X).Value = Nom

Nom = TextBox6.Value ' A
X = Sheets("ENTRÉE").Range("E65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("E" & X).Value = Nom
End If

TextBox1.Value = "" ' POUR VIDÉ LES CASES DU POP
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus 'le curseur revient en haut
End Sub

Private Sub Image1_Click()

 

[Abel]

Bonjour Yves, tout le monde,

Oups !
Je n'avais pas vu que tu avais créé un nouveau fil.

Il vaut mieux rester sur le fil de départ quand le sujet reste le même.

Ceci dit, je regarderai ça un peu plus tard dans la journée, si personne ne l'a fait d'ici là. Je suis un peu charette en ce moment.

A+

Abel.

 

[Yves Vaillant]

re Merci Abel

Le programme dont je té fait m ention est déja fait et je m en sert mais le proble était de ne pas faire les deux point alor j ai essayer d intégrer ce que tu m a donner et cela foctionne pas ..
j ai surment pas la bonne technique ou je le place pas a la bonne place ...Merci M.Abel...

 

[Yves Vaillant]

Merci Abel

ok

 

[Abel]

Re,

Si je ne comprends pas trop de travers ton programme, la saisie avec le point décimal se fait dans ce bout de code :

Nom = TextBox5.Value ' DE
X = Sheets("ENTRÉE").Range("D65536").End(xlUp).Row + 1
Sheets("ENTRÉE").Range("D" & X).Value = Nom

Et dans le suivant.

Essaie ceci :

Nom = TextBox5.Value ' DE
X = Sheets("ENTRÉE").Range("D65536").End(xlUp).Row + 1
LaBonneHeure = Replace(Nom, ".", ":")
Sheets("ENTRÉE").Range("D" & X).Value = LaBonneHeure

Fais de même pour le code "A".

Abel.