Erreur d'éxécution '13' : Incompatibilité de type

Bonjour à tous les amis,

J'ai mis en place un boutton dans ma macro pour convertir une colonne de nombres type 20160101 en 01/01/2016 .

(la conversion s'éxécute très bien et cela répond à mes attentes, merci à gmb pour son aide).

Lors de l'éxécution de la macro, la conversion s'effectue proprement mais à la fin, affiche " Erreur d'éxécution '13' : Incompatibilité de type". Je souhaiterai corriger cette erreur (après plusieurs essais de solutions sur le net, je n'ai surement pas trouvé la bonne.).

Voici mon code :

Private Sub ConvertirBQ_Click()

For Each c In Range("BQ2:BQ" & Range("BQ" & Rows.Count).End(xlUp).Row)

If Not IsDate(c.Value) Then

c.Value = DateSerial(Left(c, 4), Month(Mid(c, 5, 2)), Right(c, 2))

End If

Next c

End Sub

Par avance, merci de vos réponses et de votre aide,

Cordialement,

Clarks.

Bonjour

Pas d'erreur mais pas conforme

Je ne vois pas l'utilité de Month, surtout qu'il lui faut une date

c.Value = DateSerial(Left(c, 4), Month(Mid(c, 5, 2)), Right(c, 2))

A tester sans

Private Sub ConvertirBQ_Click()
  For Each c In Range("BQ2:BQ" & Range("BQ" & Rows.Count).End(xlUp).Row)
    If Not IsDate(c.Value) Then
      c.Value = DateSerial(Left(c, 4), Mid(c, 5, 2), Right(c, 2))
    End If
  Next c
End Sub

Bonjour Banzai64 et merci d'avoir regardé mon problème.

En effet, ton code fonctionne aussi et me parrait "plus conforme". Je garde.

Cependant, il m'affiche bien le bon rendu mais m'affiche toujours " Erreur d'éxécution '13' : Incompatibilité de type ".

Une autre solution ? Je cherche aussi ...

Dans l'attente de vos réponses les "pros du tableurs" .

Merci, bien cordialement.

Clarks

Bonjour

Ton fichier en cause serait souhaitable

Bonjour à tous.

Désolé, je ne pouvais pas envoyer mon fichier, car il contient des données personnelles.

Cependant, je viens de trouver le problème.

Ton code fonctionnait parfaitement, le seul soucis étais qu'à la 23 000 eme ligne, il y avait une cellule vide dans ma colonne . La macro ne savait donc pas quoi faire et bloquait à cette colonne ... Voila, pour moi c'est résolu. En esperant que cela puisse aider une ou plusieurs autres personnes.

Merci à tous,

Cordialement.

Clarks