Private Sub cmdRemplacement_Click()
Dim Observation As Variant
Dim DernierAcces As Date
Dim cellule
Dim flag
Sheets("bdd").Activate
Sheets("bdd").Visible = True 'affiche la feuil5
ligne = (txtN°lot.Value * 1) + 1 'en colonne B si tu as tjrs 1 à99
lblDate = Cells(ligne, 6)
txtNom = Cells(ligne, 6)
txtConso = Cells(ligne, 8)
txtNI = Cells(ligne, 9)
txtAI = Cells(ligne, 10)
DernierAcces = Cells(ligne, 7)
Observation = Cells(ligne, 6)
' For Each cellule In Range("b2:b" & Range("B65535").End(xlUp).Row)
' If cellule = txtN°lot.Value * 1 Then
' flag = 1
' Exit For
' End If
' Next cellule
' If flag = 1 Then
' 'MsgBox ("Résultat trouvé ! en cellule " & cellule.Address)
' lblDate = cellule.Offset(0, 5)
' txtNom = cellule.Offset(0, 3)
' txtConso = cellule.Offset(0, 6)
' txtNI = cellule.Offset(0, 7)
' txtAI = cellule.Offset(0, 8)
' DernierAcces = cellule.Offset(0, 5)
'
' Observation = cellule.Offset(0, 4)
' ligne = cellule.Row
cmdValidRemplacement.Enabled = True
MsgBox ("Consommation au " & DernierAcces & " " & Observation)
' Else
' MsgBox ("Aucun résultat trouvé !")
' End If
'Sheets("bdd").Visible = False 'masque la feuil5 (supprimer pendant test)
End Sub