Microsoft 365 Réinitialisation de la valeur d’un label selon une condition

[btx22000]

Bonjour, j’ai un userform comportant un spinbutton pour lequel les valeurs s’affiche sur un label. Et les données du userform sont enregistrées dans une feuille avec plusieurs colonne (un tableau en fait). Dans la première colonne j’ai la date, la seconde l’index,… Je souhaiterais qu’à chaque fois que je change de date dans mon userform, mon label.caption soit réinitialisé à 1.

J’ai essayé un code qui ne marche pas:

Private Sub labelcaptionreset()

Dim DateMax As Range
Dim DateMax1 As Range
Dim last_row As Range

last_row = Sheets(«Data»).Range(«A1»).End(xlDown).Row

DateMax = Sheets(«Data»).Range(last_row, 1).Value

DateMax1 = Sheets(«Data»).Range(last_row, 1).Value - 1

If DateMax.Value <> DateMax1.Value Then
lblIndex.Caption = 1

End If

End Sub

 

[sylvanu]

Bonjour Btx et bienvenu sur XLD,
Un petit fichier test serait le bienvenu car là, on va répondre au hasard.
Un petit point qui m'interpelle :

DateMax = Sheets(«Data»).Range(last_row, 1).Value
DateMax1 = Sheets(«Data»).Range(last_row, 1).Value - 1
If DateMax.Value <> DateMax1.Value Then

Ecrit comme cela DateMax1=DateMax-1, donc fatalement DateMax.Value <> DateMax1.Value.
Je suppose que vous voulez l'avant dernière valeur, dans ce cas testez :

DateMax = Sheets(«Data»).Range(last_row, 1).Value
DateMax1 = Sheets(«Data»).Range(last_row-1, 1).Value
If DateMax.Value <> DateMax1.Value Then