Bonsoir,
Bespoin d'un petit coup de main pour continuer mon projet
1 ére page
j'ai élaborer un UNSERFORM, (Avec deux pages) avec une procedure pour enregistrer mes données. ere page
Public Sub Rens_Ctrl()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim ctrl As Control 'déclare la variable ctrl (ConTRôLe)
With Sheets("BD_depense") 'prend en compte l'onglet "BD_bdc"
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
plv = dl + 1 'définit la première ligne vide de la colonne A (déclarée Publique dans le Module1)
.Range("A" & plv) = TextBox_date
.Range("b" & plv) = TextBox_BDC
En page 2
Quelle est celle qui me permettrai de rappeler une données de la page une.
TEXbox_BDC_2
Merci d'avance de votre aide.
M.D
Bespoin d'un petit coup de main pour continuer mon projet
1 ére page
j'ai élaborer un UNSERFORM, (Avec deux pages) avec une procedure pour enregistrer mes données. ere page
Public Sub Rens_Ctrl()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim ctrl As Control 'déclare la variable ctrl (ConTRôLe)
With Sheets("BD_depense") 'prend en compte l'onglet "BD_bdc"
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
plv = dl + 1 'définit la première ligne vide de la colonne A (déclarée Publique dans le Module1)
.Range("A" & plv) = TextBox_date
.Range("b" & plv) = TextBox_BDC
En page 2
Quelle est celle qui me permettrai de rappeler une données de la page une.
TEXbox_BDC_2
Merci d'avance de votre aide.
M.D