Résolu Code VBA pour enregistrement automatique dans un UserForm

CaptainMerlux

XLDnaute Nouveau
Bonjour,

Toujours des galères dans mon unique projet contenant de nombreux formulaires et de nombreuses feuilles.

Cette fois-ci je sèche encore sur un problème qui n'en ai surement pas un mais qui me bloque et dont je ne trouve pas de réponse concrète sur le forum.

J'ai réutilisé un code VBA dont je me sers sur ce même fichier mais avec d'autres userform et d'autres feuilles, seul problème ... il ne fonctionne pas sur mon nouveau formulaire et le code suivant s'affiche : Erreur d’exécution '-2147352571 (80020005) Impossible de définir la propriété Value. Le type ne correspond pas.

Voici mon code :
'************************************************************
'Commande pour saisie automatique des bâtiments suivant n° de semaine
'************************************************************
Private Sub CbNSem_AfterUpdate()

If Me.CbNSem.Value = "" Then
Me.CbV1.Value = ""
Me.CbN11.Value = ""
Me.CbN12.Value = ""
Me.CbN13.Value = ""
Me.CbN14.Value = ""
Me.CbN15.Value = ""
Me.CBV2.Value = ""
Me.CbN21.Value = ""
Me.CbN22.Value = ""
Me.CbN23.Value = ""
Me.CbN24.Value = ""
Me.CbN25.Value = ""

Else

Sheets("Audit Bâtiment").Select

Me.CbV1.Value = Application.Index(Range("D:D"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN11.Value = Application.Index(Range("E:E"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN12.Value = Application.Index(Range("F:F"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN13.Value = Application.Index(Range("G:G"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN14.Value = Application.Index(Range("H:H"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN15.Value = Application.Index(Range("I:I"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CBV2.Value = Application.Index(Range("J:J"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN21.Value = Application.Index(Range("K:K"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN22.Value = Application.Index(Range("L:L"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN23.Value = Application.Index(Range("M:M"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN24.Value = Application.Index(Range("N:N"), Application.Match(CbNSem, Range("C:C"), 0))
Me.CbN25.Value = Application.Index(Range("O:O"), Application.Match(CbNSem, Range("C:C"), 0))

End If
End Sub

Lorsque je clique sur débogage, la ligne ici grisée et en grand s'affiche mais je ne vois pas quel est le problème car cela fonctionne ailleurs ...

Help Me.
 

Fichiers joints

CaptainMerlux

XLDnaute Nouveau
Désolé pour le smiley, il s'est affiché automatique. J'ai bien ("D : D") dans mon code
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas