Discussion :

[youpi2010]

bonsoir

S.V.P j'ai une formule sous vba excel

et j'arrive pas à faire la somme a cause des guillemet

Le programme lis la cellule "g11" par exemple et trouve une date comme 15/12/2011 et me donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fincontr = Sheets("Cumul").Range("g" & yy1).Value

fincontr="15/12/2011"

alors j'arrive pas à soustraire le nombre de jours entre la date aujourd’hui et la date trouvée

exemple :
Dat1 = Date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dat = Day(Dat1 - fincontr)

svp aidez moi à enlever ces guillemets et trouver mes nombres de jours






supprimer des guillemet vba sous excel 2010

[unparia]

Bonjour
fincontr="15/12/2011" montre que fincontr n'est pas une date, mais une chaîne de caractères (de type string)
Intéresse-toi à la fonction de conversion cdate

[EBRAG]

Bonsoir,

ou alors déclare ta variable...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim fincontr as date

[youpi2010]

Merci bien pour votre aide je vais tester

[Theze]

Bonjour,

Déjà, il ne te faut pas utiliser la fonction Day() pour connaître le nombre de jours car cette fonction extrait le jour d'une date. Pour Excel, l'unité (1) représente un jour (les décimales représentant les heures) donc, la variable (Dat) récupérant cette valeur sera de type Long. Comme te le dis unparia, utilises la fonction de conversion CDate() pour transformer une date valide de type String en date de type Date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Test()
 
    Dim Dat1 As Date
    Dim FinContr As String
    Dim Dat As Long
 
    Dat1 = Date
 
    FinContr = "15/12/2011"
 
    Dat = Dat1 - CDate(FinContr)
 
    MsgBox Dat
 
End Sub

[youpi2010]

premièrement merci bien ça marche très bien j'ai en fin le nombres de jours

maintenant svp je veux appliquer ce petit programme sur toute les feuilles que j'ai sur mon fichier excel cumuls .xls

merci de votre intérêt à mes soucis