XL 2021 Vêtement au lavage

[Dydou76]

Bonjour à tous(e)

J'aurai besoin de créer un petit programme en VBA pour la gestion des vêtements de travaille qui partent aux lavages chaque semaine.

il me faudrait le nom de la personne, la référence, le type et la taille du vêtement concernés avec évidement une date de départ et une de retour
Le souci, c'est que l'inspiration ne me viens pas et je ne sais pas par où commencer.

Si une personne parmi vous avait un fichier ou aurai une idée, je suis preneur.

Passez une bonne journée et merci d'avance

 

[sousou]

Tu utilise le fichier que je t'ai envoyé?

 

[Dydou76]

Oui ces ce qui metonn

Tu utilise le fichier que je t'ai envoyé?

Oui c’a m'étonne que ça ne marche pas

 

[sousou]

C'est ici que ca ce passe!
je teste les erreurs
Si erreur 53, il ne trouve pas le fichier il colorie en jaune et affiche dans la statutbar 'fichier introuvable'
si pas d'erreur, il charge l'image et reinitialise les détections d'erreurs



Private Sub L1_Change()
Sheets("bd").Activate
If Me.Controls(liste).ListIndex = -1 Then Exit Sub
Me.Controls(Nom) = Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 1)
Me.Controls(Prénom) = Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 2)
Me.Controls(ref) = Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 3)
Me.Controls(modele) = Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 4)
Me.Controls(datedeb) = Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 5)
Me.Controls(datefin) = Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 6)
On Error Resume Next

Me.IM.Picture = LoadPicture(ThisWorkbook.Path & "\" & Sheets("BD").ListObjects("contacts").DataBodyRange.Cells(Me.Controls(liste).ListIndex + 1, 7))
If Err.Number = 53 Then
Application.StatusBar = " Fichier image introuvable!"
Me.IM.Picture = LoadPicture()
Me.IM.BackColor = RGB(255, 255, 0)
Me.Repaint
End If
On Error GoTo 0
Me.Controls(Nom) = Me.Controls(liste)

End Sub

 

[sousou]

Vérifie que le nom des images est bien calculé dans la colonne g de la bd

 

[Dydou76]

Vérifie que le nom des images est bien calculé dans la colonne g de la bd

quand j'ajoute un nouveau nom, il y a bien le nom que je met dans type et/ou référence "Veste" (le nom de l'image"), ça l’écrit bien dans la colonne G mais pas dans l'Userforme "IM"

 

[sousou]

Re
mets en commentaire dans le code
'On Error Resume Next
'On Error GoTo 0
Et regarde quel messga d'erreur tu as
et renvoi ton fichier

 

[Dydou76]

Re
mets en commentaire dans le code
'On Error Resume Next
'On Error GoTo 0
Et regarde quel messga d'erreur tu as
et renvoi ton fichier

Message erreur " Erreur d'éxécution 438: Propriété ou méthode non gérée par cet objet

 

[sousou]

Étrange, çà fonctionne chez moi
C'est bien à la ligne loadpicture que tu as l'erreur?
regarde le userform, supprime l'image control(im) et reinstale un objet image que tu nommes IM
en gros vérifie qu'il comprend bien IM

Pour cela positionne toi dans le code,
tape: Me. et regarde si il trouve bien IM il doit te le proposer

 

[Dydou76]

Étrange, çà fonctionne chez moi
C'est bien à la ligne loadpicture que tu as l'erreur?
regarde le userform, supprime l'image control(im) et reinstale un objet image que tu nommes IM
en gros vérifie qu'il comprend bien IM

Pour cela positionne toi dans le code,
tape: Me. et regarde si il trouve bien IM il doit te le proposer

Effectivement il trouve bien IM quand je tape ME. mais quand je clic sur exécuter (dans visual basic) j'ai le message d'erreur

 

[sousou]

Tu démarres bien avec bouton saisie ou avec la mcro deb()? qui initialise des variables
Je sèche......

 

[Dydou76]

Tu démarres bien avec bouton saisie ou avec la mcro deb()? qui initialise des variables
Je sèche......

oui j'utilise le même bouton depuis le début. Mais c'est normal que le nom de l'image soit repris sur les deux colonne C et D ? Ou peut être que c'est le fait que je soit sur un PC professionnel une histoire de droit et ça bloque le chargement des images ? j'en doute mais....

 

[Dydou76]

oui j'utilise le même bouton depuis le début. Mais c'est normal que le nom de l'image soit repris sur les deux colonne C et D ? Ou peut être que c'est le fait que je soit sur un PC professionnel une histoire de droit et ça bloque le chargement des images ? j'en doute mais....

C'est bon, ça fonctionne. J'ai re-téléchargé ta version et mis directement les images dans le répertoire "téléchargement de mon PC" et ça fonctionne... Le problème est peut être d'avoir déplacé le prog et les photos

 

[Dydou76]

C'est bon, ça fonctionne. J'ai re-téléchargé ta version et mis directement les images dans le répertoire "téléchargement de mon PC" et ça fonctionne... Le problème est peut être d'avoir déplacé le prog et les photos

Après plusieurs test, si je déplace le programme, ça ne fonctionne plus j'ai regardé mais je ne sais pas pourquoi

 

[sousou]

problème de chemin d'accès
verifie ce que renvoi thisworkbook.path, c'est lui qui donne le chmein ou trouver les fichiers

 

[Dydou76]

problème de chemin d'accès
verifie ce que renvoi thisworkbook.path, c'est lui qui donne le chmein ou trouver les fichiers

ca renvois a l'endroit du programme ? il me semble ? LoadPicture(ThisWorkbook.Path & "\" & Sheets("BD")