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+

 

[belhoucine dine]

Bonsoir wDog66​

L'image suivante montre le type d'erreur.

Je vous ai envoyé le fichier avec les modifications que vous m'avez demandé de faire.

Merci pour votre aide.

 

[TooFatBoy]

Bonjour,

Si ta capture d'écran concerne la macro de #16, alors il est normal que tu rencontres cette erreur puisque tu n'as pas d'étiquette "Fin".

Mais as-tu vraiment besoin de gérer l'éventuelle erreur, ou l'ignorer avec un "Resume Next" suffirait-il ?

 

[wDog66]

Bonjour,

J'aime les gens qui veulent utiliser VBA et ne sont même pas capable de savoir ce qu'est une erreur aussi basique 😱😭

Ce n'est pas comme si nous n'avions pas internet 😒

Google Search

Aller encore un... 🤭😂🤣

 

[Valtrase]

Bonjour à tous,
J'ai eu travaillé sur ce fichier à l'époque.
Maintenant pourquoi je ne l'ai pas fournis, that is the question....

 

[belhoucine dine]

Bonsoir wDog66 et à tous,​

Le problème n'est pas un manque de connaissances sur des choses simples (les erreurs), mais plutôt une passion et une envie d'apprendre.

Quand on méprise quelqu'un qui est prêt à apprendre, le problème devient encore plus grand.

Oui, c'est le même fichier. J'y ai apporté quelques modifications pour l'adapter aux changements de flux de travail. Il sera lié à d'autres fichiers (d'autres feuilles Excel) et est prêt à être fusionné en un seul fichier. Il ne me reste plus qu'à m'inscrire et à ajouter une photo de chaque employé.

Enfin, merci pour votre aide et j'espère avoir clarifié mon problème. Veuillez noter que j'ai 70 ans et que je vous présente mes excuses si je vous ai fait du tort.

 

[cathodique]

Bonsoir wDog66 et à tous,​

Le problème n'est pas un manque de connaissances sur des choses simples (les erreurs), mais plutôt une passion et une envie d'apprendre.

Quand on méprise quelqu'un qui est prêt à apprendre, le problème devient encore plus grand.

Oui, c'est le même fichier. J'y ai apporté quelques modifications pour l'adapter aux changements de flux de travail. Il sera lié à d'autres fichiers (d'autres feuilles Excel) et est prêt à être fusionné en un seul fichier. Il ne me reste plus qu'à m'inscrire et à ajouter une photo de chaque employé.

Enfin, merci pour votre aide et j'espère avoir clarifié mon problème. Veuillez noter que j'ai 70 ans et que je vous présente mes excuses si je vous ai fait du tort.

Bonjour @belhoucine dine , @sylvanu , @TooFatBoy , @wDog66 😉

@belhoucine dine : Pour info, les participants sont bénévoles et parmi eux beaucoup ont la même moyenne d'âge que ton âge.
Ce qui est clair et limpide pour toi ne l'est pas forcément pour celui qui essaie de t'aider.
Tu fournis un fichier mais tu dis qu'il sera lié à d'autres fichiers et il y a aussi une histoire de photo.
Perso, je considère que tu ne partages pas tout pour qu'on puisse te fournir des codes qui tiennent la route.
(même le chemin du dossier photo).
Pourquoi utilises-tu Private Sub ListBox1_DblClick au lieu de Private Sub ListBox1_Click(), qui à mon sens est plus adaptée.
Pourquoi l'âge en année, mois et jour. idem pour l'ancienneté. tu ne penses pas que ce sont des détails inutiles?
Ce qui t'aurait permis de réduire le nombre de colonnes et par la même occasion éviter la fusion des cellules de titres pour le transformer en tableau structuré qui rend bien des services (par exemple ne plus avoir à trouver la dernière ligne non vide).

Tu es sur un forum d'entraide et de partage. Si certains participants acceptent d'aider pour un projet dans sa globalité, d'autres considèrent que c'est un coup de pouce pour avancer. Un effort est demandé à l'initiateur de la discussion.

Pour XLD, est le forum où tu rencontreras des gens très modestes par rapport à d'autres forum plein de "grosse tête".
Si des fois, il y a des malentendus. Ils sont rares et finissent toujours dans l'entente, la cordialité et la bonne humeur.

Bon week-end.

 

[Valtrase]

Bonjour à tous,

J'y ai apporté quelques modifications pour l'adapter aux changements de flux de travail. Il sera lié à d'autres fichiers (d'autres feuilles Excel) et est prêt à être fusionné en un seul fichier.

La question est : Si l'on vous propose un fichier qui soit opérationnel, saurez-vous l'adapter pour y inclure vos autres feuilles et codes sans tout casser ?
Si vous voulez notre aide. Comme dis plus haut, nous devrions connaître le projet dans son ensemble. Cela éviterait sûrement de faire et refaire de l'encodage pour rien.