Probléme pense bête

JBARBE

JBARBE

XLDnaute Barbatruc
Bonjour à tous,

Malgré ma demande sur ce forum il y a quelques temps, je n'ai pas trouvé solution !

J'ai créé un pense bête qui fonctionne mais qui pose problème lorsqu'il n'est pas utilisé depuis quelques jours !

En effet, malgré l'utilisation de la boucle suivante qui fait fonctionner le filtre plusieurs fois, les résultats ne sont pas concluants :

Code: 
For i = 1 To 20
Call Filtre
Next i

Code: 
Sub Filtre()
Sheets("Date_En_Cours" ).Select​
Range("A1:H200" ).Sort Key1:=Range("B1" ), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Merci de votre collaboration et bonne journée !
 

Pièces jointes

  • Pense_Bête_Essai.xls
    93 KB · Affichages: 36
  • Pense_Bête_Essai.xls
    93 KB · Affichages: 39
  • Pense_Bête_Essai.xls
    93 KB · Affichages: 35
Trier par date Trier par votes
JBARBE

JBARBE

XLDnaute Barbatruc
Re : Probléme pense bête

bika à dit:
Bonjour

Tu appelle ton filtre après avoir affiché tes messages, ceux-ci ne peuvent tenir compte du filtre.
Si c'est bien ton problème, il faut remonter ton filtre en début de procédure.
Cliquez pour agrandir...

Ok, je pense que ma variable i était mal placé !

Je testerai plus tard, ce changement !

Code: 
Sub Selection_Premier()
Dim j As Long
Dim i As Long
Dim DernLigne As Long
Application.ScreenUpdating = False
Range("Zone_Dates").ClearContents
For i = 1 To 20
DernLigne = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
For j = 2 To DernLigne ''''' debut j
If Cells(j, 2).Value = "" Then Exit For
If Cells(j, 9).Value = 1 Then
Cells(j + 1, 2).Select
Else
Call Selectionner
Cells(j + 1, 2).Select
End If
Next j
Call Filtre
Next i
Range("I:I").ClearContents
Application.ScreenUpdating = True
Range("A2").Select
End Sub

Merci !
 

Pièces jointes

  • Pense_Bête_Essai.xls
    91 KB · Affichages: 29
  • Pense_Bête_Essai.xls
    91 KB · Affichages: 32
  • Pense_Bête_Essai.xls
    91 KB · Affichages: 34
Vote positif 0 Vote négatif
JCGL

JCGL

XLDnaute Barbatruc
Re : Probléme pense bête

Bonjour à tous,

Attention aussi au Application.Quit

VB: 
Sub Quitter()'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0

    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    ActiveWorkbook.Save
    'Application.Quit
End Sub

Tu peux remplacer :
Code: 
Cells(i, 7).FormulaR1C1 = _        "=IF(WEEKDAY(RC[-5],2)=1,""Lundi"",IF(WEEKDAY(RC[-5],2)=2,""Mardi"",IF(WEEKDAY(RC[-5],2)=3,""Mercredi"",
IF(WEEKDAY(RC[-5],2)=4,""Jeudi"",IF(WEEKDAY(RC[-5],2)=5,""Vendredi"",IF(WEEKDAY(RC[-5],2)=6,""Samedi"",
IF(WEEKDAY(RC[-5],2)=7,""Dimanche"","""")))))))"

par
Code: 
 Cells(i, 7).Formula = "=PROPER(TEXT(RC[-5],""jjjj""))"


A+ à tous
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
Re : Probléme pense bête

MJ13 à dit:
Bonjour Jbarbe, Bika

Attention quand même à bien remettre le ctrl+F1 en quittant :eek:.
Cliquez pour agrandir...

Merci JCGL

Ce CTRL+F1 ne fonctionne pas bien avec mon fichier !

J'ai changé avec Application.SendKeys "^{F1}" sans résultat

Comment y remédier SVP !

D'autre part la boucle i de 1 à 20 est un peut longue ( 20 étant approximatif ), comment y remédier !

Merci !
 
Dernière édition:
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : Probléme pense bête

Bonjour,
pourquoi ne pas utiliser de vrais post-it qui resteront affichés plutôt que de passer par des MsgBox que tu dois obligatoirement fermer ?
quelques exemples développés ici qui utilisent le pense-bête de Windows et que tu peux adapter par toi-même à ta problématique.
A+
 
Vote positif 0 Vote négatif
MJ13

MJ13

XLDnaute Barbatruc
Re : Probléme pense bête

Re, Bonjour Jean-Claude ,David

Tu peux tester un code de ce type valable à partir de XL 2007.

Code: 
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
End Sub
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
Re : Probléme pense bête

david84 à dit:
Bonjour,
pourquoi ne pas utiliser de vrais post-it qui resteront affichés plutôt que de passer par des MsgBox que tu dois obligatoirement fermer ?
quelques exemples développés ici qui utilisent le pense-bête de Windows et que tu peux adapter par toi-même à ta problématique.
A+
Cliquez pour agrandir...

Ho là, cela deviens compliqué !

Mais pourquoi donc, une manipulation de CTRL + F1 devient-il problématique en VBA et par conséquence ne fonctionne pas bien ?
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
Re : Probléme pense bête

MJ13 à dit:
Re, Bonjour Jean-Claude ,David

Tu peux tester un code de ce type valable à partir de XL 2007.

Code: 
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
End Sub
Cliquez pour agrandir...

Merci, mais même si je posséde Excel 2007, j'aimerais avoir une réponse pour Excel 2003 !

Bonne journée
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
Re : Probléme pense bête

Bon, je pense que mettre le i en début de procédure n'est pas convenable !

Je le remets comme avant !

Code: 
Sub Selection_Premier()
Dim j As Long
Dim i As Long
Dim DernLigne As Long
Application.ScreenUpdating = False
Range("Zone_Dates").ClearContents
DernLigne = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
For j = 2 To DernLigne ''''' debut j
If Cells(j, 2).Value = "" Then Exit For
If Cells(j, 9).Value = 1 Then
Cells(j + 1, 2).Select
Else
Call Selectionner
Cells(j + 1, 2).Select
End If
Next j
For i = 1 To 20
Call Filtre
Next i
Range("I:I").ClearContents
Application.ScreenUpdating = True
Range("A2").Select
End Sub
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
Re : Probléme pense bête

JCGL à dit:
Bonjour à tous,

Peux-tu m'expliquer pourquoi tu souhaites faire un TRI 20 fois de suite ?

A+ à tous
Cliquez pour agrandir...

Mon probléme est que lorsque je n'ai pas utilisé la macro depuis un certain temps, les lignes représentants les dates ne se positionnent pas correctement !

Ainsi par exemple la ligne représentant la date du jour ne se positionne pas en tête !

De fait, je suis obligé de cliquer plusieurs fois sur le bouton de la macro pour arriver au bon alignement des lignes représentants les dates !

J'ai donc pensé au filtrage successif ( 20 étant approximatif) !

Si vous avez une autre solution, je suis preneur !

A noter, on ne peux voir le probléme maintenant puisque la macro a été utilisée aujourd'hui !

Merci de vos réponses et bonne aprés-midi
 
Vote positif 0 Vote négatif
MJ13

MJ13

XLDnaute Barbatruc
Re : Probléme pense bête

Re

Pour l'histoire de masquer les Barres d'outils sur XL2003, qui soit dit en passant commence un peu à dater :eek:, il faudrait voir si il n'y a pas une commande pour mettre en plein écran.

Sinon, il faudra rendre chaque barre d'outils non visible et les remettre à la fermeture, ce qui complique l'affaire.
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Résolu(e)
XL 2010 Delete
Réponses
5
Affichages
273
job75
job75
C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
2 K
herve62
herve62
C
  • Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
298
candido57
C
Usine à gaz
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
306
Usine à gaz
Usine à gaz
VBA_dev_Anne_Marie
  • Résolu(e)
Microsoft 365 VBA: fonction pour désélectionner après le tri
Réponses
2
Affichages
414
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
J
  • Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
335
JMP56
J
T
  • Question
XL 2016 Code VBA sous un macos
Réponses
4
Affichages
297
telemarrk
T
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
415
Averell1976
A
G
  • Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
645
GUERET
G
M
  • Question
Autres VBA - cumuler 2 Private Sub Worksheet_change(ByVal Target As Range)
Réponses
5
Affichages
457
AtTheOne
AtTheOne

Membres actuellement en ligne

8 membres et 51 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 413
Messages
2 088 201
Membres
103 766
dernier inscrit
mahieux