Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

[pako]

Bonjour à tous,

Quelqu'un pourrait t-il m'éclairer s'il vous plaît.

J'ai le mois écrit en lettre dans la cellule C1.
J'ai ce code, qui fonctionne très bien :

Sub essai()

With ThisWorkbook.Sheets("Feuil1")
    ladate = CDate("1 " & .Range("C1") & " 2011")
    MsgBox ladate
    End With
    

End Sub

Et je voudrais le généraliser pour l'Année en Cours.
J'ai essayé plusieurs choses mais ça ne fonctionne pas.
Voici le dernier code que j'ai testé :

Sub essai_generalite ()

Annee_courante = Year(Date)

With ThisWorkbook.Sheets("Feuil1")
    ladate1 = CDate("1 " & .Range("C1") & " Annee_courante")
    MsgBox ladate1
    End With

End Sub

Je ne vois pas comment faire.
Pour ce dernier j'ai une erreur d'incompatibilité ici :

ladate1 = CDate("1 " & .Range("C1") & " Annee_courante")

Pourriez vous m'éclairer s'il vous plaît????
Cordialement.

 

[Pierrot93]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Bonjour,

essaye peut être ceci :

ladate = CDate("1 " & .Range("C1") & Year(Date) )

bon après midi
@+

 

[KenDev]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Bonjour Pako,

Peut être avec

ladate1 = CDate("1 " & .Range("C1") & " " & Year(Now))

Non testé. Cordialement

KD

Edit : Oups, bonjour Pierrot

 

[pako]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Merci de vos réponses mais aucunes des deux idées ne fonctionnent.

Cordialement.

 

[KenDev]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Bonjour Pako, Pierrot,
;
Testé cette fois ci, les deux possibilités fonctionnent chez moi. Le problème ne viendrait-il pas de la cellule C1 ?

Cordialement

KD

 

[Pierrot93]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Re, bonjour KD

essaye plutôt avec la fonction "datevalue" :

Dim ladate As Date
ladate = DateValue("1 " & Range("J1") & " " & Year(Date))

ceci fonctionne chez moi, J1 renseigné par juin....

 

[MJ13]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Bonjour à tous

Essaye comme cela:

Sub essai_generalite()
Annee_courante = Year(Date)
With ThisWorkbook.Sheets("Feuil1")
    ladate1 = CDate("01/" & Format(Range("C1"), "MM") & "/" & Annee_courante)
    MsgBox ladate1
End With
End Sub

 

[pako]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Merci Pierrot93.
Effectivement, ça marche pour J1 ou C1.
Merci beaucoup.

J'ai moi même trouvé celui ci :

ladate = CDate("01/" & "" & Range("C1") & "" & "/" & AnnéeEnCours)

MAIS J'AI UN SOUCIS, CA NE FONCTIONNE PAS LORSQUE JE CHERCHE A LE FAIRE SUR UNE PLAGE C & i :

ladate = DateValue("01 " & Range("C" & i) & " " & Year(Date))

Je ne comprends pas pourquoi???????????

Cordialement.

 

[Pierrot93]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Re, bonjour Michel🙂

la variable i bien déclarée et initialisée, la ligne ci-dessous me renvoie le bon résultat...

Dim ladate As Date, i As Byte
i = 3
ladate = DateValue("1 " & Range("J" & i) & " " & Year(Date))

 

[pako]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Merci beaucoup de vos réponses.
Il doit probablement y avoir un problème avec ma variable i car chez moi ça ne fonctionne pas.

Je tente de trouver le soucis sur ma macro.
Et je vous envoie la réponse ou vous recontacte.

Merci beaucoup.
Cordialement0.

 

[Pierrot93]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Re,

regarde ce que vaut i lorsque cela plante.... et si la cellule en question contient bien kle nom d'un mois... sans plus de détails, difficile d'en dire plus

 

[Staple1600]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Bonsoir le fil, bonsoir à tous


EDITION: je viens de penser à ceci qui marche aussi.

Sub a()
Dim Annee_courante%, ladate1 As Date
Annee_courante = Year(Date)
[C1] = 7
MsgBox DateSerial(Annee_courante, [C1].Text, 1)
End Sub

J'arrive un peu tard
Mais ceci aussi semble fonctionner

Sub essai_generalite()
Dim Annee_courante$, ladate1 As Date
Annee_courante = Year(Date)

With ThisWorkbook.Sheets("Feuil1")
.[C1] = 7 'ici pour tester
ladate1 = CDate("1/" & .[C1].Text & "/" & Annee_courante)
End With
MsgBox ladate1
End Sub

 

[Staple1600]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

BonsoiRe

Avec utilisation du i, cela fonctionne aussi

Sub ab()
Dim Annee_courante%, i&
Annee_courante = Year(Date)
i = 12
Range("C" & i) = 7
MsgBox DateSerial(Annee_courante, Range("C" & i).Text, 1)
End Sub

 

[Si...]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Salut

...
Avec utilisation du i, cela fonctionne aussi
...

à condition de tester la cellule qui doit contenir un entier non nul inférieur à 13 !

Dim i as Long, n as Variant
...
n = Cells(i, 1)
If IsNumeric(n) Then
  If n = Int(n) And n > 0 And n < 13 Then MsgBox CDate("1/" & n & "/" & Year(Date))
End If

 

[Staple1600]

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Re, bonsoir Si...


Je dois sans doute rêver trop fort de mon 13ème mois (qui hélas n'est qu'un rêve)

Merci d'avoir ajouter cette sécurité.