XL 2016 PB format dans listbox après recherche intuitive

[RobyL]

bonjour à tous,
lorsque que je demare mon userform tous est bon dans ma listbox (les format date ou format heure son bien définit) mais lorsque je fait une recherche avec ma textbox tous les format partent... avez vous une solution ?

il est aussi impossible d'afficher jusqu'a la colonne X de l'onglet "Données" dans cette listbox ... je ne sait pas pourquoi.

il faud cliquer sur l'onglet "choix" puis sur le bonton bleu "saisie modif taches" pour ouvrir le userform.
le userform s'appel "rechintuit2"

 

[RobyL]

Bonsoir,

Version corrigée avec le numéro d'enregistrement affiché .

Nouveau Module HookMouseLbx, l'ancien me faisait planter Excel .
Le nouveau fonctionne à peu près, mais si vous devez intervenir dans le code, je vous conseille de le neutraliser ( commenter tout le haut du module RechIntuit2, le bloc est indiqué ) .

La feuille Format est importante, elle a été recodée avec un bouton de ré-initialisation qui vous permet de la rebâtir ( il y a peut-être un nom d'entête différent entre votre référent et le classeur que j'ai )

Si vous avez encore une erreur 13, activez le débogage et faites du pas à pas jusqu'à la ligne posant problème .

toujour erreur 13... il reste bloquer dans la boucle :

Sub Charge_Listbox1()
Dim I As Integer, J As Integer
Dim Row As Range

For R = 1 To [Tableau1].Rows.Count
Set Row = [Tableau1].Rows(R)
If Not Row.Hidden Then
I = I + 1
ReDim Preserve TblBD(1 To Ncols, 1 To I)
For J = 1 To Ncols - 1
'Nota: le format Vba ne reconnait pas le format [hh] ==> :12, on passe par excel
If InStr([Tableau1].Columns(J).NumberFormat, "[h") Then
TblBD(J, I) = Application.WorksheetFunction.Text(Row.Cells(J), [Tableau1].Columns(J).NumberFormat)
Else
TblBD(J, I) = Format(Row.Cells(J), [Tableau1].Columns(J).NumberFormat)
End If
If J = 1 Then
Set Comment = Row.Cells(J).Comment
'S'il y a un commentaire c'est suite à une mise à jour
If Not Comment Is Nothing Then K = I
End If
Next
TblBD(Ncols, I) = R
End If
Next .................il ne vas pas plus loin

 

[ChTi160]

Bonjour Robyl
Bonjour le fil ,le Forum
Ne peux tu mettre ton fichier sans données confidentielles , car pas évident de reproduire l'erreur?
tu as bien dans ton fichier [Tableau1] dont la forme correspond à celle du fichier de fanch55 (Colonnes etc)
Bonne journée
jean marie

 

[RobyL]

re salut..
Sub afficheIntuit2()
->->-> RechIntuit2.Show .............. il bloque ici en mode débeugage
End Sub

en mode pas a pas il reste dans la boucle comme je l'ai marquer dans le message précédant.

 

[fanch55]

salut
En mode pas a pas, l'erreur 13 survient sur quelle ligne ?

 

[fanch55]

fanch55 , n'as tu pas oublié la demande de Robyl d'afficher le Numéro de Ligne Cible dans TextBox "Enreg" ?

Salut @ChTi160 ,
Exact, du nettoyage de code trop rapide ...
Je vais poster la version avec cet affichage .

 

[ChTi160]

Re
Merci !
jean marie

 

[RobyL]

franch55, en mode pas à pas :

Private Sub UserForm_Initialize()
Sheets("Données").Activate
Ncols = [Tableau1].Columns.Count + 1 ' ->->->->-> erreur 9 l'indice n'appartien pas à la selection

 

[fanch55]

Pouvez-vous mettre en 2ème ligne :

Msgbox "Données a " & [Tableau1].columns.count & " colonnes"

 

[RobyL]

cela ma afficher "données à 24 colonnes"
erreur d'execution 13

 

[fanch55]

Version avec affichage Ligne et gestionnaire succinct d'erreurs.
Pouvez-vous me transmettre la capture du msgbox d'erreur ?

 

[RobyL]

voilà le message erreur avec le dernier fichier à jour.

 

[RobyL]

je pense que le pb vient du nombre de ligne à traiter peut être.
j'ai repris votre fichier et j'ai juste incrémenté le tableau de 1630 lignes (c'est se que j'ai sur mon fichier principale)
et du coup ça ne fonctionne plus.

 

[ChTi160]

Bonjour
moi j'ai une erreur d'automation(440)????
juste pour faire avancer le Chimilimblic
Je pense que la récupération de chaque format de cellule c'est un peu lourd !
jean marie

 

[fanch55]

Ce n'est pas la récupération, c'est l'application du format qui est lourd .

 

[ChTi160]

Re
Ok !
Pas d'autre Moyen de formater ?
jean marie