Recherche h
Résolu
Bonjour,
je sais pas mais sa marche pas aider moi
Sub rechercheeee()
Dim i As Integer
i = 4
Range("J20").Select
ActiveCell.FormulaR1C1 = "=HLOOKUP(""date"",amine,i,FALSE)"
Range("J20").Select
End Sub
je sais pas mais sa marche pas aider moi
Sub rechercheeee()
Dim i As Integer
i = 4
Range("J20").Select
ActiveCell.FormulaR1C1 = "=HLOOKUP(""date"",amine,i,FALSE)"
Range("J20").Select
End Sub
5 réponses
-
ContributeurBonjour
si c'est la date du jour que tu utilises enlève les guillemetsi = 4
Range("J20").FormulaR1C1 = "=HLOOKUP(date,amine,i,FALSE)"
en vba évite au maximum les "select"-"selection " -
Contributeurcombien as tu de lignes dans le tableau "amine" ?
au besoin:
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente
-
Bonjour michel_m,
j'ai plus de 3000 ligne , en tous qu'a sa c le premier problème que j'ai rencontre
voici le fichier
https://www.cjoint.com/c/EKfwb5OcEby
-
-
ModérateurBonjour,
Sans chercher plus loin... je suppose que ton "i" est une variable...
il faut donc le sortir des guillemets...ActiveCell.FormulaR1C1 = "=HLOOKUP(date,amine," & i & ",FALSE)"
-
ContributeurBonjour Aminsec:
Que veux tu faire exactement (sans parler excel) ?
-
ContributeurBonjour
dans ton tableau de sortie tu as une colonne débit-crédit et dans ton tableau d'entrée tu n'as aucune mention de débit et crédit: j'ai donc travaillé en débit après un pile ou face...
compte tenu du nombre de lignes annoncé (3000), j'ai travaillé par variable-tableau pour une question rapidité car par cellule vers cellule, la durée d'exécution serait très longue
http://www.cjoint.com/c/EKijf2Yqi2v
