Microsoft 365 Incompatibilité de type (Erreur 13)

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #2

Bonjour le fil, gothc

=>gothc
Sans voir le contenu de la colonne G, difficile de faire des tests.

EDITION
Je me disais bien que ce code me rappelait quelque chose

Microsoft 365 - créer un comboBox dans une feuille de mon classeur

Bonjour le forum je cherche à mettre directement une combobox avec un code vba sur ma feuil 1 pour aller chercher des informations dans un tableau en feuil2 je souhaite afficher la ligne sélectionner cellule a:b:c:d sur ma feuil 2 de mon tableau sur ma feuil 1 Merci de votre aide

www.excel-downloads.com

Si cela fonctionnait en décembre, je suppose que le fichier n'est plus le même, non ?

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 24 Janvier 2021

• #3

Oui plus facile avec le fichier Merci

 

Pièces jointes

• outil.xlsm

  139.2 KB · Affichages: 12

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 24 Janvier 2021

• #4

Sur la feuil 2 la liste déroulante elle bug en fin liste

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #5

Re

Avec ces modifications, test OK
(pour le moment) sur ton fichier

VB:

Private Sub ComboBox1_Change()
Dim x&, lObj As ListObject
Set lObj = Feuil1.ListObjects("TB_2")
x = Application.Match(CLng(ComboBox1.Value), lObj.ListColumns(7).DataBodyRange, 0) + 1
[A2] = Feuil1.Cells(x, 2): [B2] = Feuil1.Cells(x, 1)
[E3:G3].Value = Feuil1.Cells(x, 8).Resize(, 3).Value
End Sub

Private Sub Worksheet_Activate()
Dim lObj As ListObject, t, f As Worksheet: Set f = Feuil1
Set lObj = f.ListObjects("TB_2")
t = lObj.ListColumns(7).DataBodyRange.Value
Me.ComboBox1.List = t
End Sub

NB: J'ai "nettoyé" le tableau au préalable.
C'est à dire supprimer toutes les bordures après la ligne 86.
Et j'ai fait une recopie incrémentée en colonne G
(pour être sûr d'avoir des nombres "clean" de 1 à 86)
Je te laisse tester.

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 24 Janvier 2021

• #6

Merci Beaucoup je fais le test sur mon fichier

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 24 Janvier 2021

• #7

j'ai toujours cette erreur Incompatibilité de type erreur 13 à partir de 78
je ne comprends pas pourquoi

Incompatibilité de type (Erreur 13)​

 

Pièces jointes

• Sans titre.jpg

  95.6 KB · Affichages: 25

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #8

Re

Tu as fait le nettoyage comme je l'ai mentionné dans mon message précédent?

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 24 Janvier 2021

• #9

Je viens de le faire maintenant le fichier fonctionne correctement
Merci pour ton aide je n’ai pas trop compris pourquoi mais bon ça Marche
Bon dimanche à toi
je continue à travailler sur mon fichier encore Merci

 

Vote positif 0 Vote négatif