Bonjour !
j'ai un macro que je fais tourner mon plusieurs valeur de i !
Je souhaiterai pour chaque i aller stocker dans les résultats dans un tableau sur nouvelle feuille avec comme nom de colonne à chaque fois : Col_i
Pour stocker les résultats j'utilise normalement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub validation() Dim v As Variant Dim var1 As Variant Dim var2 As Variant Dim tableau As Range With Worksheets("Parametre") derniere_ligne = Range("A19").End(xlDown).Row For i = 19 To derniere_ligne If (Not IsEmpty(Range("A" & i))) Then If (Range("B" & i) = ">") Then var1 = .Cells(i, 1).Value var2 = .Cells(i, 3).Value v = Application.Run("BERT.Call", "compare_sup", var1, var2) EndIf If (Range("B" & i) = "<") Then var1 = .Cells(i, 1).Value var2 = .Cells(i, 3).Value v = Application.Run("BERT.Call", "compare_inf", var1, var2) End If End If Next i End With End Sub
, pouvez vous me dire comment remplacer ce code pour que ce soit dans la colonne B puis C de ma nouvelle feuille?
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveSheet.Range("A1:I130000").Value = v
merci !
Partager