Discussion :

[alex_elder1_1]

bjr a tous

voila je suis dsl de m'acharner sur ce code mais je dois absolument savoir si je peux le faire.

j'ai une userform 6 qui a une combobox qui va orienter ma recherche et une textbox ds laquelle je vais rentrer l'objet de ma recherche

cette rechercher a pour code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
 
 If UserForm6.ComboBox1.Value = "MOTOR DESCRIPTION" Then
 Call ProcMotor
End If

ce qui me permet d'appeler les codes de recherche sur cette m userform qui sont:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub ProcMotor()
  Worksheets("Sheet2").Activate
  Range("B2:J4000").Select
  selection.Delete
 
'MOTOR DESCRIPTION
 
 
  Dim i As Integer
  Dim DesignationRecherchee As String
 
  DesignationRecherchee = UserForm6.MD
 
  i = 2
 
  With Worksheets("Sheet1")
    Do While .Cells(i, 5) <> "" And .Cells(i + 1, 5) <> ""
      If .Cells(i, 5) Like DesignationRecherchee & "*" Then
        Range(.Cells(i, 2), .Cells(i, 10)).Copy
        For j = 2 To 3000
          If Worksheets("Sheet2").Cells(j, 2) = "" Then
            Worksheets("Sheet2").Activate
            Worksheets("Sheet2").Cells(j, 2).Select
            ActiveSheet.Paste
 
            Exit For
          End If
        Next j
      End If
    i = i + 1
    Loop
  End With
  Unload Me
 
UserForm6.Hide
 
 
 
 Worksheets("Sheet2").Activate
 
 If Range("B2").Value = "" Then
x = MsgBox(prompt:="This Motor Description doesn't exist", _
Buttons:=ok)
End If
 
 
 
End Sub

dc ces codes font apparaitre la valeur selectionnee de la colonne choisie et toutes les donnees presentes sur la m ligne. ce copier coller se fait de ma feuille 1 sur la feuille 2.


ds ma colonne d j'ai des dates. je voudrais par le m type de recherche avoir la possibilite de chercher toutes les dates comprises entre deux dates. cette recherche je voudrais la faire ds la m textbox que les autres. Pour cela je voudrais savoir s'il est possible de mettre un caractere persistant ds la text box que je ne peux pas supprimer (par exemple un -) et taper de chaque cote les dates limites et la recherche regarderait toutes les valeurs comprises entre ces deux donnee < - et > -. je voudrais que l'on m'aide a placer ce caractere persistant (commande pour) et m'aider a fixer les limites et la commande de recherche entre deux limites

je ne sais pas c'est une idee mais j'en ai vraiment besoin, j'espere avoir ete claire

merci d'avance

[alex_elder1_1]

pourriez vous au moins m'aider pour fixer le tire de facon constante ds le fichier please

[SilkyRoad]

bonsoir

pourriez vous au moins m'aider pour fixer le tire de facon constante ds le fichier please

peux tu réexpliquer clairement ton problème?


bonne soirée
michel

[alex_elder1_1]

en fai j'ai fixe ds ma text box un tire
dc je voudrais avoir la possibilite de mettre une date de chaque cote de ce tire et ainsi de chercher toutes les dates comprises entre ces deux dates.
je cherche ces donnees ds ma textbox appelee MD et ensuite mes recherches sont retranscrites sur feuille2
ce que je voudrais c'est avoir le code pour fixer les criteres de recherche cad fixer comme limite la date avant le tire par exemple 11/05 et la date apres le tire 11/06 pour trouver tout ce qui va entre (en respectant les proprietes de mon deuxieme code ds mon premier message). je voudrais que ces deux limites soient ds une seule textbox c pour ca que j'ai mis un tiret comme constante
est ce mieux
merci d'avance