XL 2016 [( RESOLU ] erreur d'execution 13

[louatt]

Bonsoir à tous,
j'ai récupéré le code d'un classeur qui fonctionne trés bien; le but et d'incrémenter des numéros au format 000 / 2018
et au changement d'année le compteur reviens à zéro.

Je n'arrive pas à l'utiliser dans un autre classeur au lancement de l'userform j'ai une erreur
" erreur d'éxecution 13 incompatibilité de type"

Quelqu'un pourrais m'aider à trouver cette erreur?

Par avance merci.

Cordialement.

 

[Roland_M]

Bonsoir,

RE-EDIT:


NumVGP="N° du PV"

vAnConf ne peut être numérique c'est de l'aphanum !

il y a erreur dans le contenu de NumVGP !

dans mon test NumVGP est = "° du"

c'est normal n'ayant pas de données tu tombes sur le titre !
ensuite tu n'es pas dans la bonne colonne ! les dates c'est colonne B

tu dois mettre un test pour sortir si pas de données !?

ensuite revoir ta déclaration vAnConf As Integer
ça devrait être as date

 

[Roland_M]

re

revoir mon message j'ai réédité !

 

[louatt]

Bonsoir Roland_M,

merci pour tes indications, effectivement c'est un extrait de mon projet que j'ai joint, en colonne A N° du PV je cherche à incrémenter automatiquement un numéro unique avec l'année de la rédaction. En colonne B ce sera la date de rédaction du PV.

Merci le fait d'avoir mis vAnConf As Date , je n'ai plus l'erreur d'éxécution 13.
J'ai mis un numéro en colonne A le 089 / 2018 et dans l'userform je devrais avoir l'affichage 090 / 2018.

Mais en fait j'ai l'affichage 001 / 2018.

Comment remédier à ça ?

Merci d'avance.

Cordialement.

 

[louatt]

Bonsoir à tous,

sur un forum concurent on m'a donné ce code, qui résoud mon problème.
Encore merci à Roland_M de m'avoir aider et m'indiquer pourquoi l'erreur d'execution 13 .

Cordialement.

Private Sub UserForm_Initialize()
    Dim NumVGP, vAnConf As Integer, Inc As Integer
    With Sheets("BD_VGP").Range("A" & Rows.Count).End(xlUp)
        NumVGP = Split(.Value & "/", "/")
    End With
    If Val(NumVGP(1)) = Year(Date) Then Inc = Val(NumVGP(0)) + 1 Else Inc = 1
    vAnConf = Year(Date)
    Me.Label_N_VGP = Format(Inc, "000") & " / " & vAnConf
End Sub