Bouton valider

Fermé
j - 11 déc. 2015 à 18:19
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 15 déc. 2015 à 07:25
Bonsoir
J'ai créé un formulaire sur Excel qui comprend 7 colonnes de A à G avec Userform toutes mes données se mettent bien en place, mais je n'arrive pas valider avec le bouton valider
dans la colonne A j'ai la date et je voudrais que les dates se mettent dans l'ordre
PS la première date du formulaire part de la case A4
merci de votre réponse
cordialement
Rempaillon

1 réponse

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
12 déc. 2015 à 09:34
Bonjour,

code pour tri croissant plage de cellules avec entete, a adapter:

Sub test()
    Dim plage As Range, derl As Integer
    
        derl = Range("A" & Rows.Count).End(xlUp).Row        'derniere cellule non vide colonne A
        Set plage = Range("A4:G" & derl) 'Plage de cellules pour tri A a G
        plage.Sort key1:=Range("A4"), order1:=xlAscending, Header:=xlYes 'tri croissant colonne A (Date)
End Sub
0
ai pas repondu
14 déc. 2015 à 18:30
bonsoir
j'ai bien reçue votre réponse et je vous en remercie j'ai pas répondu avant car absent ce week end
par contre la formule marche mais que sur les deux premiers chiffres de la date
c'est a dire le jour, mais ne marche pas pour les mois et années ex(14/05/2015)
en vous souhaitant une bonne soirée
Cordialement
Rempaillon
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > ai pas repondu
14 déc. 2015 à 18:55
Bonjour,

Oui, ai oublie de prendre la plage avec l'entete de colonne

Sub test()
    Dim plage As Range, derl As Integer
    
        derl = Range("A" & Rows.Count).End(xlUp).Row        'derniere cellule non vide colonne A
        Set plage = Range("A3:G" & derl) 'Plage de cellules pour tri A a G
        plage.Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlYes 'tri croissant colonne A (Date)
End Sub
0
rempaillon > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
14 déc. 2015 à 23:17
bonsoir
j'ai bien reçue la formule modifie
mais ça ne change rien au problème au contraire quand je passe sur A 3 entête de colonne
ça m'inscrit deux fois la ligne et il n'y as que les jours qui se mettent dans l'ordre
Merci de votre aide
cordialement
Rempaiillon
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > rempaillon
15 déc. 2015 à 07:25
Bonjour,

Au temps pour moi, ai un peu panouille. Vous pouvez mettre votre fichier, sans donnees sensibles, a dispo pour voir ce qui ne va pas ??????
0