Insertion ligne ordre alphabétique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Mattsly
Membre fidèle
Membre fidèle
Messages : 239
Inscrit le : 31 mars 2014
Version d'Excel : 2010 FR

Message par Mattsly » 13 mai 2014, 14:15

Bonjour,

Voilà, j'ai mon fichier avec une liste de nom en colonne A, Prénom en colonne B etc...
J'ai un bouton qui permet de faire apparaitre mon userform et ou je ppeux ajouter une nouvelle personne.
Maintenant c'est la le soucis, j'arrive à inserer une nouvelle personne mais sur ligne définit (7 dans mon code), je voudrais à la place de ça que lorsque j'appuie sur insérer la ligne soit automatique mis par ordre alphabétique par rapport au nom.

Cdlt.
essai V1.xlsm
(27.62 Kio) Téléchargé 98 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'438
Appréciations reçues : 280
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 13 mai 2014, 14:53

bonjour,

proposition en pièce jointe
essai V2.xlsm
(25.83 Kio) Téléchargé 344 fois
Avatar du membre
Mattsly
Membre fidèle
Membre fidèle
Messages : 239
Inscrit le : 31 mars 2014
Version d'Excel : 2010 FR

Message par Mattsly » 13 mai 2014, 14:56

Bonjour,

ça fonctionne pour la feuil1.
Mais je voudrais la même chose pour la feuille 2.

Cdlt.

Re,

j'ai trouvé, merci H2so4.

Cdlt.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'438
Appréciations reçues : 280
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 13 mai 2014, 15:13

*
essai V2.xlsm
(25.99 Kio) Téléchargé 176 fois
Avatar du membre
Mattsly
Membre fidèle
Membre fidèle
Messages : 239
Inscrit le : 31 mars 2014
Version d'Excel : 2010 FR

Message par Mattsly » 14 mai 2014, 08:58

Bonjour h2so4,

http://cjoint.com/?0Eoi5H0sLof
mdp du fichier : formationsD4

Je n'arrive pas à modifier le code pour l'intégrer à mon vrai fichier.
Pourrais-tu jeter un oeil ?
Merci.

Cdlt.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'438
Appréciations reçues : 280
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 14 mai 2014, 13:16

bonjour,

J'ai ajouté l'instruction de tri pour la feuille "Récapitulatif".


http://cjoint.com/?0EonnXyOcM8
Avatar du membre
Mattsly
Membre fidèle
Membre fidèle
Messages : 239
Inscrit le : 31 mars 2014
Version d'Excel : 2010 FR

Message par Mattsly » 14 mai 2014, 21:24

Re,

Merci.

Cdlt.
Avatar du membre
Mattsly
Membre fidèle
Membre fidèle
Messages : 239
Inscrit le : 31 mars 2014
Version d'Excel : 2010 FR

Message par Mattsly » 15 mai 2014, 09:29

Bonjour h2so4,

Pour la feuille récapitulatif tout fonctionne bien par contre pour la feuille Audit, quand je trie toutes les donnés, les données placés avant la ligne que j'ai créé, les données sont mis n'importe comment. (Voir fichier, mdr : formationsD4)

http://cjoint.com/?0EpjCVuRRBU

Cdlt.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'438
Appréciations reçues : 280
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 15 mai 2014, 12:56

Bonjour,

c'est possible mais ce n'est pas avec le fichier que tu as joint que je vais pouvoir t'aider. (la feuillle à trier manque !)

tu devrais pouvoir te débrouiller tout seul

With Worksheets("Audit") ' la feuille à trier
dl = .Cells(Rows.Count, 1).End(xlUp).Row ' la dernière ligne utile sur la feuille à trier sur base la colonne A(=1)
.Range("A6:BH" & dl).Sort key1:=.Range("A6"), order1:=xlAscending, key2:=.Range("B6"), order2:=xlAscending, Header:=xlNo
'range("A6:BH" & dl) plage à trier
' key1=range("A6") premier critère de tri est en colonne A
' key2=range("B6") deuxième critère de tri est en colonne B
End With
Avatar du membre
Mattsly
Membre fidèle
Membre fidèle
Messages : 239
Inscrit le : 31 mars 2014
Version d'Excel : 2010 FR

Message par Mattsly » 15 mai 2014, 13:07

Re,

Oui c'est ce que j'ai écris comme code, et normalement si dans le fichier il y a la feuille concernée.

Cdlt.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message