Un petit soucis :
J'ai un tableau dont les données viennent d'un userform.
Je désire par le biais d'une procédure, trier ce tableau en fonction des
dates et rien ne marche.
J'ai pourtant formaté mes TextBox :
TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau :
Range("a1")=TextBox1
Et quand je trie :
With Worksheets("Feuil1").Range("a:m").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:= xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis :
J'ai un tableau dont les données viennent d'un userform.
Je désire par le biais d'une procédure, trier ce tableau en fonction des
dates et rien ne marche.
J'ai pourtant formaté mes TextBox :
TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau :
Range("a1")=TextBox1
Et quand je trie :
With Worksheets("Feuil1").Range("a:m").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:= xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:= xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
seb
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
Bonjour JB
Merci bien ca marche nickel.
Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car
je suppose que j'aurais le même problème vu que Key2 trie en fonction des
heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis :
J'ai un tableau dont les données viennent d'un userform.
Je désire par le biais d'une procédure, trier ce tableau en fonction des
dates et rien ne marche.
J'ai pourtant formaté mes TextBox :
TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau :
Range("a1")=TextBox1
Et quand je trie :
With Worksheets("Feuil1").Range("a:m").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
seb
J'AI TROUVE Je crois
Sans doute existe t'il plus simple mais j'ai créé une colonne où je retourne : Hour(TextBox2) et une où l'on retrouve Minute(TextBox2)
Key1:= "Colonne avec CDate" Key2:= "Colonne avec Hour" Key3:= "Colonne avec Minute"
Merci quand même.
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
J'AI TROUVE Je crois
Sans doute existe t'il plus simple mais j'ai créé une colonne où je retourne :
Hour(TextBox2) et une où l'on retrouve Minute(TextBox2)
Key1:= "Colonne avec CDate"
Key2:= "Colonne avec Hour"
Key3:= "Colonne avec Minute"
Merci quand même.
Bonjour JB
Merci bien ca marche nickel.
Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car
je suppose que j'aurais le même problème vu que Key2 trie en fonction des
heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis :
J'ai un tableau dont les données viennent d'un userform.
Je désire par le biais d'une procédure, trier ce tableau en fonction des
dates et rien ne marche.
J'ai pourtant formaté mes TextBox :
TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau :
Range("a1")=TextBox1
Et quand je trie :
With Worksheets("Feuil1").Range("a:m").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Sans doute existe t'il plus simple mais j'ai créé une colonne où je retourne : Hour(TextBox2) et une où l'on retrouve Minute(TextBox2)
Key1:= "Colonne avec CDate" Key2:= "Colonne avec Hour" Key3:= "Colonne avec Minute"
Merci quand même.
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
JB
x="21/6/2006 10:30" [A2]Íate(x)
On obtient le jour et l'heure ( 38889,4375 si on enlève le format)
x="10:30" [A2]Íate(x)
JB
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heure s car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonct ion des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header :=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBotto m, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
x="21/6/2006 10:30"
[A2]=Cdate(x)
On obtient le jour et l'heure ( 38889,4375 si on enlève le format)
x="10:30"
[A2]=Cdate(x)
JB
Bonjour JB
Merci bien ca marche nickel.
Par contre,pendant que j'y suis, quelle est l'équivalent pour les heure s car
je suppose que j'aurais le même problème vu que Key2 trie en fonction des
heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis :
J'ai un tableau dont les données viennent d'un userform.
Je désire par le biais d'une procédure, trier ce tableau en fonct ion des
dates et rien ne marche.
J'ai pourtant formaté mes TextBox :
TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau :
Range("a1")=TextBox1
Et quand je trie :
With Worksheets("Feuil1").Range("a:m").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header :=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBotto m, _
DataOption1:=xlSortNormal
End With
On obtient le jour et l'heure ( 38889,4375 si on enlève le format)
x="10:30" [A2]Íate(x)
JB
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heure s car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonct ion des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header :=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBotto m, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
seb
C'est aussi simple ?!?!?!
CDate fonctionne aussi avec les heures ?!?!?!
J'ai même pas pensé a essayé.
Merci JB à une prochaine fois.
x="21/6/2006 10:30" [A2]Íate(x)
On obtient le jour et l'heure ( 38889,4375 si on enlève le format)
x="10:30" [A2]Íate(x)
JB
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Snif SNif ca déconne
Quelqu'un aurai une idée du problème?
Merci @+
C'est aussi simple ?!?!?!
CDate fonctionne aussi avec les heures ?!?!?!
J'ai même pas pensé a essayé.
Merci JB à une prochaine fois.
x="21/6/2006 10:30"
[A2]Íate(x)
On obtient le jour et l'heure ( 38889,4375 si on enlève le format)
x="10:30"
[A2]Íate(x)
JB
Bonjour JB
Merci bien ca marche nickel.
Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car
je suppose que j'aurais le même problème vu que Key2 trie en fonction des
heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis :
J'ai un tableau dont les données viennent d'un userform.
Je désire par le biais d'une procédure, trier ce tableau en fonction des
dates et rien ne marche.
J'ai pourtant formaté mes TextBox :
TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau :
Range("a1")=TextBox1
Et quand je trie :
With Worksheets("Feuil1").Range("a:m").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
On obtient le jour et l'heure ( 38889,4375 si on enlève le format)
x="10:30" [A2]Íate(x)
JB
Bonjour JB
Merci bien ca marche nickel. Par contre,pendant que j'y suis, quelle est l'équivalent pour les heures car je suppose que j'aurais le même problème vu que Key2 trie en fonction des heures.
Merci encore.
Bonjour,
Il faut convertir en date:
[A1] = CDate(TextBox1)
Cordialement JB
Amis d'Excel Bonjour !!!
Un petit soucis : J'ai un tableau dont les données viennent d'un userform. Je désire par le biais d'une procédure, trier ce tableau en fonction des dates et rien ne marche.
J'ai pourtant formaté mes TextBox : TextBox1= Format(Date,"dd/mm/yyyy")
L'écriture dans le tableau : Range("a1")=TextBox1
Et quand je trie : With Worksheets("Feuil1").Range("a:m").Select Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
