Requete VBA

Résolu/Fermé

chevrotine22 Messages postés 20 Date d'inscription mardi 10 décembre 2013 Statut Membre Dernière intervention 14 septembre 2017 - 10 déc. 2013 à 16:54
chevrotine22 Messages postés 20 Date d'inscription mardi 10 décembre 2013 Statut Membre Dernière intervention 14 septembre 2017 - 10 déc. 2013 à 18:04

Bonjour,
Je debut en VBA, et je souhaite effectuer une requête en VBA.
Je dispose d'un tableau d'on la colonne A correspond a des dates en format "m/d/yyyy h:mm", Je voudrais que a l'ouverture de cette requête:
- Si on est lundi ca supprime toute les lignes correspondant a d'autre jours que Samedi Dimanche et Lundi.
- Sinon que ca supprime toutes les lignes des jours autre que le jours en cours et la veille.
Merci d'avance

A voir également:

Requete VBA
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Requête sql pix - Forum Python
Autofill vba ✓ - Forum Excel
Incompatibilité de type vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Kargrim Messages postés 132 Date d'inscription dimanche 23 novembre 2008 Statut Membre Dernière intervention 17 août 2016 17
Modifié par Kargrim le 10/12/2013 à 17:31

Bonsoir,

Voilà une solution en associant la procédure à un bouton :

Sub Button1_Click()
Dim i As Integer
i = 2 'Si ta première date est à la ligne 2

If Weekday(Now()) = 2 Then 'Lundi est le 2eme jour selon la norme US
While ActiveSheet.Cells(i, 1).Value <> ""
If Weekday(ActiveSheet.Cells(i, 1)) <> 1 And Weekday(ActiveSheet.Cells(i, 1)) <> 7 And Weekday(ActiveSheet.Cells(i, 1)) <> 2 Then 'On vérifie qu'on n'est ni samedi ni dimanche ni lundi
ActiveSheet.Cells(i, 1).EntireRow.Delete
i = i - 1
End If
i = i + 1
Wend
Else
While ActiveSheet.Cells(i, 1).Value <> ""
If Weekday(ActiveSheet.Cells(i, 1)) <> Weekday(Now()) And Weekday(ActiveSheet.Cells(i, 1)) <> Weekday(Now()) - 1 Then 'On cherche les jours de la semaine qui ne sont ni celui d'aujourd'hui ni celui d'hier
ActiveSheet.Cells(i, 1).EntireRow.Delete
i = i - 1
End If
i = i + 1
Wend
End If
End Sub

Peut-être que quelqu'un d'autre proposera une solution plus efficace

chevrotine22 Messages postés 20 Date d'inscription mardi 10 décembre 2013 Statut Membre Dernière intervention 14 septembre 2017
10 déc. 2013 à 18:04

Bonsoir,

ca marche super bien merci beaucoup

Discussions similaires

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

Erreur d'exécution 13 Incompatibilité de type

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA