Microsoft 365 Incompatibilité de type (Erreur 13)

gothc

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 ;)
Si cela fonctionnait en décembre, je suppose que le fichier n'est plus le même, non ?
 

Staple1600

XLDnaute Barbatruc
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.
 

Discussions similaires

  • Question
Microsoft 365 ListBox TextBox
Réponses
2
Affichages
108

Statistiques des forums

Discussions
287 410
Messages
1 883 423
Membres
162 895
dernier inscrit
Denis50
Haut Bas