Combiner like et valeurs comprises entre

bonjour,

dans l'exemple et de préférence par macro je voudrai extraire de la colonne A les nombres qui sont compris entre certaines valeurs.

Par exemple en rouge le résultat souhaité.

merci d'avance

bonjour,

yes merci beaucoup les résultats sont exactement ceux qu'ils me faut.

Néanmoins pour pouvoir l'intégrer dans une suite de macro sur un projet plus vaste , peut on adapter ce code sans s'appuyer sur une fonction et en faisant par une boucle ou bien par variable tableau par exemple ??

il se peut également que parfois il y ai des caractères supplémentaires (comme ci dessous), et dans ce cas cela ne fonctionne pas avec ta fonction.

merci d'avance ;)

bonjour,

Sub ValeursEntre()
     Dim iValue As Integer, MonMin As Integer, MonMax As Integer, L, C
     Set sca = CreateObject("system.collections.arraylist")

     For L = 11 To 23     'boucle ces lignes
          For C = 1 To 2     '2 recherches
               Select Case C
                    Case 1: MonMin = 4300: MonMax = 4500     'recherche 1
                    Case Else: MonMin = 4501: MonMax = 4600     'l'autre
               End Select

               sca.Clear     'RAZ
               s = Cells(L, "A").Value2
               If Len(s) > 0 Then
                    sp = Split(s, ";")     'divider sur le ";"
                    For j = 0 To UBound(sp)
                         If IsNumeric(sp(j)) Then
                              iValue = sp(j)
                              If MonMin <= iValue And iValue <= MonMax Then
                                   If Not sca.contains(iValue) Then sca.Add iValue
                              End If
                         End If
                    Next
               End If

               If sca.Count Then
                    sca.Sort
                    Cells(L, "C").Offset(, C).Value = "'" & Join(sca.toarray, ";")
               Else
                    Cells(L, "C").Offset(, C).Value = "Texte en cas d'erreur"
               End If
          Next
     Next
End Sub

Génial !!! un grand merci