afficher la dernière ligne saisie

[nrdz83]

Bonjour j'essaye d'utiliser ce code pour afficher les données saisies dans une feuille.
Je cherche à à afficher la dernière date qui a été saisie.

Comment je dois modifier mon code?

Private Sub CommandButton2_Click()
 Dim Lig As Long, VPathFic As String
  ' La ligne = 2 (ligne de titre) + ListIndex + 2 (car listindex commence à 0)
  Lig = 1 + Me.ComboBox1.ListIndex + 2
  With Sheets(ComboBox1.Text)
    Me.TextBox1 = .Range("A" & Lig)
    Me.TextBox2 = .Range("B" & Lig)
    Me.TextBox3 = .Range("D" & Lig)
    Me.TextBox4 = .Range("E" & Lig)
End With
End Sub

 

[Compte Supprimé 979]

Re : afficher la dernière ligne saisie

Salut Mister Bean 😉

Si tu veux afficher la dernière date saisie,
correspond-elle à la dernière ligne saisie ?

Si oui, tu peux utiliser

Private Sub CommandButton2_Click()
  Dim DerLig As Long
  With Sheets(ComboBox1.Text)
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    Me.TextBox1 = .Range("A" & DerLig)
    Me.TextBox2 = .Range("B" & DerLig)
    Me.TextBox3 = .Range("D" & DerLig)
    Me.TextBox4 = .Range("E" & DerLig)
  End With
End Sub

A+

 

[nrdz83]

Re : afficher la dernière ligne saisie

Merci pour ton aide BRUNOM45, une dernière petite chose.

Dans mon Userform j'ai un Label5 et je souhaiterai lui faire afficher ça.

Si le textbox2 <=à aujourdhui afficher "En cours de validité"

Si le textbox2 > à aujourdhui afficher "A Peremption"

Merci d'avance😎

 

[Compte Supprimé 979]

Re : afficher la dernière ligne saisie

Re,

Tout simplement

  If DateValue(Me.TextBox2) <= Now Then
    Me.TextBox5.Value = "En cours de validité"
  Else
    Me.TextBox5.Value = "A Peremption"
  End If

Il va falloir sérieusement te mettre aux fonctions VBA d'excel 😀

Tu me diras tu as l'aide "F1" dans l'éditeur VBA 😉

A+

 

[nrdz83]

Re : afficher la dernière ligne saisie

🙄merci brunom45, impec j'ai mis un label au lieu d'un textbox et j'ai réussi grace a votre aide et conseils, merci encore et bon dimanche à tous amities

mon code au cas ou ça pourrais aider quelqu'un🙂

Private Sub CommandButton2_Click()
 Dim Lig As Long, VPathFic As String
  ' La ligne = 2 (ligne de titre) + ListIndex + 3 (car listindex commence à 0)
  Lig = 1 + Me.ComboBox1.ListIndex + 3
  With Sheets(ComboBox1.Text)
  DerLig = .Range("A" & Rows.Count).End(xlUp).Row
Me.TextBox1.Value = .Range("A" & DerLig)
Me.TextBox2.Value = .Range("B" & DerLig)
Me.TextBox3.Value = .Range("D" & DerLig)
Me.TextBox4.Value = .Range("E" & DerLig)
If DateValue(Me.TextBox2) <= Now Then
    Me.Label5.Caption = "En cours de validité"
  Else
    Me.Label5.Caption = "A Peremption"
  End If
End With
End Sub

 

[nrdz83]

Re : afficher la dernière ligne saisie

Encore besoin d'aide comment modifier mon code, car si la textbox2 est vide ça fait planter le programme.
D'avance merci

mon code

Private Sub CommandButton2_Click()
 Dim Lig As Long, VPathFic As String
  ' La ligne = 2 (ligne de titre) + ListIndex + 3 (car listindex commence à 0)
  Lig = 1 + Me.ComboBox1.ListIndex + 3
  With Sheets(ComboBox1.Text)
  DerLig = .Range("A" & Rows.Count).End(xlUp).Row
Me.TextBox1.Value = .Range("A" & DerLig)
Me.TextBox2.Value = .Range("B" & DerLig)
Me.TextBox3.Value = .Range("D" & DerLig)
Me.TextBox4.Value = .Range("E" & DerLig)
If DateValue(Me.TextBox2) <= Now Then
    Me.Label5.Caption = "A peremption"
  Else
    Me.Label5.Caption = "A Peremption"
  End If
End With
End Sub

 

[Compte Supprimé 979]

Re : afficher la dernière ligne saisie

Re,

Le mieux est de gérer avec On Error Resume Next

[COLOR=blue]On Error Resume Next
[/COLOR]If DateValue(Me.TextBox2) <= Now Then
    Me.Label5.Caption = "A peremption"
  Else
    Me.Label5.Caption = "A Peremption"
  End If
[COLOR=blue]On Error Goto 0[/COLOR]

Comme ça en cas d'erreur le code continue

A+

 

[nrdz83]

Re : afficher la dernière ligne saisie

Un grand chapeau et merci pour tout amitiés🙄