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 -
Raphifouille Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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
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
http://www.praxispro.fr/excel-performance/a/convertir-date-format-de-cellule/11308
ça te va ?
et personnellement j'ai pas torp compris ça :
ça te va ?
et personnellement j'ai pas torp compris ça :
j'ai mis cellules sous le format "jjjj jj"
Bonjour
essaies cette macro
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
