Erreur 13 VBA/UserForm

Fermé

Arpam Messages postés 3 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 10 février 2017 - 10 févr. 2017 à 13:37
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 - 10 févr. 2017 à 16:51

Bonjour,

j'aii récemment intégrer une entreprise avec pour but de créer une base de donnée sur Excel.
N’y connaissant rien en langage VBA, je requière vos connaissances afin de faire les choses au mieux.
L’idée derrière cette base de donnée est de rechercher des occurrences (avec les portes logiques « ET », « OU » et « SAUF ») et d’en afficher les lignes.
Je vous joins un petit fichier Excel.

Malheureusement, j'ai un message 'erreur 13 : incompatibilité de type' j'ai regarder plusieurs fois mon code mais je ne trouve aucun problème ( je ne suis pas très bon).

Si l'un de vous aurais les connaissance ainsi que la gentillesse de jeter un coup d'oeil sur ma macro, je l'en remercierai.

Bien à vous.

Louis

http://www.cjoint.com/c/GBjnYmJ1Xbj
PS : La colonne réponse est vide c'est normale mais normallement il y a du texte.

A voir également:

Erreur 13 VBA/UserForm
Erreur 0x80070643 - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Erreur 1004 vba ✓ - Forum Excel
Vba erreur automation référence future non valide ✓ - Forum Word
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
10 févr. 2017 à 15:17

Bonjour,

N’y connaissant rien en langage VBA
Qui a ecrit ce code ?
Que cherchez vous: n'importe quoi-n'importe ou, ou quelque chose d'un peu plus structuré

Arpam Messages postés 3 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 10 février 2017
10 févr. 2017 à 15:36

L'UserForm me permet d'afficher une boite de dialogue afin de trouver ces mot-clés dans la feuille et une fois qu'il les a trouvé je veux qu'il affiche les lignes la ou les occurences ont été trouvé.
Le code macro est certe long mais il comprend des portes logiques "ET", "OU" et "SAUF".

Lorsque je clic sur le débogage il m'affiche la ligne:

Me.ListBox1.List = Application.Transpose(TL) ' alimente la Listbox1 avec le tableau TL transposé

Je n'ai pas réussi à trouvé ce qu'il ne va pas dans mon code.

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704 > Arpam Messages postés 3 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 10 février 2017
Modifié par f894009 le 10/02/2017 à 16:12

Re,

Ce sont vos tableaux TL et TS qui sont en cause, il faut inverser colonnes et lignes.
Pour palier a cela, j'ai ajoute du code pour retablir le bon ordre. il faudrait voir a la construction de ces tableaux, petit bemol: le redim ne peut se faire que sur le deuxieme index. A vous de voir car un peu alambique le code

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

A+

Arpam Messages postés 3 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 10 février 2017 > f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024
Modifié par Arpam le 10/02/2017 à 16:34

Merci pour ta réponse, on avance un peu, je pense qu'en faite travailler dans une boite de dialogue n'est pas pratique car elle ne permet pas de voire entierement la colonne "Question".

L'inversion de colonne et de ligne est-il obligatoire car je prefere éviter rajouter du code inutillement, d'autant plus que je souhaite garder la présentation des lignes entre ma feuille excel et la réponse affichée dans ma boite de dialogue

Re,
L'inversion de colonne et de ligne est-il obligatoire
Oui, puisque pas marche
Alors, si vous avez regarde le fichier joint, y a mal donne car y pas les modif, apparemment erreur de ma part sur sauvegarde
Colonne question: ben oui, afficher un livre c'est pas simple

Faites un affichage dans une feuille

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters