Option Explicit
Dim ligne As Long, f As Worksheet, c As Range
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("janvier")
For i = 6 To .Range("b65536").End(xlUp).Row
CmbRecherche.AddItem .Range("b" & i)
Next i
End With
End Sub
Private Sub UserForm_Activate()
CmbRecherche = ""
End Sub
Private Sub CmbRecherche_Click()
ligne = Me.CmbRecherche.ListIndex + 6
Set f = Sheets("janvier")
With f
Me.TxtJours = .Cells(ligne, 2)
Me.TxtCatégorie = .Cells(ligne, 3)
Me.TxtEtablissement = .Cells(ligne, 4)
Me.TxtQuiQuoi = .Cells(ligne, 5)
Me.TxtType = .Cells(ligne, 6)
Me.TxtNChèque = .Cells(ligne, 7)
Me.TxtCrédit = .Cells(ligne, 8)
Me.TxtDébit = .Cells(ligne, 9)
End With
End Sub
Private Sub CmdAjouter4_Click()
Set f = Sheets("janvier")
ligne = f.Range("b65536").End(xlUp)(2)
'--- Transfert Formulaire dans Feuille active
With f
.Cells(ligne, 2) = Me.TxtJours
.Cells(ligne, 3) = Me.TxtCatégorie
.Cells(ligne, 4) = Me.TxtEtablissement
.Cells(ligne, 5) = Me.TxtQuiQuoi
.Cells(ligne, 6) = Me.TxtNChèque
.Cells(ligne, 7) = Me.TxtCrédit
.Cells(ligne, 8) = Me.TxtDébit
End With
End Sub
Private Sub CmdFermer4_Click()
Unload Me ' le ferme
'Sélection de la cellule A1
Sheets("janvier").Range("A1").Activate
Call Mise_en_couleur
'on remet la protection de la feuille
ActiveSheet.Protect
End Sub