Sélection d'un jour de la semaine

Résolu

Raphifouille Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Raphifouille Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 24 oct. 2011 à 14:29

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

A voir également:

Sélection d'un jour de la semaine
Mise a jour chrome - Accueil - Applications & Logiciels
Mise a jour windows 10 - Accueil - Mise à jour
Mettre a jour chromecast - Accueil - Guide TV et vidéo
Comment mettre à jour ses pilotes - Guide
Le jour de ma naissance gratuit - Télécharger - Histoire & Religion

3 réponses

Réponse 1 / 3

yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention 39

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"

Réponse 2 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup Michel, ça marche à la perfection

Réponse 3 / 3

Raphifouille Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Règles du jeu JOUR DE PAYE

erreur d'execution 9, l'indice n'appartient pas à la sélection

mise à jour boitier X96 mini

mise a jour firmware android

Votre réponse

Discussions similaires