Microsoft 365 Comprise entre deux valeurs

Francky79 · 16 Septembre 2024

Bonjour le forum,

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

VB:

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 · 16 Septembre 2024

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

VB:

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 · 16 Septembre 2024

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

sylvanu · 16 Septembre 2024

sylvanu à dit:
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 :

Code:

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 · 16 Septembre 2024

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

Microsoft 365 Comprise entre deux valeurs

Francky79

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Francky79

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

Discussions similaires