Microsoft 365 Comprise entre deux valeurs

[Francky79]

Bonjour le forum,

Dans un Worksheet_SelectionChange j'ai cette formule qui marche bien,

If InStr(Feuil2.Cells(lig, 7).Value, "40") Then
             Cells(lig, 8) = "w"
             Cells(lig, 9) = ""
        End If

mais si je veux remplacer la valeur "40" par comprise entre 1 et 52 là je coince.
Pouvez-vous m'aider ?

 

[sylvanu]

Bonjour Francky,
Peut être par analyse de la chaine.
Hors contexte qui permettrait d'être plus précis, un exemple avec une fonction perso :

Function RechercheNombre(Chaine)
    For i = 1 To Len(Chaine)
        If IsNumeric(Mid(Chaine, i, 1)) Then
            Nombre = Nombre & Mid(Chaine, i, 1)
        End If
        Nombre = Val(Nombre)
    Next i
    If Nombre >= 1 And Nombre <= 52 Then RechercheNombre = "OK : " & Nombre Else RechercheNombre = "Non"
End Function

 

[Francky79]

Merci Sylvanu pour ton aide,
mais si possible une solution sans formule dans les cellules.

 

[sylvanu]

Hors contexte qui permettrait d'être plus précis,

Votre code est incomplet, j'ai fait au plus simple pour l'exemple, et montrer le principe.

Ca peut être adaptée comme ceci par ex :

Sub Essai()
    Lig = 4
    N = Cells(Lig, 7).Value
    Nombre = RechercheNombre(N)
    If Nombre <> "" Then
        If Nombre >= 1 And Nombre <= 52 Then
             Cells(Lig, 8) = "w"
             Cells(Lig, 9) = ""
        End If
    End If
End Sub
Function RechercheNombre(Chaine)
    For i = 1 To Len(Chaine)
        If IsNumeric(Mid(Chaine, i, 1)) Then
            Nombre = Nombre & Mid(Chaine, i, 1)
        End If
        Nombre = Val(Nombre)
    Next i
    RechercheNombre = Nombre
End Function

Sinon si vous n'arrivez pas à adapter, fournissez un petit fichier test.

 

[Francky79]

Merci pour ton aide, je regarde ça ce soir.