Paramètres recherche cells

Bonjour,

je ne parviens pas à paramétrer correctement les données de Cells.

Pour les valeurs de semaine comprises entre 47 et 52, cela fonctionne, mais celles comprises entre 01 et 46, je ne trouve pas les bonnes valeurs.

Macro utilisée Saisie dans feuille Inscrits.

Pourriez-vous me donner les bons paramètres avec les explications si possible.

D'avance merci

Fichier joint Vestiaire.xlsm

bonjour,

une autre approche pour la validation de la semaine. on détecte si le numéro de semaine est présent en ligne 2

Sub Saisie()
'
' Saisie Macro
'
'
    Sheets("Inscrits").Select
    Range("A4").Select

    Dim carte As String 'String = chaine de caractère, à adapter si vous cherchez un nombre par ex...
    carte = InputBox("DONNER LE NUMERO DE CARTE", "                           CARTE")
    If StrPtr(carte) = 0 Then
        Range("A4").Select
        Exit Sub
    ElseIf carte = "" Then
        MsgBox "           SAISIE INCORRECTE" & vbCrLf & "               VALEUR NULLE", , "                     CARTE ":
        Exit Sub
    ElseIf Not IsNumeric(carte) Then
        MsgBox "            SAISIE INCORRECTE" & vbCrLf & "          VALEUR NON NUMERIQUE", , "                           CARTE ":
        Exit Sub

    End If

    Dim sem As String 'String = chaine de caractère, à adapter si vous cherchez un nombre par ex...
    sem = InputBox("                 DONNER LE NUMERO DE SEMAINE" & vbCrLf & vbCrLf & "               VALEUR COMPRISE ENTRE 47 ET 12", "                           SEMAINE")
    If StrPtr(sem) = 0 Then
        Range("A4").Select
        Exit Sub
    ElseIf sem = "" Then
        MsgBox "           SAISIE INCORRECTE" & vbCrLf & "               VALEUR NULLE", , "                     SEMAINE ":
        Exit Sub
    ElseIf Not IsNumeric(sem) Then
        MsgBox "            SAISIE INCORRECTE" & vbCrLf & "          VALEUR NON NUMERIQUE", , "                           SEMAINE ":
        Exit Sub

    End If

    Set re = Range("2:2").Find("S" & Format(sem, " 00"), lookat:=xlWhole, LookIn:=xlValues)
    If Not re Is Nothing Then
        re.Offset(2, 0).Offset(0, 1).Select
    Else
        MsgBox "semaine non trouvée"
    End If
End Sub

Bonjour,

merci mais par contre le positionnement ne tient pas compte du numéro de carte.

La cellule sélectionnée reste sur la ligne de la carte 1 et non sur celle saisie.

Merci

bonjour,

voici

Sub Saisie()
'
' Saisie Macro
'
'
    Sheets("Inscrits").Select
    Range("A4").Select

    Dim carte As String 'String = chaine de caractère, à adapter si vous cherchez un nombre par ex...
    carte = InputBox("DONNER LE NUMERO DE CARTE", "                           CARTE")
    If StrPtr(carte) = 0 Then
        Range("A4").Select
        Exit Sub
    ElseIf carte = "" Then
        MsgBox "           SAISIE INCORRECTE" & vbCrLf & "               VALEUR NULLE", , "                     CARTE ":
        Exit Sub
    ElseIf Not IsNumeric(carte) Then
        MsgBox "            SAISIE INCORRECTE" & vbCrLf & "          VALEUR NON NUMERIQUE", , "                           CARTE ":
        Exit Sub

    End If

    Dim sem As String 'String = chaine de caractère, à adapter si vous cherchez un nombre par ex...
    sem = InputBox("                 DONNER LE NUMERO DE SEMAINE" & vbCrLf & vbCrLf & "               VALEUR COMPRISE ENTRE 47 ET 12", "                           SEMAINE")
    If StrPtr(sem) = 0 Then
        Range("A4").Select
        Exit Sub
    ElseIf sem = "" Then
        MsgBox "           SAISIE INCORRECTE" & vbCrLf & "               VALEUR NULLE", , "                     SEMAINE ":
        Exit Sub
    ElseIf Not IsNumeric(sem) Then
        MsgBox "            SAISIE INCORRECTE" & vbCrLf & "          VALEUR NON NUMERIQUE", , "                           SEMAINE ":
        Exit Sub

    End If

    Set re = Range("2:2").Find("S" & Format(sem, " 00"), lookat:=xlWhole, LookIn:=xlValues)
    If Not re Is Nothing Then
        re.Offset(carte + 1, 0).Offset(0, 1).Select
    Else
        MsgBox "semaine non trouvée"
    End If
End Sub

GENIAL,

Merci beaucoup

Bonne journée

-supprimé-

Erreur de manip'...