XL 2016 PB format dans listbox après recherche intuitive

R

RobyL

XLDnaute Junior

• 8 Septembre 2020

• #31

fanch55 à dit:

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 .

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Septembre 2020

• #32

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

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 8 Septembre 2020

• #33

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.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 8 Septembre 2020

• #34

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 8 Septembre 2020

• #35

ChTi160 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Septembre 2020

• #36

Re
Merci !
jean marie

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 8 Septembre 2020

• #37

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 8 Septembre 2020

• #38

Pouvez-vous mettre en 2ème ligne :

VB:

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

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 8 Septembre 2020

• #39

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 8 Septembre 2020

• #40

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

 

Pièces jointes

• robyl.xlsm

  532.3 KB · Affichages: 3

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 8 Septembre 2020

• #41

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

 

Pièces jointes

• message erreur.png

  894.6 KB · Affichages: 10

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 8 Septembre 2020

• #42

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.

 

Pièces jointes

• robyl (2).xlsm

  762.7 KB · Affichages: 7

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Septembre 2020

• #43

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

 

Dernière édition: 8 Septembre 2020

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 8 Septembre 2020

• #44

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Septembre 2020

• #45

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

 

Vote positif 0 Vote négatif