Sélection d'un jour de la semaine

Résolu/Fermé

Raphifouille Messages postés 3 Date d'inscription lundi 17 octobre 2011 Statut Membre Dernière intervention 24 octobre 2011 - 24 oct. 2011 à 10:50
Raphifouille Messages postés 3 Date d'inscription lundi 17 octobre 2011 Statut Membre Dernière intervention 24 octobre 2011 - 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
Mettre à jour ses pilotes - Guide
Mise a jour airpods - Guide
Mise a jour windows 10 - Guide
Mise a jour xiaomi - Guide
Mise a jour chromecast - Guide

3 réponses

Réponse 1 / 3

yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
24 oct. 2011 à 11:08

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 oct. 2011 à 12:41

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 lundi 17 octobre 2011 Statut Membre Dernière intervention 24 octobre 2011
24 oct. 2011 à 14:29

Merci beaucoup Michel, ça marche à la perfection

Réponse 3 / 3

Raphifouille Messages postés 3 Date d'inscription lundi 17 octobre 2011 Statut Membre Dernière intervention 24 octobre 2011
24 oct. 2011 à 14:23

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

Discussions similaires

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

Table des matières dont les titres n'apparaissent pas..

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

mise à jour boitier X96 mini

Mise à jour impossible à terminer

Discussions similaires

Newsletters