sélection d'un jour de la semaine Résolu/Fermé

Question

Bonjour, 

Je bataille depuis un bon moment mais pas moyen de sélectionner un jour de la semaine.
Pour faire apparaitre les différents jour de la semaine j'ai mis cellules sous le format "jjjj jj"
Mais je dois faire disparaitre tous les dimanche et les lundi.

Le code que j'ai fais est le suivant:

Dim NomJour As String
Dim Jour As Integer


        Jour = Columns("A:A")
        NomJour = CInt(Jour)
        NomJour = Left(Jour, 3)

            Columns("A:A").Select
        If IsDate(NomJour) = "sam" Then
            Selection.EntireRow.Delete
        End If
        
        If NomJour = "dimanche" Then
            Selection.ClearContents
        End If

Après je suis tout nouveau dans le domaine dans la programmation sur VBA donc pardonnez moi si ça parrait un peu brouillon


Merci d'avance

Configuration: Windows 2000 / Firefox 6.0.2

yacleouf · Answer

http://www.praxispro.fr/excel-performance/a/convertir-date-format-de-cellule/11308
ça te va ?
et personnellement j'ai pas torp compris ça :
j'ai mis cellules sous le format "jjjj jj"

michel_m · Answer

Bonjour

essaies cette macro
Sub supprimer_dim_lun()
Dim fin As Integer, lig As Integer, jour As Date

'dernière ligne utilisée
fin = Columns("A").Find("*", , , , , xlPrevious).Row
'fige le déplacement de l'écran
Application.ScreenUpdating = False

'boucle "en remontant"
For lig = fin To 1 Step -1
     jour = Cells(lig, "A")
     If Weekday(jour) < 3 Then '<==> joursemen XL dim=1, lun=2
          Rows(lig).Delete 'détruit la ligne
     End If
Next
End Sub

Raphifouille · Answer

oui c'est exactement ça
ça écrit en fait mardi 09 par exemple

Sélection d'un jour de la semaine

3 réponses

Discussions similaires