Microsoft 365 Incompatibilité de type (Erreur 13)

gothc · 24 Janvier 2021

VB:

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 · 24 Janvier 2021

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 · 24 Janvier 2021

Oui plus facile avec le fichier Merci

gothc · 24 Janvier 2021

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

Staple1600 · 24 Janvier 2021

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.

gothc · 24 Janvier 2021

Merci Beaucoup je fais le test sur mon fichier

gothc · 24 Janvier 2021

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

Incompatibilité de type (Erreur 13)

Staple1600 · 24 Janvier 2021

Re

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

gothc · 24 Janvier 2021

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

Microsoft 365 Incompatibilité de type (Erreur 13)

gothc

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

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

gothc

XLDnaute Occasionnel

Pièces jointes

gothc

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

gothc

XLDnaute Occasionnel

Incompatibilité de type (Erreur 13)

Pièces jointes

Staple1600

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Discussions similaires

Microsoft 365 Incompatibilité de type (Erreur 13)

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Incompatibilité de type (Erreur 13)​

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Incompatibilité de type (Erreur 13)