Quelqu'un qui puisse m'aider en vba

Fermé
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018 - 12 juil. 2018 à 06:55
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018 - 18 juil. 2018 à 09:16
Bonjour,

Y a t'il quelqu'un qui puisse m'aider , j'ai récupéré un code vba que je dois intégrer dans un autre. Le probleme c'est je débute seulement en vba et je n'ai pas les connaissances suffisantes aujourd'hui.

Merci par avance,

David

6 réponses

jordane45 Messages postés 38427 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 février 2025 4 735
12 juil. 2018 à 08:38
Bonjour,

Sans voir le code.... comment espères tu que nous puissions te répondre ???
0
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018
12 juil. 2018 à 10:23
Bonjour Jordan,

Merci d'avoir répondu, je voulais déjà savoir si quelqu'un pouvait m'aider.

Nouveau sur ce forum, le code est sur un fichier Excel, peut on envoyer le fichier ou dois je faire un copier coller de tout le code ? sur ma réponse.

Merci
0
jordane45 Messages postés 38427 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 février 2025 4 735
12 juil. 2018 à 11:06
Si le code n'est pas trop long, tu peux le copier ici (en utiilisant les Balises de code) (https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code)
Sinon, le déposer sur un site comme cijoint (https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers ) et nous coller le lien vers le fichier.
0
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018
12 juil. 2018 à 11:50
Jordan,

Voici le lien : https://www.cjoint.com/c/HGmjynb8KkG

Je vais tenter d'expliquer ce que souhaite : j'ai joint le code mais pour des raisons de taille, je n'ai pas pu faire l'envoi du répertoire photos d'exemple.

Le but du code c'est de faire une gestion de fiches de fluides ( Eau, Gaz, Electricité ) . il doit permettre de rechercher un N° de compteur, de le modifier et d'ajouter d'éventuels nouveaux compteurs.

Pour cela, j’ai récupéré ce code en VBA concernant une gestion de BDD, celle-ci utilise une recherche intuitive multi colonnes. J’aurai voulu qu’une fois la donnée trouvé, celle-ci s’affiche sur l'userform avec la photo qui est liée, ceux-ci se trouvant dans un répertoire. Le problème c’est qu' en modifiant le userform, j’ai une erreur qui s’affiche au niveau du débogueur. je pense avoir changer le nom d'une variable ou similaire et il a pas aimé.
j'ai un 2 ème code que j'ai récupéré qui lui permet d'aller chercher la photo qui est liée à la fiche compteur dans le répertoire. mais après essai celui ci ne fonctionne pas !.

Je pense que le plus simple c'est d'écrire et d'inserer le code du rajout de la photo dans celui que j'ai envoyé .

Voilà tu sais tout, maintenant,

Si tu peut y faire quelque chose, je t’en remercie par avance ;

David
0
jordane45 Messages postés 38427 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 février 2025 4 735
12 juil. 2018 à 11:59
Tu as en effet une erreur dans le code de ton userform1
Plus précisément ici :
Private Sub ListBox1_Click()
Dim i&
    If ListBox1.ListIndex = -1 Then Exit Sub
    With UserForm2
        .Caption = "Modification d'un Nom": modif = 1: lign = ListBox1.List(ListBox1.ListIndex, 8)
        .CommandButton1.Caption = "Valider les modifications"
        For i = 1 To 8
            .Controls("Textbox" & i) = Feuil2.Cells(lign, i)
        Next i
        .Show
    End With
End Sub


L'erreur se trouve sur la ligne
.Controls("Textbox" & i) = Feuil2.Cells(lign, i)

Et c'est normal.... tu fais une boucle de 1 à 8 .... sauf que... ben il n'existe AUCUNE TextBox8 dans ton Userform2
D'où l'erreur.... il suffit de modifier la boucle jusqu'à 7 ou d'ajouter le textbox manquant... à toi de voir.
0
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018
12 juil. 2018 à 14:45
Merci Jordan, tu me sauves la mise, cela parait évident pourtant sauf que j'ai pas le bon réflexe encore

Pourrais je abuser à ma demande , à savoir la possibilité d'extraire et d'adapter au code corrigé de ce matin, la partie du 2 ème code qui traite l'importation et le rattachement à sa fiche compteur. Celui ci ne fonctionne pas .
Avant que le code initial déconne, j'avais essayé mais en vain ...

Dans un répertoire "Photos" seront stocké toutes les photos.

Le code que je t'envoie ressemble assez à celui que je tu as corrigé à la seule différence que pour la recherche, est utilisé une listbox.

https://www.cjoint.com/c/HGmmxPnbFrG

Je te remercie par avance;

David
0
yg_be Messages postés 23472 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 1 568
15 juil. 2018 à 13:42
bonjour, tout cela est bien mystérieux: pourrais-tu être plus factuel:
- où est la partie du 2 ème code? dans quelle routine?
- "ne fonctionne pas": message d'erreur?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018
17 juil. 2018 à 14:39
Bonjour yg_be,

Merci de s'être intéressé au sujet, je vais tacher de faire simple :

La partie ou le message d'erreur apparaissait est réparée, reste à faire le code pour l'insertion de la photo correspondante à la fiche compteur, dans le userform2 .
J'avais trouvé quelque que chose qui y ressemblait, mais celui ci ne fonctionne pas.

Je te joins le code réparé avec 5 lignes en exemple. A intégrer dedans, le code pour l'insertion des photos. quant aux photos, elles seront stockés dans un répertoire "PHOTOS". Le lien avec la fiche compteur sera le n° du compteur, c'est à dire que le nom de chaque photo sera le n° de compteur de celle ci.

Pour des raisons de stockage, je ne peux faire parvenir des exemples de photos, il suffit d'en prendre 1 ou 2 sur le net pour l'exemple .

Autre chose, sur le code de l'userform2 , le label 7 il est noté " Etat dernier index relevé", pour une raison que j'ignore, sur l'exécution du code, que ce soit en mode "recherche ou ajout de compteur", il m'affiche " Photo de situation", c'est certainement un problème de transfert de variable , je suppose.

Merci.

Lien : https://www.cjoint.com/c/HGrmGYw4nOG
0
yg_be Messages postés 23472 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 1 568
17 juil. 2018 à 19:22
le label7 de l'userform2 affiche ce qui se trouve en G1 de l'onglet Base. c'est le code dans Sub UserForm_Initialize() qui fait cela.
je te recommande de faire d'abord des exercices plus simples en VBA.
0
mamarus1 Messages postés 6 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 18 juillet 2018
18 juil. 2018 à 09:16
Bonjour yg_be,

Effectivement, comme mentionné plus haut, j'ai pas encore le reflexe

je vais maintenant tenter d'intégrer un code pour l'appel des photos.

Merci du dépannage.


David
0