Un probléme de variable et de programme en cascadeRésolu

Question

salut j'ai un probl&#233;me dans VBA excel, j'ai cr&#233;&#233; un petit programme qui permet &#224; un utilisateur de demander une date, toutes les dates de la semaine (du lundi au vendredi) sont prise en compte dans la copie des lignes o&#249; elles apparaissent. 
ex: l'utilisateur demande le 27 janvier 05 
      le programme traduit la date est donne le jour (jeudi)
      il ram&#233;ne la semaine au lundi (pour facilit&#233; le calcul, ou pour moi, je pense que c'est le plus simple)
      et pour chaque jour de la semaine, il verifie si la date est inscrite dans le tableau et il copie la ligne.
   Voici le programme, si vous pouvez m'aider, je vous remercie grandement.
      
Dim i As Integer
Dim j As Integer
Dim varD1, varD2, varD3 As Date


varD1 = TextBox1.Value


Dim jour As String
jour = Format$(varD1, "dddd")
    If jour = "lundi" Then
    varD2 = varD1
    Else
        If jour = "mardi" Then
        varD2 = DateAdd("d", -1, varD1)
        Else
            If jour = "mercredi" Then
            varD2 = DateAdd("d", -2, varD1)
            Else
                If jour = "jeudi" Then
                varD2 = DateAdd("d", -3, varD1)
                Else
                    If jour = "vendredi" Then
                    varD2 = DateAdd("d", -4, varD1)
                    Else
                    MsgBox "La date indiqu&#233;e tombe un Week-end" & Chr(10) & "veuillez modifier" & Chr(10) & "Merci"
                    Exit Sub
                    End If
                End If
            End If
        End If
    End If



For i = 2 To 100
    If ComboBox1 = Range("f" & i) Then
        For j = 0 To 4
        varD3 = Format$(varD2, j, "d")
            If varD3 = Range("b" & i) Then
            Sheets("feuil1").Select
            Rows(i).Select
            Selection.Copy
            Sheets("feuil2").Select
            Rows(i).Select
            ActiveSheet.Paste
            Sheets("feuil1").Select
            End If
        Next j
    End If
i = i
Next i

PS: j'utilise un userform pour la saissie des donn&#233;es.
      les 2 progs mis ind&#233;pendament sont OK

Merci, @+.

madbob · Accepted Answer

Salut

concernant la premi&#232;re partie de ton code le select case est plus pertinant (il me semble) mais ta solution marche aussi...


Select Case jour

    Case "lundi"

        varD2 = varD1    

    Case "mardi"

        varD2 = DateAdd("d", -1, varD1)    

    Case "mercredi"

        varD2 = DateAdd("d", -2, varD1)    

    Case "jeudi"

        varD2 = DateAdd("d", -3, varD1)

    Case "vendredi"

        varD2 = DateAdd("d", -4, varD1)

    Case Else

       
MsgBox "La date indiqu&#233;e tombe un Week-end" & Chr(10) &
"veuillez modifier" &        
    Chr(10) & "Merci"

        Exit Sub

End Select





Sur la 2 eme partie, j'ai bien une id&#233;e de ce que tu veux faire, mais &#231;a :

    varD3 = Format$(varD2, j, "d")


Ca ne doit pas marcher terrible



C'est pas plut&#244;t un truc comme &#231;a que tu veux :

    varD3 = Format$(DateAdd("d", j, varD2), "dddd")  ?




madbob

Gobillot · Answer

varD1 = TextBox1.Value

j = Weekday(varD1)If j 7 Or j 1 Then
    MsgBox "La date indiqu&#233;e tombe un Week-end" & Chr(10) & "veuillez modifier" & Chr(10) & "Merci"
    Exit Sub
    Else 
    varD2 = DateAdd("d", 2 - j, varD1)
    End If

Daniel

madbob · Answer

Ce que j'aime c le & Chr(10) & "Merci"

madbob

sobeit1 · Answer

Merci beaucoup

sobeit1 · Answer

j'ai tjrs un probl&#233;me dans la seconde partie du code en effet, les cellules dont je fais r&#233;f&#233;rences sont du style dd/mm/aa, et &#231;a ne marche pas.... Je ne sais pas quoi faire...
S'il vous plait, un dernier petit coup de main...
Merci

sobeit1 · Answer

En faite c'est bon, grace &#224; vous merci.

mon probl&#233;me se trouvait surtout dans 2 partie, la premiere &#233;tait dans l'expression:
varD3 = Format$(varD2, j, "d")
que j'ai transform&#233; en  varD3=DateAdd("d",j,varD2)

La seconde consist&#233;e dans la reconnaissance des valeurs dans les cellules de mon tableau
plutot que combobox1=range("f" & i)
il fallait me.combobox=range("f" & i)

Merci infiniment pour votre aide, &#224; plus.
C&#233;dric

Un probléme de variable et de programme en cascade

6 réponses

Discussions similaires