Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

pako · 25 Juillet 2011

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 :

Code:

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é :

Code:

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 :

Code:

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

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

vitsa · 31 Juillet 2012

Re : Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

Bonjour le forum, j'ai également ce problème. Il semblerait que cela concerne que deux cases dans ma feuille.
Je m'explique, j'ai réalisé une macro pour remplir un tableau de nombres (des entiers). J'utilise ensuite ce tableau de nombres pour en remplir un autre (en faisant des sommes et en les répartissant différemment) Au moment de remplir le deuxieme (grâce à une boucle for), la macro plante toujours au même endroit (meme cellule) uniquement lorsqu'il y a zéro dans cette cellule. la macro refuse alors de remplir avec cette valeur l'autre tableau...
Le type ne doit pas être le même partout du coup, mais comment faire pour l'uniformiser ?

Merci,
en espérant avoir été clair dans ma description,
Cordialement,
Vitsa

Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

pako

XLDnaute Nouveau

vitsa

XLDnaute Nouveau

Discussions similaires

Erreur d'execution 13 : INCOMPATIBILITE DE TYPE

pako

XLDnaute Nouveau

vitsa

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency