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

Question

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

mamash_bek · Answer

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.

mamash_bek · Answer

Par contre ta boucle mets toujours à jour ta cellule AA6 de la feuille "prod", est ce le comportement souhaité ?

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

2 réponses

Votre réponse

Discussions similaires