marjorykwet
Messages postés5Date d'inscriptionmardi 28 octobre 2008StatutMembreDernière intervention17 novembre 2008
-
17 nov. 2008 à 10:51
marjorykwet
Messages postés5Date d'inscriptionmardi 28 octobre 2008StatutMembreDernière intervention17 novembre 2008
-
17 nov. 2008 à 14:37
Bonjour,
je programme un fichier excel, dans une variable je met le numero de la ligne puis dans une formule j'utilise cette variable pour faire une différence entre deux cellules...
lig est le numero de la ligne en question.
voici le code : Cells(lig, 14) = Cells(lig, 8) - Cells(lig, 7)
la formule ne fonctionne pas... des idées ?
merci d'avance, c'est assez urgent, c'est pour le boulot...
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 17 nov. 2008 à 11:08
Salut,
<li>"la formule ne fonctionne pas" As tu une erreur ou bien est ce que rien ne se passe?</li><li>"merci d'avance, c'est assez urgent, c'est pour le boulot..." Tu nous enverras ta paye si on trouve???...
</li>Essaies peu être en évitant de passer par la propriété par défaut de l'objet Cells
marjorykwet
Messages postés5Date d'inscriptionmardi 28 octobre 2008StatutMembreDernière intervention17 novembre 2008 17 nov. 2008 à 13:06
Bonjour,
"Quel est le format de tes cellules???"
Les valeurs présentes dans mes cellules sont des dates.
"As tu une erreur ou bien est ce que rien ne se passe?"
La formule ne fonctionne pas, il survient une erreur d'execution 13, erreur d'incompatibilité de type.
"Cells(Lig, 14).Value = Cells(Lig, 8).Value - Cells(Lig, 7).Value"
Bonne idée, mais je l'ai déjà tenté et cela ne fonctionne pas non plus.
Pour ce qui est de la paye ca va être chaud, mais si tu veux le programme !!
Merci déjà pour vos réponses...
Vous n’avez pas trouvé la réponse que vous recherchez ?
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 17 nov. 2008 à 14:15
Salut,
essaye DateDiff
Exemple :
Dim TheDate As Date ' Déclare les variables.
Dim Msg
TheDate = InputBox("Entrez une date")
Msg = "Jours à compter d'aujourd'hui: " & DateDiff("j", Now, TheDate)
MsgBox Msg