XL 2013 Corriger mes codes

[belhoucine dine]

Bonjour à tous.

Je m'adresse à nouveau à vous tous pour ce travail dans l’Excel 2013, afin que vous puissiez m'aider.

J'ai plusieurs problèmes avec ce programme et je recherche quelqu'un pour m'aider à corriger certaines erreurs :

- 1) Le code du bouton « SAUVEGARDE », qui enregistre les données de chaque employé, y compris leur photo.

- 2) Le code du bouton « Tri » dans la feuille « DATA ».

- 3) Le code du TextBox « TxtSearch » recherche pour modifier les données et autres chose.

Merci d'avance pour votre aide.

 

[sylvanu]

Bonsoir belhoucine dine,
Pour le code du bouton « Tri » dans la feuille « DATA » :

    ' Trier le tableau selon la colonne B
    Plage.Sort Key1:=[B6], Order1:=xlAscending, Header:=xlNo

 

[belhoucine dine]

Bonsoir sylvanu

Un Grand Merci de me répondre

Après avoir appliqué ce code, le résultat était le suivant :

Erreur d’exécution ‘424’ :

Objet requis

Voir l'image

J'attends ta réponse

 

[sylvanu]

Re,
Dans votre macro Plage n'est pas défini.
Vous devez avoir un Set Plage=.... avant le tri pour savoir sur qu'elle plage de cellules le tri doit s' effectuer.

 

[sylvanu]

Re,
Voici le code complet du tri :

Sub Tri()
'tri tout le tablea Sans changer l'ordreude la collonne A
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim Plage As Range
    ' Définir la feuille de travail
    Set ws = ThisWorkbook.Sheets("DATA")
    ' Dernière ligne de la colonne B (pour détecter la fin du tableau)
    LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' Définir la plage à trier (de A6 à W dernière ligne)
    Set Plage = ws.Range("A6:W" & LastRow)
    ' Trier le tableau selon la colonne B
    Plage.Sort Key1:=[B6], Order1:=xlAscending, Header:=xlNo
    ' Message de fin
    MsgBox "Tri terminé avec succès !", vbInformation
End Sub

Question : Dans votre code vous indiquez vouloir faire le tri "Sans changer l'ordre de la colonne A", et vous faire une plage de tri avec ws.Range("A6:W" & LastRow) donc avec la colonne A; Que vouliez vous faire comme tri, avec ou sans la colonne A ?

Avec la colonne A :   
    Set Plage = ws.Range("A6:W" & LastRow)
Sans la colonne A :   
    Set Plage = ws.Range("B6:W" & LastRow)

 

[sylvanu]

Re,
Autre question : A quoi sert le champ "CHERCHER PAR NOM" puisque si double cliquez sur un nom de la liste tous les champs sont remplis ?
Cette fonction ne sert à rien.

 

[belhoucine dine]

Bonsoir sylvanu

Merci beaucoup
C'est exactement ce que je voulais pour le tri.

Le champ "CHERCHER PAR NOM" sert pour Rechercher un employé s'il est inscrit ou pas dans la base de données et effectuer une modification (rechercher un employé et modifier).

Il me reste la question numéro 1 de ma première intervention concernant la sauvegarde des données et la sauvegarde de la photo de chaque employé.

Passe une bonne journée.