probleme variable bloc

Staple1600 à dit:

Bonjour le fil, le forum

@judoka0209
???
Pourquoi tu repars sur le Select Case alors qu'aprés avoir suggéré son emploi, j'y ai renoncé (pour allégér le code) en utilisant
MonthName et Month et Offset?

Quant à la syntaxe du Select Case, je t'ai expliqué où trouver son mode d'utilisation et KVL t'a également donné des explications et fourni un exemple complet (mais ça c'était dans ton autre fil..; d'où l'intérêt ne pas multiplier les fils )

EDITION: Bonjour job75

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, le forum
J'ai simplifié le code (mais suis pas sur de son efficience )

VB:

Sub Test_II()
Dim plageA As Range, plageB As Range, c As Range
Set plageA = Sheets("ep").Range("$D$7:$BC$7")
Set plageB = Sheets("ep").Range("$D$5:$BC$5")
With Application
    .ScreenUpdating = False
    For Each c In Range("C5:NC5")
    MsgBox MonthName(Month(c.Offset(-2)))
    If .CountIf(plageA, "a") * .CountIf(c.Offset(-3), "jeu") * .CountIf(Range("C1"), MonthName(Month(c.Offset(-2)))) * _
        .CountIf(plageB, MonthName(Month(c.Offset(-2)))) * .CountIf(c.Offset(1), "a") Then
        c.Value = 6
    End If
    Next
End With
End Sub

Je te laisse tester*.

*: il faut d'abord effacer les formules en C5:NC5 avant de lancer la macro.

Cliquez pour agrandir...

Staple1600 à dit:

Re judoka, job75

@judoka0209
Avec un Select Case, tu vas réécrire 12 fois (pour les 12 mois) la même partie de ton code
C'est pour éviter cela, que j'avais abandonné la voie du Select Case

Cliquez pour agrandir...

Staple1600 à dit:

Re

@judoka0209
Tu as écrit dans ton message#13
Select Case Month(c.Offset(-10))
Ce qui laisse penser que tu boucles sur les douze mois, non ?

Cliquez pour agrandir...

judoka0209 à dit:

non je veux pas qu'il me fasse les mois mais qu'il me mette 6 dans le vendredi, samedi et dimanche de la ligne 13

Cliquez pour agrandir...

Sub Test()
Dim plageA As Range, plageB As Range, c As Range, mois As String
Set plageA = Sheets("ep").Range("D10:BC10")
Set plageB = Sheets("ep").Range("D5:BC5")
With Application
    .ScreenUpdating = False
    Range("C13:NC13").ClearContents
    If .CountIf(plageA, "A") = 0 Then Exit Sub
    For Each c In Range("C13:NC13")
        If Weekday(c.Offset(-10), 2) > 4 Then 'vendredi, samedi, dimanche
            mois = MonthName(Month(c.Offset(-10)))
            If .CountIf(Range("C1:NC1"), mois) * .CountIf(plageB, mois) * .CountIf(c.Offset(-7), "A") Then c = 6
        End If
    Next
End With
End Sub

job75 à dit:

Re,

Eh oui, il suffisait de le dire (et surtout de ne pas le faire !!!) :

Code:

Sub Test()
Dim plageA As Range, plageB As Range, c As Range, mois As String
Set plageA = Sheets("ep").Range("D10:BC10")
Set plageB = Sheets("ep").Range("D5:BC5")
With Application
    .ScreenUpdating = False
    Range("C13:NC13").ClearContents
    If .CountIf(plageA, "A") = 0 Then Exit Sub
    For Each c In Range("C13:NC13")
        If Weekday(c.Offset(-10), 2) > 4 Then 'vendredi, samedi, dimanche
            mois = MonthName(Month(c.Offset(-10)))
            If .CountIf(Range("C1:NC1"), mois) * .CountIf(plageB, mois) * .CountIf(c.Offset(-7), "A") Then c = 6
        End If
    Next
End With
End Sub

A+

Cliquez pour agrandir...

judoka0209 à dit:

la tu m'as tout changé

Cliquez pour agrandir...

job75 à dit:

Re,

Maintenant si vous voulez mettre "en dur" la liste des jours pas de problème :

Code:

Sub Test()
Dim plageA As Range, plageB As Range, jour, c As Range, mois As String
Set plageA = Sheets("ep").Range("D10:BC10")
Set plageB = Sheets("ep").Range("D5:BC5")
jour = Array("ven", "sam", "dim") 'liste à adapter
With Application
    .ScreenUpdating = False
    Range("C13:NC13").ClearContents
    If .CountIf(plageA, "A") = 0 Then Exit Sub
    For Each c In Range("C13:NC13")
        If IsNumeric(.Match(c.Offset(-11), jour, 0)) Then
            mois = MonthName(Month(c.Offset(-10)))
            If .CountIf(Range("C1:NC1"), mois) * .CountIf(plageB, mois) * .CountIf(c.Offset(-7), "A") Then c = 6
        End If
    Next
End With
End Sub

Fichier (2).

A+

Cliquez pour agrandir...

job75 à dit:

Re,

Au lieu de rester les bras croisés secouez-vous un peu.

Regardez le fichier du post #24 (c'est celui du post #1) : la ligne des "A" c'est la ligne 6.

Alors que dans votre (nouveau) fichier du post #25 la ligne des "A" c'est la ligne 5...

Je vous laisse adapter la macro en conséquence, cela prend une demi-seconde.

Et l'on verra ainsi si l'aide qu'on vous apporte sert à quelque chose ou si vous êtes indécrottable.

A+

Cliquez pour agrandir...