Discussion :

[prorider68]

Bonjour à tous !

Il y a quelque temps j'avais créer un topic sur un problème que j'ai rencontré.
Mon problème était :

"
IRSensBoomUp
QXSwingBrakeY7
QXCtrlCircSupplyY3
IRSensB55_2_2
QXSafetyValvePY369
QXGreasePump
IRSensPdlLForwardB169
IRSensPumpB159

Je souhaiterai en vba faire un trie de cette liste pour
- ressortir uniquement les noms qui commencent par "IR"
- que son nom contient la lettre "B" suivit au minimum de 1 chiffre.
"

Avec l'aide de Bbil et autres j'en suis arrivé là :

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
Dim st As String
Dim stSuitB As String 'Caractère suivant le b
Dim iPosB As Integer 'position du B
 
'-----test des capteurs du can1
 
While i < Worksheets(can1).Range("A65536").End(xlUp).Row
 
st = Worksheets(can1).Cells(i, 1).Text
iPosB = InStr(1, Worksheets(can1).Cells(i, 1).Text, "B")
 
    If iPosB > 0 Then
        stSuitB = Mid(st, iPosB + 1, 1)
            If IsNumeric(stSuitB) And Not InStr(1, Worksheets(can1).Cells(i, 1).Value, "IR") = 0 Then
                Worksheets("liste_modif").Range("A" & ligne_raf) = Worksheets(can1).Range("A" & i)
                Worksheets("liste_modif").Range("B" & ligne_raf) = i
                Worksheets("liste_modif").Range("C" & ligne_raf) = can1
                Worksheets("liste_modif").Range("D" & ligne_raf) = Worksheets(can1).Range("D" & i)
                Worksheets("liste_modif").Range("E" & ligne_raf) = Worksheets(can1).Range("E" & i)
                Worksheets("liste_modif").Range("F" & ligne_raf) = Worksheets(can1).Range("F" & i)
                Worksheets("liste_modif").Range("G" & ligne_raf) = Worksheets(can1).Range("G" & i)
                Worksheets("liste_modif").Range("H" & ligne_raf) = Worksheets(can1).Range("H" & i)
                ligne_raf = ligne_raf + 1
            End If
    End If
            i = i + 1
Wend

Cela fonctionne (fonctionnait) très bien !
Mais maintenant je tombe sur un nouveau problème..

Ma liste de noms à analyser a changée et certains noms sont du style :

IRSensPdlBackwardB188

et donc ma fonction de test regarde uniquement le premier "B" et celui-ci n'est pas suivit d'un chiffre donc il ne me copie pas ce nom


J'ai pensé à détecter les caractères de type numérique et regarder si le caractère précedent est un "B" mais je n'y arrive pas .

Si quelqu'un pourrait me donner un petit coup de main

[Ashireon]

Un peu barbare ma reponse pour tester avec une petite fonction sur mesure..

Code :

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

IF Teststring(st)=true then...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function TestString(ByVal chaine As String) As Boolean
If (chaine Like "*B0*") Or (chaine Like "*B1*") Or (chaine Like "*B2*") Or (chaine Like "*B3*") _
        Or (chaine Like "*B4*") Or (chaine Like "*B5*") Or (chaine Like "*B6*") _
        Or (chaine Like "*B7*") Or (chaine Like "*B8*") Or (chaine Like "*B9*") Then
 
          TestString = True
        Else
          TestString = False
End If
 
End Function

[prorider68]

ah ouais pourquoi pas ^^
je vais essayer ça !

En attendant moi aussi j'ai trouvé une méthode de barbare :

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
'---copier les noms, numero de ligne_raf, et le can
 
Dim i, ligne_raf As Long
i = 1
ligne_raf = 2
 
Dim st As String
Dim stSuitB As String 'Caractère suivant le B
Dim stSuitB2 As String 'Caractère suivant le deuxième B
Dim stSuitB3 As String 'Caractère suivant le troisième B
Dim iPosB As Integer 'position du B
Dim iPosB2 As Integer ' position du deuxième B
Dim iPosB3 As Integer ' position du troisième B
 
 
'-----test des capteurs du can1
 
While i < Worksheets(can1).Range("A65536").End(xlUp).Row
 
st = Worksheets(can1).Cells(i, 1).Text
iPosB = InStr(1, st, "B")
iPosB2 = InStr(iPosB + 1, st, "B")
iPosB3 = InStr(iPosB2 + 1, st, "B")
 
    If iPosB > 0 Or iPosB2 > 0 Or iPosB3 > 0 Then
        stSuitB = Mid(st, iPosB + 1, 1)
        stSuitB2 = Mid(st, iPosB2 + 1, 1)
        stSuitB3 = Mid(st, iPosB3 + 1, 1)
            If (IsNumeric(stSuitB) Or IsNumeric(stSuitB2) Or IsNumeric(stSuitB3)) And Not InStr(1, st, "IR") = 0 Then
                Worksheets("liste_modif").Range("A" & ligne_raf) = Worksheets(can1).Range("A" & i)
                Worksheets("liste_modif").Range("B" & ligne_raf) = i
                Worksheets("liste_modif").Range("C" & ligne_raf) = can1
                Worksheets("liste_modif").Range("D" & ligne_raf) = Worksheets(can1).Range("D" & i)
                Worksheets("liste_modif").Range("E" & ligne_raf) = Worksheets(can1).Range("E" & i)
                Worksheets("liste_modif").Range("F" & ligne_raf) = Worksheets(can1).Range("F" & i)
                Worksheets("liste_modif").Range("G" & ligne_raf) = Worksheets(can1).Range("G" & i)
                Worksheets("liste_modif").Range("H" & ligne_raf) = Worksheets(can1).Range("H" & i)
                ligne_raf = ligne_raf + 1
            End If
 
 
    End If
            i = i + 1
Wend

[Docmarti]

Vu que les critères deviennent complexes, ca devient un cas de FOR NEXT, à placer de préférence dans une fonction.

Evite aussi la propriété TEXT dont la valeur varie de façon aléatoire selon la largeur de la colonne. Mieux vaut utiliser Worksheets(can1).Cells(i, 1).Value ou Worksheets(can1).Cells(i, 1).Value2.

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
Sub test()
 
'-----test des capteurs du can1
 i = 1
While i < ThisWorkbook.Worksheets(can1).Range("A65536").End(xlUp).Row
 
result = Detecte_IR_B09(ThisWorkbook.Worksheets(can1).Cells(i, 1).Value2)
 
If result = True Then
 Stop
End If
 
i = i + 1
Wend
 
End Sub
 
Function Detecte_IR_B09(st)
 
st = UCase(st)
 
If st = "" Then
 Exit Function
 
ElseIf Mid(st, 1, 2) = "IR" Then
 
For j = 0 To 9
 
If InStr(st, "B" & j) > 0 Then
 
Detecte_IR_B09 = True
Exit Function
 
End If
 
Next
 
End If
 
End Function