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.

 

[wDog66]

- Un fichier pour les images.

Ca, c'est une belle erreur 😱 mais vous faites comme vous voulez

J'ai ajouté le code pour le bouton Sélectionner une image et un code pour le bouton Supprimer une image. J'ai besoin d'un code pour installer l'image de chaque employé, car lorsque je passe d'un employé à un autre dans ListBox l'image de l'employé n'est pas enregistrée.

Pour moi, c'est normal, vous n'avez indiqué que 19 colonnes dans la propriété "ColumnCount" de votre Listbox1
Après le reste peut suivre.

Dans Private Sub UserForm_Activate()
Il faut modifier la dernière colonne de la ligne RowSource par

  ' # Modif du 08/10 wDog66
  ListBox1.RowSource = "DATA!A6:T" & TextB_Nb_Enreg + 5

Dans Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Il faut mettre le code

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  With ListBox1
    On Error GoTo fin:
    If .ListIndex > -1 Then
      TextB_Num_Enreg.Value = .List(.ListIndex, 0) 'TextB_Num_Enreg  Numéro
            
      TextBox2.Value = .List(.ListIndex, 1)      'Nom et prénom
      TextB_Naiss.Value = CDate(.List(.ListIndex, 2)) 'Date de Naissance
      TextB_Age_A.Value = .List(.ListIndex, 3)   'TextB_Age_Années
      TextB_Age_M.Value = .List(.ListIndex, 4)   'TextB_Age_Mois
      TextB_Age_J.Value = .List(.ListIndex, 5)   'TextB_Age_Jours
      TextBox5.Value = .List(.ListIndex, 6)      'Lieu de naissance
      TextBox6.Value = .List(.ListIndex, 9)      'Nombre d'enfants
      TextBox7.Value = .List(.ListIndex, 10)     'Adresse            '
      TextBox8.Value = .List(.ListIndex, 12)     'Lieu de Travail
      TextB_Fonction.Value = .List(.ListIndex, 13) 'Fonction
      TextB_Installation.Value = CDate(.List(.ListIndex, 14)) 'Date d'installation
      TextB_Anc_Inst.Value = .List(.ListIndex, 15) 'installation Ancienneté_Années
      TextBox22.Value = .List(.ListIndex, 16)    'installation Ancienneté_Mois
      TextBox23.Value = .List(.ListIndex, 17)    'installation Ancienneté_Jours
      TextBox13.Value = .List(.ListIndex, 18)    'Observation
      ' Chemin de l'image
      FPATH = .List(.ListIndex, 19)
      If FPATH <> "" Then
        Image1.Picture = LoadPicture(FPATH)
        Image1.PictureSizeMode = 3                 ' Zoom = conserve proportions
      End If
      ComboBox4.Value = .List(.ListIndex, 7)     'Sexe
      ComboBox1.Value = .List(.ListIndex, 8)     'Situation Familiale
      ComboBox2.Value = .List(.ListIndex, 11)    'Certificat Obtenu
      On Error GoTo 0
    End If
  End With
End Sub

Dans Private Sub SAUVEGARDE_Click()
Il faut ajouter la ligne

.Cells(x, 20).Value = FPATH         ' Chemin et nom de la photo

A+

 

[belhoucine dine]

Bonsoir wDog66
Je vous enverrai le fichier Excel qui contient tous les codes dont j'ai parlé.
Vous pouvez le vérifier pour pouvoir m'aider.

 

[belhoucine dine]

Bonsoir wDog66​

J'ai corrigé toutes les informations que vous avez demandées, mais le problème persiste.

 

[wDog66]

Bonsoir wDog66​

J'ai corrigé toutes les informations que vous avez demandées, mais le problème persiste.

Re,
Quel problème persiste exactement ?
Décrivez nous les étapes que vous faites afin de reproduire (si possible) le même souci
A+