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

Signaler
Messages postés
29
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
24 juillet 2009
-
Messages postés
29
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
24 juillet 2009
-
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

2 réponses

Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019

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"
Messages postés
29
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
24 juillet 2009
1
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