1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Formule Excel sous VBA [Résolu]

Signaler
Messages postés
5
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
17 novembre 2008
 -
Messages postés
5
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
17 novembre 2008
 -
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...

5 réponses

Réponse 1 / 5
Messages postés
5
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
17 novembre 2008
Ok merci à tous, j'ai trouvé la réponse,

il faut mettre les valeurs des cellules dans des variables.
Réponse 2 / 5
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
 1
Bonjour,

Quel est le format de tes cellules???

Merci

S.L.B.
Réponse 3 / 5
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 56
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

Cells(Lig, 14).Value = Cells(Lig, 8).Value - Cells(Lig, 7).Value

@+: Ju£i€n
Pensez: Réponse acceptée
Réponse 4 / 5
Messages postés
5
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
17 novembre 2008
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...
Réponse 5 / 5
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
 1
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

Extrait du msdn

Bon courage
Répondre Posez votre question