Microsoft 365 Incompatibilité de type (Erreur 13)

[gothc]

Private Sub ComboBox1_Change()
Dim x&
[COLOR=rgb(247, 218, 100)]x = Application.Match(CLng(ComboBox1.Value), Feuil1.Range("G:G"), 0)[/COLOR]
[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 t, f As Worksheet: Set f = Feuil1
f.Cells(2, "G").Resize(f.Cells(Rows.Count, 1).End(3).Row).Name = "base"
t = [Base].Value
Me.ComboBox1.List = t
End Sub

Bonjour le forum j'ai une erreur parfois avec cette Macro j'utilise une liste déroulante parfois elle fonctionne parfois en fin liste elle bug avec une erreur 13 voir ligne jaune du code Merci de votre aide je travaille avec la version 365 bon dimanche

 

[Staple1600]

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 ?

 

[gothc]

Oui plus facile avec le fichier Merci

 

[gothc]

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

 

[Staple1600]

Re

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

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.

 

[gothc]

Merci Beaucoup je fais le test sur mon fichier

 

[gothc]

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

Incompatibilité de type (Erreur 13)​

 

[Staple1600]

Re

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

 

[gothc]

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