Urgent !!! intégrer variable (feuille) dans vlookup

lool29860 Messages postés 4 Date d'inscription lundi 19 mai 2008 Statut Membre Dernière intervention 12 février 2009 - 12 févr. 2009 à 09:48
mamash_bek Messages postés 20 Date d'inscription mercredi 6 juin 2007 Statut Membre Dernière intervention 11 juin 2009 - 12 févr. 2009 à 10:27
Bonjour
je souhaite que ma recherche v aille chercher les informations dans un onglet (variable)

voici le code que j'ai écrit
le problème est que vb essai de m'ouvrir un dossier

est ce un problème de syntaxe?

Dim Client As String
Dim derligne As String
Dim Ligne As Byte
Dim Feuille As String


 


Sheets("prod").Select
derligne = Range("A5").End(xlDown).Row
Range("AA6").Select


For Ligne = 6 To derligne
Client = Cells(Ligne, 19).Value
Feuille = "CD " & Client




ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC[-26],'Feuille'!C[-26]:C[-11],16,FALSE)="""",IF(R[1]C[-8]=""NMX"",IF(R[1]C[-15]="""",0,+INT(R[1]C[-15]/10)+3),IF(R[1]C[-15]="""",0,+INT(R[1]C[-15]/10)+2)),VLOOKUP(RC[-26],'CD NHC'!C[-26]:C[-11],16,FALSE))"


   
Next Ligne

merci
lool

2 réponses

mamash_bek Messages postés 20 Date d'inscription mercredi 6 juin 2007 Statut Membre Dernière intervention 11 juin 2009 1
12 févr. 2009 à 10:24
Je ne connais pas spécialement le VB6 mais ni aurait il pas un souci au niveau de la déclaration et convertion des objets et variables ?
En mode pas à pas sur quelle ligne l'ouverture du dossier s'effectue t elle ?
Je présume que ta formule conditionnelle est opérationnelle ?
(En dotNet ça pourrait donner ça)
  Dim xlapp As New Excel.Application
  Dim Ma_feuille as Excel.Worksheet
  [...]
  Ma_feuille = CType(xlapp.Sheets(x), Excel.Worksheet)   'x corresponds à l'index de ta feuille "prod"
  Ma_feuille.Activate()  ou .select
 derligne =  Cbyte(xlapp.Range("A5").End(xlDown).Row)
[...]
 Client = CStr(xlapp.Range("S" & ligne).Text)

J'espère que cela pourra t'aider un peu.
0
mamash_bek Messages postés 20 Date d'inscription mercredi 6 juin 2007 Statut Membre Dernière intervention 11 juin 2009 1
12 févr. 2009 à 10:27
Par contre ta boucle mets toujours à jour ta cellule AA6 de la feuille "prod", est ce le comportement souhaité ?
0