Quelqu'un qui puisse m'aider en vba

Quelqu'un qui puisse m'aider en vba Erreur 1004 vba » Forum - VB / VBA Inputbox vba » Conseils pratiques - Visual Basic Vba find » Conseils pratiques - Visual Basic Vba date du jour » Forum - Bureautique Vba supprimer ligne (Résolu) » Forum - VB / VBA

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

Forum

Quelqu'un qui puisse m'aider en vba Erreur 1004 vba » Forum - VB / VBA Inputbox vba » Conseils pratiques - Visual Basic Vba find » Conseils pratiques - Visual Basic Vba date du jour » Forum - Bureautique Vba supprimer ligne (Résolu) » Forum - VB / VBA

Web: www.shapebootstrap.net

7 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Sans voir le code.... comment espères tu que nous puissions te répondre ???

Reply

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

Reply
réponses:

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

Reply
réponses:
  • jordane45

    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.

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

Reply
réponses:
  • yg_be

    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?

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed