inserer des variables dans une ligne de code (condition IF, rechercheV)Résolu

Question

bonjour, je cherche a remplir un tableau a partir d'un tableau croisé dynamique:
voici mon code: 

Sub Macro12()
'
' remplissage tableau, ligne réalisé.
n =  1
Dim y1 As String

i = 7
t = 0
c = 14

x = [CountA(A1:A65536)] - 2

Do While t < x

y1 = Range("a1")
   
    Range("D" & i).Select
    ActiveCell.FormulaR1C1 = _
     "=IF(R4C4<R1C5, VLOOKUP(R[-1]C[-2],'[tableau historique.xls] 101029 '!C2:C190,14,0),0)"
    i  = i + 3
    t = t + 1
   
    Loop
    End Sub

je voudrais que le chiffre 14 soit ds une variable pour pouvoir l'incrementer, ( puisque la prochaine colone aura besoin de la valeur 15.
et le chiffre 101029, se trouve dans la case A1 de mon autre tableau, j'aimerai donc mettre la valeur de A1 pluto qu'un chiffre statique.
comment faire pour faire ça dans ma ligne de code?

merci d'avance

Polack77 · Accepted Answer

Déjà il faut précisé le langage dans le quel tu développe (à ce que j'ai compris c'est du VBA excel) 

Sub Macro12()
'
' remplissage tableau, ligne réalisé.
n = 1
Dim y1 As String
Dim Var As Integer '<----------
i = 7
t = 0
c = 14

x = [CountA(A1:A65536)] - 2
Var = 14
    Do While t < x

      y1 = Range("a1")
    
      Range("D" & i).Select
      ActiveCell.FormulaR1C1 = _
       "=IF(R4C4<R1C5, VLOOKUP(R[-1]C[-2],'[tableau historique.xls]" & Cells(1, 1).Value & "'!C2:C190," & Var & ",0),0)"
      i = i + 3
      t = t + 1
      Var = Var + 1 '<---------
    Loop
End Sub

Tu voulais faire un truc du genre non ?
Amicalement 
Pensez "Réponse acceptée"

livinho38 · Answer

ué escuz c'etait bien du VB excel
ba écoute c'est exactement sa ! ! je vais voir si c'est la bonne méthode, maitenant que ça marche, je vais test de développer mon truc en partant de la!!

merci bcp en tout cas!!!
amicalement
oliv

Inserer des variables dans une ligne de code (condition IF, rechercheV)

2 réponses

Votre réponse

Discussions similaires