Bom dia pessoal,
eu criei um quadro em user_form para fazer um inventario dos meus jogos de ps entre outros, mas o meu problema agora e criar os codigos para o fazer funcionar...
eu procurei na net e vi um programa que faz mais ao menos o k procuro so que quando fui tentar ver os codigos vi que quem o criou tentou protejer algumas variaveis..
alguem me consegue ajudar nisto, deixo xous aki umas copias do codigo para verem.. sou iniciante nisto. obrigada pela vossa ajuda.
P
rivate Sub UserForm_Initialize()
xx = 20
xxxxxxxx
xxxxxxxxx
TextBox_rech_nom.SetFocus
xxxxxxxxxx
Label14.Caption = BD.Range("Z1") & " :"
Label12.Caption = BD.Range("AA1") & " :"
Label11.Caption = BD.Range("AB1") & " :"
xxx = BD.Range("A1").End(xlDown).Row
End Sub
Private Sub ListBox_resultats_Change()
If ListBox_resultats.ListIndex = -1 Or IsEmpty(xxxxxxxxxxxxxxx) Then
xxxxxxxxxxxxxxxx
Exit Sub
End If
If xxxxxxxxxxxxxxx = -1 Then
xxxxxxxxxxxxxxxx
Exit Sub
End If
CommandButton_suppr.Enabled = True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx = xxxxxxxxxxxxxxxxxxxx(ListBox_resultats.ListIndex)
Label_ligne.Caption = xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
ComboBox_groupe.ListIndex = -1
xxx = BD_DONNEES.Range("A1").End(xlDown).Row
If xxx > vbYesNoCancel ^ 3 Then xxx = 0
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx = BD.Cells(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, 1)
For i = xx / 10 To xxx
If BD_DONNEES.Cells(i, 1) = xxxxxxxxxxxxxxxxxxxxxxxxxxxxx Then
ComboBox_groupe.ListIndex = i - 2
End If
Next
For i = 2 To 28
Controls("TextBox_" & i).Value = BD.Cells(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, i)
Next
Label_date_creation.Caption = BD.Cells(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, 29)
If BD.Cells(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, 30) <> "" Then
Label_date_modif.Caption = BD.Cells(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, 30)
Else
Label_date_modif.Caption = " -"
End If
End Sub
Postado : 20/02/2017 7:52 am