Problème de recherche
Bonjour tout le monde,
Je suis confronté à un problème qui me dépasse ...
J'ai un tableau renseigné par des textbox's, rien de sorcier ...
J'ai un USF avec un bouton rechercher codé comme suit :
Private Sub CommandButton1_Click()
Dim lastLine As Long
Dim i As Long
With Sheets("Feuil2")
lastLine = .Range("A3").End(xlDown).Row
For i = 1 To lastLine
If .Range("A" & i).Value = NE.Value Then 'filtre Nom
If .Range("C" & i).Value = NP.Value Then 'filtre Prénom
If .Range("B" & i).Value = TDS.Value Then
TDS.Value = .Range("B" & i).Value
T.Value = .Range("D" & i).Value
L.Value = .Range("E" & i).Value
DPREP.Value = .Range("F" & i).Value
S.Value = .Range("G" & i).Value
Label1 = i
End If
End If
End If
Next i
End With
End Sub
J'ai un bouton modifier codé comme suit :
Private Sub CommandButton2_Click()
Dim f As Worksheet
For Each f In ThisWorkbook.Sheets
Select Case f.Index
Case 2, 3
f.Activate
Cells(CLng(Me.Label1), 1) = Me.NE.Value
Cells(CLng(Me.Label1), 3) = Me.NP.Value
Cells(CLng(Me.Label1), 2) = Me.TDS.Value
Cells(CLng(Me.Label1), 4) = Me.T.Value
Cells(CLng(Me.Label1), 5) = Me.L.Value
Cells(CLng(Me.Label1), 6) = Me.DPREP.Value
Cells(CLng(Me.Label1), 7) = Me.S.Value
'calcul de la date de péremption
NbJours = val(S)
Datesaisie = CDate(DPREP)
Datecalculee = DateSerial(Year(Datesaisie), Month(Datesaisie), Day(Datesaisie) + NbJours)
DPEREM.Value = Datecalculee
'affiche la date de péremption
Cells(CLng(Me.Label1), 8) = CDate(DPEREM)
End Select
Next f
End sub
Mon problème (qui doit être sûrement une grosse erreur de débutant que je suis) c'est que je peux effectuer une recherche qui m'affiche les données correspondante dans les textbox's mais dés lors que j'effectue une modification, il m'est impossible de la rechercher une deuxième fois :/ En cliquant dessus les textbox's restent vides . Ce que je ne comprends pas, c'est qu'avant la modif ça fonctionne et qu'après ça fonctionne plus.
Si vous vous penchez sur le problème et si vous arrivez à trouver la solution, serait-il possible de me l'expliquer .
Par avance MERCI.
sans voir ton fichier non
Ha oui .. ( pardon )
MDP Admin
Utilisateurs Admin