Recherche d'une variable dans une feuille

[Eric Boucher]

Bonjours à tous !

Avant de vous parler de mon probleme, j'aimerais tout simplement m'excuser auprès de toutes les personnes qui ont vue ma précedente demande concernant ce problème. Mon message était liberé de toute forme de politesse. sincerement désolé

Revoici donc mon problème

J' ai construis un userform contenant un textbox et un bouton "ok" presentement, lorsque j'inscris une date dans le textox (2003-11-19) et que je clique sur "ok" cette date va dans une feuille appelée "log" dans un ranger a la suite des autre date inscrit précédement. Le probleme est que si quelqu'un inscrit par erreur deux fois la meme date il apparaitron en double, en triple , en quatruple etc... dans un listbox qui est dans un autre userform. Est ce que quelqu'un sait comment regler mon problème ?

Merci à tous les répondants et encore une fois, sincèrement désolé

Eric Boucher

 

[Denis]

Bonjour Eric et le Forum
je pense, (donc je suis) si j'ai bien compris ton problème, qu'il faudrait mettre une recherche de valeur dans le private sub bouton_click de ton USF
dans le style
private sub bouton_click()
set plage= sheets("feuil1").range("A1:A" & derligne)
( derligne étant la dernière ligne enregistrée de ta liste)
for each cell in plage
if cell.value = textbox1.value then
textbox1=""
textbox1.setfocus
goto 1
end if
next cell
là tu mets l'action du bouton
1
end sub

je n' ai pas essayé mais je pense que ça marche

 

[Eric Boucher]

Bonjours Denis

Pour commencer merci pour ta réponse ...
peut etre ais-je mal compris le code mais voici ce que j,ai fais :

Private Sub CBTDate1_Click()
If TBDate.Value = "" Then GoTo a
If TBDate.Value <> "" Then GoTo b

a:
GoTo FIN

b:

Set plage = Sheets("log").Range("C1:C" & derligne)
For Each cell In plage
If cell.Value = TBDate.Value Then
TBDate = ""
TBDate.SetFocus
GoTo 1
End If
Next cell
1:
Worksheets("log").Activate
Worksheets("log").Range("c1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.Value = TBDate.Text
Worksheets("feuil1").Activate
Worksheets("feuil1").Range("a1").Select
Selection.Formula = UFDate.TBDate.Text
ThisWorkbook.Activate
Sheets("feuil1").Select
Range("A1").Select
Selection.Copy
Workbooks.Open "C:\Smartime\Modele\modele2.xls"
Sheets("grille").Select
Range("A164").Select
ActiveSheet.Paste
Range("D7").Select
Workbooks("menu.xls").Close savechanges:=True
Application.CutCopyMode = False
Application.DisplayAlerts = False
FIN:
End Sub


ça bloque au tout debut, à set plage = ...

si tu voit quelque chose de pas correct S.V.P. fais moi le savoir

Eric Boucher