Microsoft 365 Incompatibilité de type (Erreur 13)

  • Initiateur de la discussion Initiateur de la discussion gothc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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 ?
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
665
Réponses
2
Affichages
511
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
9
Affichages
580
Retour