jour ouvres

[pascal]

Bonjour,
Dans une feuille excel avec des dates et je souhaite extraire uniquement les jours ouvrés pour les coller auilleurs par macro
Comment faire
Pascal

 

[patrick C]

Vola un petit bout de code que tu peux recopier en adaptant


Bonne journée

Patrick C



Sub recopiage()
'
nb_ligne = 0

Application.ScreenUpdating = False

'tu comptes le nb de lignes qu'il y a dans ta feuille
For i = 1 To Rows.Count
If Cells(i, 2) <> "" Then
nb_ligne = nb_ligne + 1
End If
Next

o = 1
For j = 1 To nb_ligne
calend = Cells(j, 2)
If WeekDay(Cells(j, 2), vbSunday) <> 1 Then
If WeekDay(Cells(j, 2), vbSunday) <> 7 Then
'tu choisis ce que tu veux copier
Cells(j, 2).Select
Selection.Copy
'tu définis l'endroit où tu veux coller
Sheets("Feuil1").Select
Cells(o, 2).Select
ActiveSheet.Paste
o = o + 1
'tu reviens à la feuille de départ
Sheets("absences").Select
End If
End If
Next

Application.ScreenUpdating = True
'
End Sub

 

[pascal]

bonsoir,
j'ai 1 petit problème ,ca ne fonctionne pas et je suis peu calé en vba pouver vous voir la cause du problème?
merci beaucoup
pascal