bredeche
XLDnaute Occasionnel
bonjour
j'ai un probleme sur la validation des données de mon userform
code ci dessous
pour le rappel des donne j'ai mis en place dans mon tableau
et j’ai créé le même userform qu'avis de travail et et j'ai mis ce code et visual me dis qu’il y a une erreur
merci de votre aide
ci dessous mon fichier
http://www.cjoint.com/c/GKujGvCJti5
j'ai un probleme sur la validation des données de mon userform
code ci dessous
Code:
rivate Sub CommandButton1_Click()
Dim l_info As Integer
Dim ws As Worksheet
TextBoxFINDAT.Tag = Date
Set ws = ThisWorkbook.Worksheets("TABLEAU")
With ws
l_info = .Columns(2).Find(ComboBoxfiche.Value, , , xlWhole).Row
.Range("W" & l_info).Value = TextBoxFINCH 'NOM CHARGE DE TRAVAUX'
.Range("X" & l_info).Value = TextBoxFINST 'societe'
.Range("Y" & l_info).Value = TextBoxFINCCS 'NOM CHARGE DE consignation'
.Range("Z" & l_info).Value = Format(CDate(TextBoxFINDAT.Tag), "dd/mm/yyyy") 'date des travaux terminer'
.Range("AA" & l_info).Value = TextBoxFINHEU 'heure des travaux terminer'
If CheckBox1.Value = True Then
.Range("AC" & l_info).Value = "Déconsigné"
Else
.Range("AC" & l_info).Value = "Non Déconsigné"
End If
End With
Unload Me
End Sub
pour le rappel des donne j'ai mis en place dans mon tableau
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 29 Then UserFormRAPPEL.Show
End Sub
et j’ai créé le même userform qu'avis de travail et et j'ai mis ce code et visual me dis qu’il y a une erreur
Code:
Private Sub ComboBoxfiche1_Change()
Dim cel As Range, Ligne As Integer
With ThisWorkbook.Sheets("TABLEAU")
Set cel = .Columns("B").Find(Me.ComboBoxfiche1.Value, .Range("b3"), xlValues)
If Not cel Is Nothing Then
Ligne = cel.Row
Me.TextBoxFINCH.Value = .Cells(Ligne, "W") 'colone W'
Me.TextBoxFINST.Value = .Cells(Ligne, "X") 'colone S'
Me.TextBoxFINCCS.Value = .Cells(Ligne, "Y") 'colone Y'
Me.TextBoxFINDAT.Value = .Cells(Ligne, "Z") 'colone Z'
Me.TextBoxFINHEU.Value = .Cells(Ligne, "AA") 'colone AA'
End If
End With
End Sub
merci de votre aide
ci dessous mon fichier
http://www.cjoint.com/c/GKujGvCJti5
Dernière édition: