Discussion :

[alex_elder1_1]

bjr a tous

J'ai le contenu de cellules ds mes colonnes qui sont en capitales
je fais une recherche qui a pour code

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
50
51
52
53
Private Sub ProcMotor()
  Worksheets("Sheet2").Activate
  Range("B2:J4000").Select
  selection.Delete

'MOTOR DESCRIPTION


  Dim i As Integer
  Dim DesignationRecherchee As String
  
    Dim Cell As Range
    Dim x As Integer
  
  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

j'appelle cette recherche Call ProcMotor lorsque je clique sur bouton
Cette recherche se fait par rapport au contenu d'une TextBOX MD juste a cote du bouton donc
je voudrais que lorsque je rentre ma recherche et que je clique, en depis du fait que les contenus de mes cellules soient en majuscules que je puisse entrer des codes en minuscules et que la recherche les reconnaisse qd m

est ce comprehensible

Ouskel' suis je plus clair?

merci d'avance

[random]

ucase

[alex_elder1_1]

excuse moi peux tu etre plus clair?
merci de m'aider

[SfJ5Rpw8]

ucase

[alex_elder1_1]

oui mais peux tu me dire ou je dois le mettre s'il te plait ds ma recherche s'il te plait?
merci d'avance parce que je ne sais pas trop en fait

[ouskel'n'or]

Code :

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

If Ucase(.Cells(i, 5)) Like Ucase(DesignationRecherchee) & "*" Then

Essaie de comprendre le principe

[alex_elder1_1]

merci bcp

[random]

De gaulle, Bonaparte, Jaures, Blum, Brillant sont fiers de toi

Sans oublier Jeanne d'Arc, Pic de la Mirandole, du Guesclin, Charles D'orléans et l'homme de Cromagnon et surtout le maréchal Pétain.
Tu vas entrer dans la carrière puisque nos aînés n'y sont plus.

Personnellement j'écris Briand mais c'est du snobisme.