Salut à tous!
alors voilà, je dois faire un petit fichier qui sera remplis tel une base de donnée.
Afin d'avoir quelque chose de fluide, je veux passer par une interface VBA.
Pour cela, j'ai fait un programme, mais ne parvient pas à le finaliser.
J'entend par là qu'il reste certains bugs.
Le programme, le voici:
J'ai cependant, 4 problemes:
Mes 3 Vlookup ne fonctionnent pas (erreur 1004) pour une raison que j'ignore... si j'enleve le "=" en début de formule, je n'ai plus l'erreur mais il me copie du texte et non pas une formule.
Enfin, le SOMMEPROD m'indique une erreur que je ne comprend pas non plus.
Ainsi, je me retourne vers vous pour avoir un regard extérieur
Merci!
alors voilà, je dois faire un petit fichier qui sera remplis tel une base de donnée.
Afin d'avoir quelque chose de fluide, je veux passer par une interface VBA.
Pour cela, j'ai fait un programme, mais ne parvient pas à le finaliser.
J'entend par là qu'il reste certains bugs.
Le programme, le voici:
Sub a()
'affichage de la date
Dim aujourdhui As Date
Dim xxx As Variant
Dim jour As Variant
Dim semaine As Variant
Dim mois As Variant
Dim an As Variant
Dim gl As Variant
'--------------------
'date
xxx = InputBox("Entrer la date du jour (au format jj/mm/aaa):") 'saisie de la date
Range("A10") = aujourdhui
jour = DatePart("d", xxx)
mois = DatePart("m", xxx)
an = DatePart("yyyy", xxx)
'MsgBox ("jour" & jour)
Range("a1") = jour
'MsgBox ("mois" & mois)
Range("c1") = mois
'MsgBox ("an" & an)
Range("d1") = an
'Range("e1") = xxx
'---------------------
'enregistrement nom GL
gl = InputBox("Entrez le nom du GL:") 'saisie du nom du GL
'MsgBox (gl)
Range("f1") = gl 'affiche le nom
Range("g1") = "=VLookUp(Gl;source!$A$2:$D$15;tournée)" 'recherche dans le doc source la tournée du GL
Range("h1") = "=VLookUp(Gl;source!$A$2:$D$15;ligne)" 'recherche dans le doc source la ligne du GL
Range("i1") = "=VLookUp(Gl;source!$A$2:$D$15;gap)" 'recherche dans le doc source le gap du GL
'temps en poste
Dim temps As Variant
temps = InputBox("indiquer le temps passé en poste:") 'saisie du temps passé en poste
Range("j1") = temps 'affichage du temps
Range("k1") = "=(1-(j1/source!$F$17))*100" 'affichage du % de temps passé HORS poste
Range("l1") = "=SOMMEPROD(($c$1:$c$65536=mois)*($F$1:$F$65536=gl)*($K$1:$K$65536))/20" 'affichage du % de temps passé HORS poste dans le mois
End Sub
J'ai cependant, 4 problemes:
Mes 3 Vlookup ne fonctionnent pas (erreur 1004) pour une raison que j'ignore... si j'enleve le "=" en début de formule, je n'ai plus l'erreur mais il me copie du texte et non pas une formule.
Enfin, le SOMMEPROD m'indique une erreur que je ne comprend pas non plus.
Ainsi, je me retourne vers vous pour avoir un regard extérieur
Merci!