Discussion :

[Eric26]

Salut,

J'ai une macro qui copie/colle des valeurs d'une plage dans une autre plage qui correspond à des jours de semaine inclus dans des tableaux mensuels.

Cela correspond à la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For i = 1 To 31
  With Range("A" & i)
    If .Value <> "" Then
       'lundi au dimanche
        val_a = Weekday(.Value, vbMonday)
        Range("D" & i).Value = Range("data!B" & val_a + 2).Value
            End If
  End With
Next i

Je veux étoffer de sorte que les valeurs ne se collent que si les jours de semaine sont compris dans un intervalle de date déjà saisi par l'utilisateur.

Par ex si l'intervalle est : du 01/02/2011 au 31/03/2011, les valeurs ne seront collées que dans les lignes où les jours de semaine seront compris dans cet intervalle.

J'ai cherché une fonction pour cela, mais je trouve de tout.

Si quelqu'un pouvait m'orienter vers une fonction simple à utiliser

Merci

[Fvandermeulen]

Salut,

Tu peux facilement gérer ça par des IF:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
DateDeb = DateSerial(2011, 2, 1) 'A toi de voir comment l'utilisateur indiquera cette info
DateFin = DateSerial(2011, 3, 31)
 
For i = 1 To 31
  With Range("A" & i)
    If .Value <> "" And .Value >= DateDeb And .Value <= DateFin Then
       'lundi au dimanche
        val_a = Weekday(.Value, vbMonday)
        Range("D" & i).Value = Range("data!B" & val_a + 2).Value
    End If
  End With
Next i

[Eric26]

Salut Fvandermeulen,

OK, impeccable

ça fonctionne très bien

je te remercie