Microsoft 365 Comprise entre deux valeurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Francky79

XLDnaute Occasionnel
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 ?
 
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
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
Réponses
2
Affichages
153
Réponses
5
Affichages
562
Réponses
17
Affichages
2 K
Retour