tri automatique par dates

H

hoerwind

XLDnaute Barbatruc

• 21 Décembre 2010

• #2

Re : tri automatique par dates

Bonjour,

Quelques questions :

- Une solution par macro ou par formule ?
- La mise en page de la Feuil1 peut-elle être modifiée ?

A te lire

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 21 Décembre 2010

• #3

Re : tri automatique par dates

bonjour,

en fait je prefererai une solution par macro car je pourrai la mettre dans un menu contextuelle (clic droit souris) , ça je sais faire
neanmoins, on ne peut pas modifier la Feuil1 car elle est exportée ainsi via un prologiciel

merci de ton aide

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Décembre 2010

• #4

Re : tri automatique par dates

Bonjour arvin
Salut hoerwind

Vois si cela te convient
pour tester fait une modification colonne 1 ou 3 de feuil1

 

Pièces jointes

• tri_automatique_onglets.zip

  15.3 KB · Affichages: 41
• tri_automatique_onglets.zip

  15.3 KB · Affichages: 41
• tri_automatique_onglets.zip

  15.3 KB · Affichages: 41

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 21 Décembre 2010

• #5

Re : tri automatique par dates

bonjour Pierrejean : cela fait plaisir de te retrouver après ces années d'absence de ma part !
la macro fonctionne parfaitement : par contre , au lieu du "1" en colonne "C" ; cela serait plutôt un type heure : 6h30 ou 6h45
de plus , si c'est strictement inférieur à 6h30 ; j'aurai souhaité que la macro me note le nom en rouge + garde l'horaire
ex
il note sur mardi
toto 4h15 (en rouge pour bien voyant)
un grand merci à toi

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 22 Décembre 2010

• #6

Re : tri automatique par dates

bonjour, la nuit porte conseil : j'ai un peu avancé même si c'est tiré par les cheveux !
en utilisant l'enregistreur de macro :
1 . j'applique un format condititonnel : si <6h30 alors il met la ligne en rouge
2. je remplace 6h45 et 6h30 par 1 pour que la macro fonctionne !
avez vous + simple ?
merci à tous

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 22 Décembre 2010

• #7

Re : tri automatique par dates

me revoilà : voici le bout de code mais maintenant il me met tous les 1 en rouge !
Columns("C:C").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=""6h30"""
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With

Selection.Replace What:="?h??", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Feuil1").Select

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Décembre 2010

• #8

Re : tri automatique par dates

Re

Vois si cette version te convient

 

Pièces jointes

• tri_automatique_onglets.zip

  15.3 KB · Affichages: 24
• tri_automatique_onglets.zip

  15.3 KB · Affichages: 26
• tri_automatique_onglets.zip

  15.3 KB · Affichages: 24

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 22 Décembre 2010

• #9

Re : tri automatique par dates

bonsoir, toujours efficace : par contre , dans la colonne C , j'ai plutôt des 6h45 ou 4h et non pas des 6:30 ou 6:45
désolé si je ne l'ai pas indiqué dès le départ
j''essai de bouger ta macro et te tiens au courant
merci en tout cas et bonne soirée

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 25 Décembre 2010

• #10

Re : tri automatique par dates

bonjour Pierre Jean
Bon finalement j'ai adapté la macro mais qq soucis demeurent : je te renvoie le fichier exporté mais
- quelques noms n'apparait pas alors qu'il devrait y être (exempls Jean sur dim.)
- la feuille "lun." ne se cree pas
- en fait la feuille originale c'est la "B" avec des totaux pour chaque nom qui ne servent à rien : je voudrais en fait les enlever , avant de lancer la macro essai mais cela ne fonctionne pas : j'ai essayé les doublons mais difficile

Merci beaucoup et Joyeux Noel !!!!!!

 

Pièces jointes

• essai.XLS

  36.5 KB · Affichages: 43
• essai.XLS

  36.5 KB · Affichages: 42
• essai.XLS

  36.5 KB · Affichages: 48

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 26 Décembre 2010

• #11

Re : tri automatique par dates

bonjour Pierre Jean : en fait cela va mieux avec l'aide précieuse du forum et de ta part , par contre comment modifier la macro pour que si il n'y a pas le chiffre "1" dans la colonne C, alors il me place les noms mais en rouge -> j'ai essayé d'adapter la macro mais blocage .....voici le code
merci à toi et bon dimanche Sub essai()

jours = "lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche,"
With Sheets("Feuil1")
For n = 1 To .Range("A65536").End(xlUp).Row
If .Range("A" & n) <> "" Then
If InStr(jours, (Split(.Range("A" & n), " ")(0) & ",")) = 0 Then
nom = .Range("A" & n)
Else
If .Range("C" & n) <> 1 Then
jour = Split(.Range("A" & n), " ")(0)
If Not f_exist(jour) Then Sheets.Add.Name = jour
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0) = nom
hhh = CDbl(.Range("C" & n))
hhc = CDbl(.Range("C" & n))
If hhc - hhh > 0 Then
ActiveSheet.Range("A65536").End(xlUp).Offset(0, 1) = .Range("C" & n)
ActiveSheet.Range("A65536").End(xlUp).Offset(0, 1).Interior.ColorIndex = 3
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0) = nom
End If
End If

End If


End If

Next n

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 26 Décembre 2010

• #12

Re : tri automatique par dates

eureka ça marche : voici la macro
Sub essai()
Application.ScreenUpdating = False
jours = "Lun.,Mar.,Mer.,Jeu.,Ven.,Sam.,Dim.,"
With Sheets("Feuil1")
For n = 1 To .Range("A65536").End(xlUp).Row
If .Range("A" & n) <> "" Then
If InStr(jours, (Split(.Range("A" & n), " ")(0) & ",")) = 0 Then
nom = .Range("A" & n)
Else
If .Range("C" & n) <> "" Then
jour = Split(.Range("A" & n), " ")(0)
If Not f_exist(jour) Then Sheets.Add.Name = jour
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0) = nom
If .Range("C" & n) <> 1 Then
ActiveSheet.Range("A65536").End(xlUp).Offset(0, 1) = .Range("C" & n)
ActiveSheet.Range("A65536").End(xlUp).Offset(0, 1).Interior.ColorIndex = 3

End If
End If
End If
End If
Next n
End With
Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 26 Décembre 2010

• #13

Re : tri automatique par dates

Pierre jean , au sujet du code pour la feuil1 : est il possible de le placer ailleurs (façon macro ?) car cette feuille change tout le temps , elle est exportée d'un logiciel
merci en tout cas
à +

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Décembre 2010

• #14

Re : tri automatique par dates

Re

Sous reserve que la feuille importée se nomme bien Feuil1

A mettre dans thisworkbook

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Then
If Target.Column = 1 Or Target.Column = 3 Then
For Each Sh In Sheets
If Sh.Name <> "Feuil1" Then
Sh.Columns("A:B").Clear
End If
Next
Call essai
End If
End If
End Sub

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 27 Décembre 2010

• #15

Re : tri automatique par dates

bonjour Pierre Jean : en fait je l'ai enlevé : elle ne me semble pas primoridale et la macro fonctionne quand même
qu'en penses tu ?
merci

 

Vote positif 0 Vote négatif